7451
社区成员
- 主页
...全文
请发表友善的回复…
发表回复
redwrite 2003-01-06
up
kjah 2003-01-06
Timer控件Interval属性最大值65535
每 1000 是一秒 也就是说最大65秒
可以用静态变量 或者 全局变量 累计
设置一个小时为例：
'先设置Timer控件Interval=600000
Private Sub Timer1_Timer()
Static count As Integer
count = count + 1
If count = 59 Then
MsgBox "到一小时了"
End If
End Sub
每 1000 是一秒 也就是说最大65秒
可以用静态变量 或者 全局变量 累计
设置一个小时为例：
'先设置Timer控件Interval=600000
Private Sub Timer1_Timer()
Static count As Integer
count = count + 1
If count = 59 Then
MsgBox "到一小时了"
End If
End Sub
microyzy 2003-01-06
不过这种方法效果不好，可以使用其他函数
例如WaitForSingleOnject()
例如WaitForSingleOnject()
microyzy 2003-01-06
vb的timer控件不能设置那么长的时间
应该直接用api函数
while(true)
{
Sleep(60*60*1000)
doevents
}
应该直接用api函数
while(true)
{
Sleep(60*60*1000)
doevents
}
hengxin54 2003-01-06
不可以，但你可以高置间隔大一点，用一个循环