'你要结合一楼和二楼的说法才行,在循环中没有DoEvents可能在循环过程中就无法响应系统了(比如按钮按下之类的动作)' Tip:其实很多问题在以前的贴子里都有过很好的解答,我建议大家提问前先搜一下以前的贴子,会节约很多时间的. ' ' Author:吴文智 ' Date:2001-11-15 'Description:要试用本例请在窗体中填加一个按钮 ' 然后在代码窗体中粘贴如下代码 ' Good luck!Option Explicit'这个条件变量要定义成窗体级,就是各个过程都可以访问 Private RunCondition As BooleanPrivate Sub Test() RunCondition = True Do While RunCondition DoEvents '做所需的操作 Loop End SubPrivate Sub Command1_Click() RunCondition = False End Sub
'
' Author:吴文智
' Date:2001-11-15
'Description:要试用本例请在窗体中填加一个按钮
' 然后在代码窗体中粘贴如下代码
' Good luck!Option Explicit'这个条件变量要定义成窗体级,就是各个过程都可以访问
Private RunCondition As BooleanPrivate Sub Test()
RunCondition = True
Do While RunCondition
DoEvents
'做所需的操作
Loop
End SubPrivate Sub Command1_Click()
RunCondition = False
End Sub