第1个回答 推荐于2016-06-21
正是因为只用do while,循环开始后界面不可操作,所以加上DoEvents ,加上后就可以操作了。
Do While wait
DoEvents
------------------------
改成这样虽然还是不停的循环,但是你只要在form2的Text2里输入"endusb"就可以结束循环。
**************************************************************
*注意:是你的代码里打的是"endusb",而不是"endsub",不要打错字*
**************************************************************
Private Sub usbopration_Click()
Dim wait As Boolean
wait = True
Slider1.Enabled = False
Do While wait
DoEvents
If form2.Text2.Text = "endusb" Then
Slider1.Enabled = True
wait = False
Exit Do
End If
Loop
wait = True
End Sub本回答被提问者采纳