Se aplică la
|
Obiectul Form |
Puteți utiliza proprietatea TimerInterval pentru a specifica intervalul, în milisecunde, dintre evenimentele Cronometru de pe un formular. Lung în citire/scriere.
expresie.TimerInterval
expresie Obligatoriu. O expresie care returnează unul dintre obiectele din lista Se aplică la.
Observații
Setarea de proprietate TimerInterval este o Valoare întreg lung cuprinsă între 0 și 2.147.483.647.
Puteți seta această proprietate utilizând foaie de proprietăți formularului, un macrocomandă sau cod Visual Basic for Applications (VBA).
Notă: Atunci când utilizați VBA, setați proprietatea TimerInterval din evenimentul Load al formularului.
Pentru a rula cod VBA la intervalele specificate de proprietatea TimerInterval, amplasați codul în procedura de eveniment Cronometru a formularului. De exemplu, pentru a reinteroga înregistrările la fiecare 30 de secunde, amplasați codul pentru a reinteroga înregistrările în procedura de eveniment Cronometru a formularului, apoi setați proprietatea TimerInterval la 30000.
Exemplu
Următorul exemplu arată cum să creați un buton care clipește intermitent pe un formular prin afișarea și ascunderea unei pictograme pe buton. Procedura eveniment Încărcare a formularului setează proprietatea TimerInterval a formularului la 1000, pentru ca afișarea pictogramei să fie comutată la fiecare 2 secunde.
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
