[es] - pomoćć

Ivan007
Ivan Samardžić

Član broj: 12665
Poruke: 11
*.net.hinet.hr

Profil

^{02.09.2003. u 17:36 - pre 251 meseci}

pravim sat/alarm

label1 = sat
text1

ako je u text1 napisano "19:00:00" a sat je na "19:00:00"
kako da mi se otvori nova forma

Ivan

Odgovor na temu

mladenovicz
Zeljko Mladenovic
Xoran Technologies, Inc., Ann Arbor, MI,
USA / Software Engineer
Ann Arbor, MI, USA

Član broj: 6598
Poruke: 2065
*.yubc.net

Jabber: mladenovicz@elitesecurity.org
ICQ: 95144142
Sajt: yubc.net/~mz

Profil

Re: pomoćć

^{02.09.2003. u 17:51 - pre 251 meseci}

treba da stavis na formu Timer kontrolu. Podesi joj Interval Property na 1000 (milisekunde su u pitanju), i dodaj ovaj kod

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

Ovaj kod ce ti svake sekunde proveravati, da li je vreme iz textboxa jednako sistemskom i ako jeste prikazati formu.

Blue Man Group

Odgovor na temu