Question

急求：Visual Basic 6.0 点击一个按钮触发倒计时，再点击其他按钮，不影响时间倒计时，怎么做？

Visual Basic 6.0： 点击一个“开始”按钮触发倒计时，再点击此界面的其他按钮，不影响时间倒计时，怎么做？非常感谢

Answer 1

1. 使用Timer 控件实现。

2. Timer 控件，引发 Timer 事件，Timer 控件可以有规律地隔一段时间执行一次代码。

   按仿改则钮Click事件控制歼誉Timer控件的Enabled 属性。

3. 在其它按钮Click事件中用DoEvents 函数，转让控制权，以便让操作系统处理其它的事件。

Option Explicit
    Dim I As Long

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

Private Sub Form_Load()
    Timer1.Enabled = False
    Timer1.Interval = 1000
    I = 120
    Text1 = I
End Sub

Private Sub Timer1_Timer()
    I = I - 1
    Text1 = I
    If I = 0 Then Timer1.Enabled = False
End Sub

Private Sub Command2_Click()
    Dim j
    For j = 1 To 10000000000#
    j = j + 1
    Text2 = j
    DoEvents
 备棚   Next
End Sub