Ypatybė TimerInterval

Taikoma

Ypatybę TimerInterval galite naudoti norėdami nurodyti intervalą milisekundėmis tarp laikmačio įvykių formoje. Skaityti/rašyti Long.

reiškinys.TimerInterval

reiškinys Būtina. Reiškinys, kuris pateikia vieną iš sąrašo „Taikoma“ objektų.

Pastabos

Ypatybės TimerInterval parametras yra ilgojo sveikojo skaičiaus reikšmė nuo 0 iki 2 147 483 647.

Šią ypatybę galite nustatyti naudodami formos ypatybių lapą, makrokomandą arba „Visual Basic for Applications“ (VBA) kodą.

Norėdami VBA kodą vykdyti ypatybės TimerInterval nustatytais intervalais, įdėkite šį kodą į formos įvykio Timer procedūrą. Pvz., pakartoti įrašų užklausą kas 30 sekundžių, įdėkite kodą pakartoti užklausą į formos įvykio Timer procedūrą ir nustatykite ypatybės TimerInterval reikšmę 30000.

Pavyzdys

Toliau pateiktame pavyzdyje parodyta, kaip sukurti mirksintį mygtuką formoje rodant ir paslepiant mygtuko piktogramą. Formos įvykio Load procedūra nustato formos ypatybės TimerInterval reikšmę 1 000, kad piktogramos rodymas būtų įjungtas kartą per 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