FBTimer

PropertyDatentyp(Read/Write)Hinweise
TaktInteger (R/W) Alle wieviele Sek ein Event ausgelöst wird.( 1000 = 1 Sekunde; 5000 = 5 Sekunden )
Sub/FunctionArgumenteHinweise
SUB Start (ByVal hWnd As HWND Handle der Form ( erhält aber keine Botschaft)
Startet den Timer
Sub Stop ohne Stopt den Timer
Event SUBArgumenteHinweis
onTimerkeine Wird im vorgegebenen Zeitintervall aufgerufen
Beispiel :
    #Include "winFBgui.bi"
     
    Dim Shared As FForm form1
    Dim Shared As FTimer Ptr timer1

    Sub timer1_Timer
         ' Irgend was
    End Sub 


    form1.Create("Testform",0,0,870,720)
    Form1.Center

    timer1 = New FTimer
    timer1->Takt = 5000 
    timer1->onTimer = @timer1_Timer
    timer1->Start(form1.Handle)
    
    '-------------'
    ' timer1.stop  Killt den Timer. Sollt vor Programmende irgenwo aufgerufen werden. 
    ' Diese Function auch im Destructor enthalten.

    form1.Show
    
    Delete timer1
    ExitProcess(0)
    End