Discussion :

[mukinayiseth]

bonjour toute la communauté du club de developpement,

je suis débutant dans l'affair vb6.0 et j'ai une préoccupation à vous faire part,

je voudrais créer un evenement basé sur la timer, donc voici mon code mais le format auquel j'écris l'heure n'est pas reconnu par vb6.0:

Code :

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

1
2
3
4
5
6
private sub_timer()
label1 = Cstr(Time) 'pour obtenir la chaine de l'heure au format "HH:mm:ss"'
label2 = Cstr(Date) 'pour obtenir la date au format "DD/MM/YY"
if label2 = "12/06/2013" then
Unload me
end sub

avec la date, la condition marche.
mais quand je mes la meme condition pour l'heure, on me donne un message d'erreur, le code est le suisvant:

Code :

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

1
2
if label1 = "12:30:00" then
msgbox "Bonjour il est " & label1

veuillez m'aider à bien écrire.

merci à vous tous

[ProgElecT]

Salut

Code :

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

1
2
3
4
5
6
7
8
9
10
Label1.Caption = Format(Time, "hh:mm:ss")  'pour obtenir la chaine de l'heure au format "HH:mm:ss"'
Label2.Caption = Format(Date, "dd/mm/yy")  'pour obtenir la date au format "DD/MM/YY"
 
If Label1.Caption = "12:30:00" Then
    MsgBox "Bonjour il est " & Label1.Caption
End If
 
If Label2.Caption = "12/06/2013" Then
    Unload Me
End If