Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: Co minutę
anonim




Typ: Nie zarejestrowany
Co minutę

Jak zrobić, żeny dana czynność działa się co minutę?

15-02-2005 17:09
  
Chudy
[TLHW]Wiktor



Typ: moderator
Postów: 574
Zarejestrowany: Aug 2002

Możesz użyć Timera (kontrolka z ikoną zegarka) lecz kontrolka ta jest czasami niedokładna. Ja proponowałbym użycie API:

Private Declare Function GetTickCount& Lib "kernel32" ()
Dim Quit As Boolean

Public Sub CoMinute()
    Dim Start As Long
    Dim Czas As Long
    Czas = 60000
    Start = GetTickCount&
    Do While Start >= GetTickCount& - Czas And Quit = False
        DoEvents
    Loop
    If Quit Then Exit Sub
   

    MsgBox "TEST" 'Twoja czynność
End Sub

Private Sub Form_Load()
    Visible = True
    CoMinute
End Sub

Private Sub Form_Unload(Cancel As Integer)
    Quit = True
End Sub


_____________________________________________
Projekt "Thunder Cannons" nadchodzi...

15-02-2005 19:06
Pokaż profil Chudy  Wyślij email do Chudy   Odwiedź stronę Chudy       1220895
anonim




Typ: Nie zarejestrowany

Dzięki, bardzo mi pomogłeś...

15-02-2005 20:55
  
Wszystkich odpowiedzi: 2 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1