VB一个事件中执行到一半怎样等待另一个事件执行完毕再继续执行下面的语句?

[lele]

紧急求助!50分的"题"噢!

[zhq2000]

用Windows 的 Event
API(详细用法请看MSDN Library):
CreateEvent
CloseHandle
SetEvent
ResetEvent
WaitForSingleObject

设在事件A要等待事件B执行完毕后再继续执行：
(a) 在程序开始用CreateEvent建立一事件X；
(b) 在事件B的开始调用ResetEvent设置事件X；
(c) 在事件B的结束调用SetEvent触发事件X；
(d) 在事件A中要等B结束的地方调用WaitForSingleObject以等待X的触发（也就是B结 束）；
(e) 在程序结束的地方用CloseHandle关闭事件X。

注：
1.如果发生事件A发生则事件B也一定发生的话，则（b）改为：
(b) 在事件A的开始调用ResetEvent设置事件X；
2.如果A发生而B不一定会发生则，要在（d）中加入条件：
if B发生 then
WaitForSingleObject X事件句柄，INFINITE
end if

[sc74]

请再讲得详细点？

[flywhc]

用DOEVENTS不成吗？
public finished as boolean
........
sub xxx()
....
while finished
DoEvents
WEnd
...
End Sub
VB用多线程同步麻烦

[zcom]

很简单,用DoEvents方法!!!

[zhq2000]

请收例子email!

[zhq2000]

另种方法是用一全局变量来判断！