smokingtooless

Private Sub Disable_Click()
    Dim Response
    Dim oResult As Long
    Dim I
    NodeID.Text = m_wNodeId
    I = 1
    oResult = VCS_SetDisableState(m_KeyHandle, m_wNodeId, m_lErrorCode)
   
    'oResult = False everytime , so excute Do While ... Loop

    Do While I = 1
    If (oResult = False) Then
        Timer1.Enabled = False
      
        Timer2.Enabled = True
      
    End If
    Loop
End Sub
--------------------------------------
Private Sub Timer2_Timer()
  Dim Response
  Response = MsgBox("timer2", vbOKOnly, "Error", "", 0)
  Timer2.Enabled = False
End Sub

问题: 为什么执行后,不弹出msgbox"timer2" ?, 但是去掉Do While...Loop,却能弹出呢?

Alex

因为你的loop是死循环, 程序永远在loooooop

smokingtooless

那怎样改,才能又无限循环,又能执行Timer2_Time()里的事件?

smokingtooless

请问在VB中,还有什么语句可以精确delay time到ms ??

Alex

Do While I = 1
     If (oResult = False) Then
         Timer1.Enabled = False
        
         Timer2.Enabled = True
        break 'or something like this, i don't remember the VB syntax
     End If
     Loop