vba kodu (label a uygularsın ama ok...)
[Private Sub UserForm_Activate()
Do
DoEvents
Label1.Caption = Format(Now, "hh:mm:ss")
Loop
'
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
End
End Sub]
[vb:1:0c0aab1791]Private Sub UserForm_Activate()
Do
DoEvents
If Format(TextBox1, "hh:mm:ss") = Label1.Caption Then MsgBox "a"
Label1.Caption = Format(Now, "hh:mm:ss")
Loop
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
End
End Sub
[/vb:1:0c0aab1791]
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.