使用 TimerInterval 屬性可以以毫秒為單位在窗體的 Timer 事件之間指定一個(gè)時(shí)間間隔。Long 型,可讀寫。
expression 必需。返回“應(yīng)用于”列表中的一個(gè)對象的表達(dá)式。
TimerInterval 屬性設(shè)置為一個(gè) Long Integer 值,在 0 和 2,147,483,647 之間。
可以使用窗體的屬性表、宏或 Visual Basic 來設(shè)置該屬性。
注釋 在使用 Visual Basic 時(shí),必須在窗體的 Load 事件中設(shè)置 TimerInterval 屬性。
如果要以 TimerInterval 屬性設(shè)置的間隔來運(yùn)行 Visual Basic 代碼,只需將代碼放在窗體的 Timer 事件過程中即可。例如若要每三十秒重新查詢一次記錄,可將重新查詢的代碼放在窗體的 Timer 事件過程中,然后將 TimerInterval 屬性設(shè)為 30000。
下面的示例演示如何通過在按鈕上顯示和隱藏圖標(biāo)來建立一個(gè)閃爍按鈕。窗體的 Load 事件過程將窗體的 TimerInterval 屬性設(shè)置為 1000,這樣圖標(biāo)顯示便每隔一秒切換一次。
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