Gælder for
|
Formularobjekt |
Du kan bruge egenskaben Timerinterval til at angive intervallet i millisekunder mellem Timer-hændelser i en formular. Læs/skriv Lang.
udtryk..Timerinterval
udtryk Påkrævet. Et udtryk, der returnerer et af objekterne på listen Gælder for.
Bemærkninger
Indstillingen for egenskaben Timerinterval er et langt heltal mellem 0 og 2.147.483.647.
Du kan indstille denne egenskab ved hjælp af formularens egenskabsark, en makro eller VBA-kode (Visual Basic for Applications).
Bemærk!: Når du bruger VBA, angiver du egenskaben Timerinterval i formularens Indlæs-hændelse.
Hvis du vil køre VBA-kode med intervaller, der er angivet af egenskaben Timerinterval , skal du placere koden i formularens Timer-hændelsesprocedure . Hvis du f.eks. vil genforespørge om poster hvert 30. sekund, skal du sætte koden til at forespørge på posterne i formularens Timer-hændelsesprocedure og derefter angive egenskaben Timerinterval til 30000.
Eksempel
I følgende eksempel vises det, hvordan du kan oprette en blinkende knap i en formular ved at vise og skjule et ikon på knappen. Formularens Indlæs-hændelsesprocedure angiver formularens Timerinterval-egenskab til 1000, så ikonvisningen skiftes én gang i sekundet.
Sub Form_Load()
Me.TimerInterval = 1000
End Sub
Sub Form_Timer()
Static intShowPicture As Integer
If intShowPicture Then
' Show icon.
Me!btnPicture.Picture = "C:\Icons\Flash.ico"
Else
' Don't show icon.
Me!btnPicture.Picture = ""
End If
intShowPicture = Not intShowPicture
End Sub
