如何使timer事件的循环的时间为三分钟?

[湫龙]

请高手支招.急求!如何使timer事件的循环的时间为三分钟?

[clear_zero]

1。timer.interval=60000 '一分钟

2。 dim i as integer
Private Sub tmr_Timer()
if i=2 then
'-- Do your things
i=0
end if
i=i+1
End Sub

[myy168]

设置interval为180000

[cylmfeng]

[Quote=引用 2 楼 myy168 的回复:]
设置interval为180000
[/Quote]
interval的值要是超过60000多的话 就会提示为无效值

你可以先把timer的interval的值设置成1分钟 然后弄一个变量 来判断 是否已经发生了3次 事件 如果 是 就 执行命令 然后 变量 初始化

[a1875566250]

咳咳，LS想的很美好。。。。

实现3分钟可以使用一个全局变量进行监视即可。。。按照全局变量的值来判断是不是三分钟。。。
当然，最理想的还是使用SetTimer，随便你设多大都可以。。。

[a1875566250]

上面偶说错了，那句“LS想得很美好”是说#2的~~~
#3你咋回复那么快呃。。。

[chinaboyzyq]

[code=VB]
Dim dtNextTime as Date

Private Sub Form_load()
    　Timer1.interval=500
　Timer1.Enabled=True
　dtNextTime=DateAdd("n",15,Now)'15分钟执行一次任务
End Sub

Private Sub Timer1_Timer()
　if Now>=dtNextTime Then
　　Timer1.Enabled=False
　　
　　'在此加入你的代码

　　dtNextTime=DateAdd("n",15,Now) 
　　Timer1.Enabled=True
　End if
End Sub

[cylmfeng]

回#4的
我一菜鸟看到自己会的很少的一部分，就立马回了，所以理应会比你快那么一点点。

[anlog]

哈哈，这个只能通过内部编写一个静态变量进行循环之后定期调用事件（函数）timer控件是有时间限制的。单位为ms，不过也不能精确到ms

[熊孩子开学喽]

Dim T as Long
Sub Form_load()
Timer1.interval=10000 'timer的触发单位是毫秒,一万毫秒就是10秒触发一次
End Sub

Private Sub Timer1_Timer()
T=T+1
If T=18 then '18个10秒就是180秒就是三分钟
'这里写你要纸型的代码
T=0 '重新开始计时
end if
End Sub

挺简单的吧,即使你想循环触发的时间再长也可以,只要判断T的数字再大就可以了

[zjhiphop2006]

[Quote=引用 9 楼 wallescai 的回复:]
Dim T as Long
Sub Form_load()
Timer1.interval=10000 'timer的触发单位是毫秒,一万毫秒就是10秒触发一次
End Sub

Private Sub Timer1_Timer()
T=T+1
If T=18 then '18个10秒就是180秒就是三分钟
'这里写你要纸型的代码
T=0 '重新开始计时
end if
……
[/Quote]
这个方法不错，up

[guyehanxinlei]

[Quote=引用 9 楼 wallescai 的回复:]
Dim T as Long
Sub Form_load()
Timer1.interval=10000 'timer的触发单位是毫秒,一万毫秒就是10秒触发一次
End Sub

Private Sub Timer1_Timer()
T=T+1
If T=18 then '18个10秒就是180秒就是三分钟
'这里写你要纸型的代码
T=0 '重新开始计时
end if
……
[/Quote]
变通还是不错的

[hongss]

好多点子！

这个要严重收藏

[dl20070302]

Private Sub Timer1_Timer()
'Static k As Integer
Label4.Caption = "当前状态:" & " 休息" & Text2.Text * 60 & "秒……" & " " & k
k = k + 1
Debug.Print k
If k >= Text2.Text * 60 Then
k = 0
Timer1.Enabled = False
Text1.Text = ""
Call Star
End If
End Sub

[king06]

......

[sanxiaxys]

timer1.interval=60000'一分钟

Private Sub Timer1_Timer()
Static k As Integer
k = k + 1
If K mod 3=0 Then'每3分钟
'你的具体代码
End If
End Sub