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 "FBForms.bi" 	' FBForms.bi immer zuerst
                            ' bindet andere Freebasic .bi wie z.B "windows.bi" ein
    #Include "FBControls.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
    
    End