vb的Timer时间控件怎么不同步?

来源:百度知道 编辑:UC知道 时间:2024/05/08 18:11:10
timer1和timer2不是同时开始计时的,我设置2个都为10秒。10秒以后只有一个起作用,又过了10秒另一个才起作用,然后循环起作用

在timer1.timer()里面让timer2.enable=true,开始timer2计时,同时关闭自己的计时.
在timer2.timer()里面让timer1.enable=true,开始timer1计时,同时关闭自己的计时.

代码大概如下:
Private Sub Form_Load()
Timer1.Enabled = False 'timer1暂停
Timer2.Enabled = False 'timer2暂停
Timer1.Interval = Timer2.Interval = 10000 '设置间隔10s
End Sub

Private Sub Command1_Click()
Timer1.Enabled = True '开始timer1
End Sub

Private Sub Timer1_Timer()
...'做你的事情
Timer2.Enabled = True 'timer2开始
Timer1.Enabled = False 'timer1暂停
End Sub

Private Sub Timer2_Timer()
...'做你的事情
Timer1.Enabled = True 'timer1开始
Timer2.Enabled = False 'timer2暂停
End Sub

建一个Timer1,Timer2,Timer中的代码请自己修改。
代码如下。
===============
Private Sub Form_Load()
Timer1.Interval = 10000
Timer2.Interval = 10000
Timer2.Enabled = False
MsgBox "现在Timer1起作用"
End Sub

Private Sub Timer1_Time