首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

! vb有关问题

2012-02-24 
求助!! vb问题在一个过程中,执行一段代码后,暂停一下,等待一个command1_click,点击后再继续执行.//窗体A的

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

[解决办法]
Option Explicit
Dim b As Boolean

Private Sub Command1_Click()
MsgBox "OK one "
Do While b = False
DoEvents
Loop
MsgBox "OK two "
End Sub

Private Sub Command2_Click()
b = True
End Sub

[解决办法]
暂停:

定义一个窗体级全局变量:

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

热点排行