适用于
|
Form 对象 |
可以使用 TimerInterval 属性指定窗体上 Timer 事件之间的间隔（以毫秒为单位）。 Long 型，可读/写。
表达式.TimerInterval
表达式 必需。 返回“适用范围”列表中的对象之一的表达式。
备注
TimerInterval 属性设置是 0 和 2,147,483,647 之间的一个长整数值。
可使用窗体的属性表、宏或 Visual Basic for Applications (VBA) 代码设置此属性。
注意: 使用 VBA 时，在窗体的 Load 事件中设置 TimerInterval 属性。
若要按 TimerInterval 属性指定的时间间隔运行 VBA 代码，将代码放入窗体的 Timer 事件过程中。 例如，要每 30 秒钟重新查询记录，将代码放入窗体的 Timer 事件过程中，然后将 TimerInterval 属性设置为 30000。
示例
以下示例显示如何通过显示和隐藏按钮上的某个图标在窗体上创建一个闪烁的按钮。 窗体的 Load 事件过程将窗体的 TimerInterval 属性设置为 1000，因此，图标的显示每秒切换一次。
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
