pblem avec un timer

Question

Private Sub Timer3_Timer()
If Case01.BackColor = 500 Then
Text1.Text = Text1.Text & vbCrLf & "salut"
Timer3.Enabled = False
End If
If Case01.BackColor = 170000 Then
Timer3.Enabled = True
End If
End Sub

Comme on peut le voir je souhaite afficher une fois "salut" lorsque la case01 passe a la couleur 500 grace au timer  puis
remettre en route le timer quan la case01 revien a sa couleur initilae qui est 170000 pour que lorsque la case prendra une nouvelle fois la couleur 500 le text1.text affiche "salut" etc....

 merci d'avance a celui qui me sauvera

Vinsus el débutant

cs_DARKSIDIOUS · Answer

Il te suffit de faire un test dans ton timer sans le désactiver :

Private Sub Timer3_Timer()
If Case01.BackColor = 500 and text1.text <> "salut" Then
Text1.Text = Text1.Text & vbCrLf & "salut"
End If
If Case01.BackColor = 170000 Then
text1.text = ""
End If
End Sub

DarK Sidious

[Responsable API/VB du site www.ProgOtoP.com]
Téléchargez ProgOtoP API Viewer

cs_DARKSIDIOUS · Answer

Il te suffit de faire un test dans ton timer sans le désactiver :

Private Sub Timer3_Timer()
If Case01.BackColor = 500 and text1.text <> "salut" Then
Text1.Text = Text1.Text & vbCrLf & "salut"
End If
If Case01.BackColor = 170000 Then
text1.text = ""
End If
End Sub

DarK Sidious

[Responsable API/VB du site www.ProgOtoP.com]
Téléchargez ProgOtoP API Viewer

Pblem avec un timer

2 réponses

Discussions similaires