关于VB中Timer停止的有关问题

关于VB中Timer停止的问题

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

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

于是TA问，两者有什么区别呢？

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

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

使用如下代码：

Option ExplicitPrivate dwCount As LongPrivate Sub Command1_Click()    dwCount = 0    Timer1.Interval = 1000    Timer1.Enabled = TrueEnd SubPrivate Sub Command2_Click()    Timer1.Interval = 0End SubPrivate Sub Command3_Click()    Timer1.Enabled = FalseEnd SubPrivate Sub Form_Load()    Command1.Caption = "Start"    Command2.Caption = "Interval"    Command3.Caption = "Enabled"    Call Command3_ClickEnd SubPrivate Sub Timer1_Timer()    dwCount = dwCount + 1    Me.Caption = CStr(dwCount)End Sub

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

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

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

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