Discussion :

[cabiste007]

bonjour ou bonsoir!!
comme indique le titre je voudrais stopper mon appli quand le compte a rebours atteint 0 mais le test dois etre accompagné d'un événement alors que moi je voudrais le stopper dans n'importe quelle étape de l'éxecution le seul contraint et le le compte a rebours j'ai bien recherché mais a chaque essaye je recontre un cas particulier alors pouvez vous m'aider ? et merci d'avance

[SfJ5Rpw8]

Bonjour,
Montre nous le code de ton compte a rebourd..

[cabiste007]

Bonjour,
Montre nous le code de ton compte a rebourd..

voici c'est un petit exemple

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
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
Dim x As Integer
Private Sub Command1_Click()
Timer1.Enabled = True
Timer1.Interval = 1000
If (x = 0) Then
Label2.Caption = 10
End If
x = x + 1
If Label2.Caption = 0 Then
Timer1.Enabled = False
Command1.Enabled = False
Command3.Enabled = True
End If
Label1.Caption = x
 
End Sub
 
 
 
Private Sub Command2_Click()
'CD1.ShowColor
'Me.BackColor = CD1.Color
 
 
End Sub
 
Private Sub Command3_Click()
 
Label2.Caption = "Timer"
Label1.Caption = 0
Command3.Enabled = False
Command1.Enabled = True
x = 0
 
 
End Sub
 
Private Sub Form_Load()
 
End Sub
 
Private Sub Timer1_Timer()
Label2.Caption = Label2.Caption - 1
End Sub

ici le cas particulier c'est que ci je ne clic jamais sur le bouton et le compteur arrive a zéro le programme ne stop pas ey il continue dans des valeurs négative

[gnain]

Bonjour
peut-être

Code :

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

1
2
3
4
Private Sub Timer1_Timer()
     Label2.Caption = Label2.Caption - 1
     if Label2.Caption = 0 then end
End Sub

pas tester

[cabiste007]

merci bcp j'ai fait qlq modif a votre proposition et sa marche merci énormément