Forumda emeği geçen herkese merhaba. Arkadaşlar aşağıdaki kodlarda bir hata var ama çözemedim. Yapmak istediğim şu : TextBox1 de şimdiki zaman yazılı. Ben bu zamanın üstüne TextBox2 de ekleme yapıyorum. Atıyorum 5 sn 30sn yada 1 dakika , 5 dakika. Olması gereken , bu bekleme süresinin sonunda TextBox2 nin zemin renginin kırmızı olması. Formda denediğinizde göreceksiniz hemen kırmızı oluyor. Bu işlemi ontime metodu ile yapmak istiyorum. Wait metodunu kullanmak istemiyorum. İlgilenen arkadaşlara şimdiden teşekkürler.
Kod:
Private Sub CommandButton1_Click()
'TextBox2.BackColor = &H80000005
Dim saat As Date
On Error Resume Next
Başla:
DoEvents
saat = Format(Now, "hh:mm:ss")
If saat > TimeValue(TextBox2.Value) Then
Application.OnTime EarliestTime:=saat, Procedure:="CommandButton1_Click", Schedule:=False
End If
TextBox2.BackColor = &HFF& 'backColor = kırmızı
End Sub