VB6中Text每变化一次，就重新启动一次Timer

Question

我使用的vb6.0，希望让text1每变化一次就重新启动一次timer1，代码怎么写呢？

Private Sub Text1_Change()
Timer1.Enabled = True
End Sub

上述代码执行时，只要text1发生变化，timer1就持续执行，中间再变化也无法停止，我希望中间发生变化时，timer1能重新启动。

Answer 1

是使用Timer控件用来计时吗？？如果是，那你需要做的是去改变Timer的interval值，同时要控制Enable属性的。

直接上代码吧
1、首先添加一个 Form 窗体，在 Form 窗体中添加 两个 TextBox 控件和一个Timer 控件，分别命名为 Text1、Text2、Timer1；
2、写如下代码：

Private Sub Text1_Change()
    
    Timer1.Enabled = True
    
    Timer1.Interval = Int((1000 - 100 + 1) * Rnd + 100)

End Sub

Private Sub Timer1_Timer()
    
    Text2.Text = Timer1.Interval
    
End Sub

3、运行程序，然后改变Text1 的值，看看Text2 的值的变化。