Attiecas uz
|
Objekts Form |
Varat izmantot rekvizītu TimerInterval, lai norādītu intervālu milisekundēs starp notikumiem Timer formā. Lasāms/rakstāms Long.
izteiksme.TimerInterval
expression Obligāti. Izteiksme, kas atgriež vienu no objektiem sarakstā Attiecas uz.
Piezīmes
Rekvizīta TimerInterval iestatījums ir garš vesels skaitlis starp 0 un 2,147,483,647.
Varat iestatīt šo rekvizītu, izmantojot formas rekvizītu lapa, makro vai Visual Basic for Applications (VBA) kodu.
Piezīme.: Izmantojot VBA, varat iestatīt rekvizītu TimerInterval formas notikumā Load.
Lai izpildītu VBA kodu ar intervāliem, kas norādīti rekvizītā TimerInterval, iekopējiet kodu formas notikuma Timer procedūrā. Piemēram, izveidotu atkārtotu ierakstu pieprasījumu ik pēc 30 sekundēm, ievietojiet kodu atkārtotai ierakstu pieprasīšanai formas notikuma Timer procedūrā un pēc tam iestatiet rekvizīta TimerInterval vērtību uz 30 000.
Piemērs
Šajā piemērā redzams, kā izveidot mirgojošu pogu formā, parādot un paslēpjot ikonu uz pogas. Formas notikuma Load procedūra iestata rekvizīta TimerInterval vērtību 1000, lai ikonas attēlojums tiktu pārslēgts reizi sekundē.
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
