求助!! vb问题

Question

在一个过程中,执行一段代码后,暂停一下,等待一个command1_click, 点击后再继续执行.
//窗体A的command1_click
private  sub command1_click()
 //一段代码
  暂停 等待窗体B command2_click事件执行完
//继续 代码
请问暂停这一块该如何实现?
谢谢!

Answer 1

Option Explicit
Dim b As BooleanPrivate Sub Command1_Click()
    MsgBox "OK one"
    Do While b = False
        DoEvents
    Loop
    MsgBox "OK two"
End SubPrivate Sub Command2_Click()
    b = True
End Sub

Answer 2

暂停:定义一个窗体级全局变量:Dim Pause as boolean程序初试化:
SUB FORM_LOAD
Pause=False
End sub具体实现,假设你的程序大体结构如下:
Sub Test()
For...
   ...
   Do while Pause
      Doevents
   Loop
...
Next
End Sub在TEST运行期间,通过TIMER控间或者其他事件使得:Pause=True
这时上面的那个Do循环就开始一直循环了,直到被设为False为止
比如通过这个按钮来继续执行:
Sub Command2_Click()
Pause=False
End sub

Answer 3

Windows是以事件驱动的多任务操作系统，为什么非要弄成DOS下的一样，还要等待呢？把等待后面的代码放到你想要执行完的程序事件的后面不就行了？═══════════════════
http://www.egooglet.com 资料、源码下载http://bbs.j2soft.cn 论坛交流
═══════════════════

Answer 4

Windows是以事件驱动的多任务操作系统，为什么非要弄成DOS下的一样，还要等待呢？把等待后面的代码放到你想要执行完的程序事件的后面不就行了？人家可能有原因呢