关于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会取消等待中的计时器，所以立刻被终止了。