TimerInterval 屬性

全部顯示

使用 TimerInterval 屬性可以以毫秒為單位在窗體的 Timer 事件之間指定一個(gè)時(shí)間間隔。Long 型，可讀寫(xiě)。

expression.TimerInterval

expression     必需。返回“應(yīng)用于”列表中的一個(gè)對(duì)象的表達(dá)式。

說(shuō)明

TimerInterval 屬性設(shè)置為一個(gè) Long Integer 值，在 0 和 2,147,483,647 之間。

可以使用窗體的屬性表、宏或 Visual Basic 來(lái)設(shè)置該屬性。

注釋  在使用 Visual Basic 時(shí)，必須在窗體的 Load 事件中設(shè)置 TimerInterval 屬性。

如果要以 TimerInterval 屬性設(shè)置的間隔來(lái)運(yùn)行 Visual Basic 代碼，只需將代碼放在窗體的 Timer 事件過(guò)程中即可。例如若要每三十秒重新查詢(xún)一次記錄，可將重新查詢(xún)的代碼放在窗體的 Timer 事件過(guò)程中，然后將 TimerInterval 屬性設(shè)為 30000。

示例

下面的示例演示如何通過(guò)在按鈕上顯示和隱藏圖標(biāo)來(lái)建立一個(gè)閃爍按鈕。窗體的 Load 事件過(guò)程將窗體的 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