vb的Timer时间控件怎么不同步?
来源:百度知道 编辑:UC知道 时间:2024/05/08 18:11: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