Discussion :

[dahmane2007]

Bonjour,
Je voudrais savoir comment utiliser le timer pour un label afin d'afficher un compteur (1,2,3 etc...)
J'ai fait un contrôle Timer et je l'ai activé avec Enable a True et avec un interval de 3 secondes, mais ca marche pas, il m'affiche toujours le dernier numéro.

Je veux qu'il m'affiche le label 1, ensuite 2 et 3 avec une minuterie.
Avez-vous une idée ?.
Merci !!

[DroP]

Alors imagine que sur ta form tu as un label (nommé label1), un bouton (nommé button1) et un timer (nommé timer1)

il faut que tu t'abonnes à l'évenement Tick de ton Timer et effectuer ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
Dim number As Int16
 
'Clique sur le bouton pour démarrer le Timer
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Timer1.Enabled = True
End Sub
 
'Chargement de la Form
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Timer1.Enabled = False
Timer1.Interval = 1000
number = 0
End Sub
 
'à Chaque Tick du Timer
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
number = number + 1
Label1.Text = number.ToString()
End Sub

[dahmane2007]

En fait, j'ai un 3 contrôle qui est Monscroll. Donc, la valeur number prend sa valeur (value). Ca marche, mais le problème, il commence a afficher -1 au début.

Exemple: Je veux que mon label affiche 3, puis 2, en enfin 1 et quand je clique sur un bouton, il augmente en tenant compte value de scroll.
Merci !!

[DroP]

Il faudrait que tu sois un peu plus clair dans tes explications car là, j'ai pas tout compris

[dahmane2007]

Bon, je m'explique:
j'ai trois contrôles: label, un bouton et un scroll.
label.text = " Texte 1 "
Au début, la valeur de scroll est 3 ( il a un minimum et un maximum). J'ai placé le bouton btn avant le contrôle Scroll.
Je veux quand je clique sur le bouton btn avec la valeur de scroll (value), le label.text affichera le texte avec un nombre décroissant (3,2,1) et tant que je change la position du scroll, le nombre changera avec toujours en ordre décroissant. Donc, la meilleure méthode est d'utiliser un timer.

Voici mon code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
'Nbre prend la valeur de scroll (nbre = scroll.value).
Private Sub Timer1_Tick(ByVal sender As System.Object, _
                ByVal e As System.EventArgs) Handles Timer1.Tick
        Nbre = Nbre - 1
        label.Text = " Text = " & Nbre .ToString()
    End Sub