新手急求：如何从程序中跳出来

Question

我想添加command2和command3，目的是:当command1控件正在执行它的程序时，点击command2，可以从command1中的程序跳出来,然后点击command3,重新执行command1！请问，command2和command3的程序代码是什么？

Answer 1

点command1控件执行什么程序呢？

Answer 2

dim tch as boolean
command1_click()
do
  ......
loop until tch = true
end sub
command2_click()
tch=true
end sub
command3_click()
tch=false
end sub

Answer 3

就是你上面的代码了，加上一句调用Command1_Click语句就OK:Dim tch As Boolean
Private Sub Command1_click()
    Do
      ......
      DoEvents  '最好在这里加上这句，不然运行起来会像死机一样
    Loop Until tch = True
End Sub
Private Sub Command2_click()
    tch = True
    Call Command1_Clidk '让Command1_Click里的事件重新执行
End Sub
Private Sub Command3_click()
    tch = False
End Sub

Answer 4

上面打错了字母Call Command1_Click '让Command1_Click里的事件重新执行

Answer 5

DoEvents
请问是什么意思啊？用途是什么？

Answer 6

DoEvents的意思是将控制权交还给系统，实际上就是处理系统积压的消息

Answer 7

楼上的说得对,用doevents,
设一个全局变量,在command3点击后把这个变量设为false
在command2中要对这个变量做检测,在为false就退出command2程序段