Rekvizīts TimerInterval

Attiecas uz

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.

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