pomoćć
Zaključano
Zakačeno
treba da stavis na formu Timer kontrolu. Podesi joj Interval Property na 1000 (milisekunde su u pitanju), i dodaj ovaj kod
Ovaj kod ce ti svake sekunde proveravati, da li je vreme iz textboxa jednako sistemskom i ako jeste prikazati formu.
Code:
Private Sub Timer1_Timer()
Dim AlarmTime As Date
If IsDate(txtText.Text) Then
AlarmTime = CDate(txtText.Text)
Else
Exit Sub
End If
If DateDiff("s", AlarmTime, Time()) = 0 Then
Form2.Show
End If
End Sub
Private Sub Timer1_Timer()
Dim AlarmTime As Date
If IsDate(txtText.Text) Then
AlarmTime = CDate(txtText.Text)
Else
Exit Sub
End If
If DateDiff("s", AlarmTime, Time()) = 0 Then
Form2.Show
End If
End Sub
Ovaj kod ce ti svake sekunde proveravati, da li je vreme iz textboxa jednako sistemskom i ako jeste prikazati formu.