satriano17
Gebruiker
- Lid geworden
- 30 sep 2012
- Berichten
- 331
Code:
Private Sub Command1_Click()
If Label1.Caption = text1.text Then
MsgBox "OK"
End If
End Sub
Private Sub Form_Load()
Timer1.Enabled = True
Timer1.Interval = 1000
End Sub
Private Sub Timer1_Timer()
Label1.Caption = Time 'actueel tijd
End Sub
ik heb een label1 waar de actueel tijd wordt wergegeven (Time)
in text1.text geef ik een toekomst tijd (bv 10:20:00)
Ik wil dat als de actueel tijd gelijk is aan de aangegeven tijd in text1.text
dan wordt OK weergegeven.
Maar bovenstande code werkt niet.
Waar zit fout?
dank u
Laatst bewerkt: