大家好,我是愛唱歌的蔡依琳,小妹作完演唱會回家就會練習VB,昨晚發現一問題,程式碼如下:
Private Sub Command1_Click()
Dim CNT0 As Long
      CNT0 = 0
      Do
      DoEvents
        Text1.Text = CNT0
        CNT0 = CNT0 + 1
        If CNT0 > 100000 Then CNT0 = 0
      Loop
End Sub
Private Sub Command2_Click()
Dim CNT0 As Long
      CNT0 = 0
      Do
      DoEvents
        Text2.Text = CNT0
        CNT0 = CNT0 + 1
        If CNT0 > 100000 Then CNT0 = 0
      Loop
End Sub
請注意,此段程式碼分別由兩個COMMAND控制啟動無窮迴圈,TEXT顯示計數值,當COMMAND1 按下之後,TEXT1會正常顯示計數值,問題來了,當COMMAND2按下後,TEXT2也正常顯示計數值,但TEXT1卻停住了,WHY???????,好了,美美也該去練歌了
arrow
arrow
    全站熱搜

    vbqa 發表在 痞客邦 留言(2) 人氣()