大家好,我是愛唱歌的蔡依琳,小妹作完演唱會回家就會練習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???????,好了,美美也該去練歌了
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???????,好了,美美也該去練歌了
全站熱搜
留言列表