Property | Datentyp(Read/Write) | Hinweise |
Takt | Integer (R/W) | Alle wieviele Sek ein Event ausgelöst wird.( 1000 = 1 Sekunde; 5000 = 5 Sekunden ) |
Sub/Function | Argumente | Hinweise |
SUB Start | (ByVal hWnd As HWND | Handle der Form ( erhält aber keine Botschaft) Startet den Timer |
Sub Stop | ohne | Stopt den Timer |
Event SUB | Argumente | Hinweis |
onTimer | keine | Wird im vorgegebenen Zeitintervall aufgerufen |
#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