关于VB中Timer停止的问题

前端之家收集整理的这篇文章主要介绍了关于VB中Timer停止的问题前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。

学VB的一个朋友在有关Timer控件停止的问题,我给了一个回答:

将Enabled设为False,或者将Interval设为0

于是TA问,两者有什么区别呢?

就这个问题,我们还是来做一个实验吧。

创建一个新工程,在默认新建的窗体上,创建3个Command和一个Timer

使用如下代码

Option Explicit

Private dwCount As Long

Private Sub Command1_Click()
    dwCount = 0
    Timer1.Interval = 1000
    Timer1.Enabled = True
End Sub

Private Sub Command2_Click()
    Timer1.Interval = 0
End Sub

Private Sub Command3_Click()
    Timer1.Enabled = False
End Sub

Private Sub Form_Load()
    Command1.Caption = "Start"
    Command2.Caption = "Interval"
    Command3.Caption = "Enabled"
    Call Command3_Click
End Sub

Private Sub Timer1_Timer()
    dwCount = dwCount + 1
    Me.Caption = CStr(dwCount)
End Sub


点击Start按钮,每秒钟窗体的标题显示加一,在变化刚完成时立刻点击Interval按钮,发现它会继续下一个动作才停

重新点Start按钮,这次在刚完成时,立刻点击Enabled按钮,发现立刻被终止了。

其实,Timer控件封装了Windows的计时API,每次触发事件,就调用SetTimer,把Interval的值传递

再次等待Interval后触发事件,设置Interval只影响下一次事件,而不影响正在等待的事件。

而设置Enabled为False会取消等待中的计时器,所以立刻被终止了。

猜你在找的VB相关文章