VB timer的问题 帮我 谢

来源：百度知道 编辑：UC知道 时间：2024/06/04 01:46:46
我在窗口中加入2个timer 然后我想其中一个可以延迟3秒运行 另一个正常 怎么办?

在需要延迟的Timer控件的代码开头加入：
Static m As Integer
m = m + 1
If m < 3 Then Exit Sub

比如你要设置延迟3秒的是timer1

你可以设置timer1的属性：
interval设置为1000
enabled设置为true

然后代码如下：

Private Sub Timer1_Timer()
Static x As Integer '这里定义了一个动态变量x
x = x + 1
If x < 3 Then
Exit Sub
else
timer1.interval=(这里写你想要实现定时的时间)
end if

'这里可以写你要实现的语句

End Sub

timer在窗体创建后是先延迟然后再执行过程

所以先把要延迟的timer.interval=3000

然后在timer的过程里设置timer.interval为你需要的间隔

假设TIMER1先运行，TIMER2后运行
把TIMER2的ENABLED属性设置为FALSE
在TIMER1的事件里加入TIMER2.ENABLED=TRUE
...

假设你想延迟Timer1.
代码如下。
＝＝＝＝＝＝＝＝＝＝＝
Private Sub Form_Load()
Timer1.Interval = 3000 '第一次延迟值，3秒
End Sub

Private Sub Timer1_Timer()
Timer1.Interval = 1000 '正常值，自己写
End Sub