定一个timer timer.Interval=60000 代码: Public i As Integer Sub Timer_Timer() i=i+1 if i=7200 then call Command_Click() End Sub Private Sub Command_Click() MsgBox "2小时" End Sub
定一个timer timer.Interval=60000 代码: Public i As Integer Sub Timer_Timer() i=i+1 if i=120 then i=0: call Command_Click() End Sub Private Sub Command_Click() MsgBox "2小时" End Sub
用一个timer,没2个小时执行一次点击一下Command按钮行不?
timer.Interval=60000
代码:
Public i As Integer
Sub Timer_Timer()
i=i+1
if i=7200 then call Command_Click()
End Sub
Private Sub Command_Click()
MsgBox "2小时"
End Sub
CaiNiao008(默林) 的思路是对的。问题是:timer只能定制60多秒的时间,不能定义2个小时那么长的时间。
dinky(菜鸟也想飞) 的代码好像不对?要是一分钟timer启动,那个7200是怎么回事?请教。继续请教!
timer.Interval=60000
代码:
Public i As Integer
Sub Timer_Timer()
i=i+1
if i=120 then i=0: call Command_Click()
End Sub
Private Sub Command_Click()
MsgBox "2小时"
End Sub
如果timer.Interval=1000的话就是72000