如何在VB6里面实现稳定的多线程-----受人启发而写

微软官方给出的方案在MSDN里面有说,就是使用ActiveX EXE那种"单元线程模型".

我也曾经试过,的确可以实现"多线程",只是由于要多一个EXE,比较麻烦,后来就没有深入了.

结果一次无意中在VBGOOD中看到一段代码,才打通了一个关节:为什么不直接使用ActiveX EXE写程序呢?!

那段代码里面,是直接使用这种工程类型,然后在工程内使用CreateObject来生成一个新对象,这样的话,新的对象就工作于一个单元线程内了.

其实这个我也知道,可是就没有想到在ActiveX EXE内部使用

看来思路真的不如人.....还要多多学习,多多积累.

ActiveX EXE工程设置为"独立启动"后,貌似只能从Sub Main里进行初始化.

而每个对象的建立,都会调用一次这个过程,因此这个过程需要一次性运行.

但是MSDN里说得很清楚,在单元线程模型里面,全局变量的范围只能是本单元,因此不能使用设置全局变量来完成这个过程的一次运行逻辑.

原代码里使用了GetProp等方式,感觉不是很好,于是作了一下改进,使用事件对象来完成此工作.

Sub Main相关代码如下:

Private   Const  MyEvent  As   String   =   " m5home "   
Dim  hEvent  As   Long   
  
Sub  Main()   
     If  GetEventHandle  =   0   Then       ' 由于每个新对象的建立,都要执行Main()过程,因此使用事件对象来进行判断.   
        hEvent  =  CreateEvent( 0 & ,  False ,  False , MyEvent)             ' 在单元线程下,模块里的全局变量已经没有用了.   
        frmMain.Show   
     End   If   
End Sub   
  
Private   Function  GetEventHandle()  As   Long   
    GetEventHandle  =  OpenEvent(EVENT_ALL_ACCESS,  False , MyEvent)   
     Call  CloseHandle(GetEventHandle)   
End Function   
  
Public   Function  Quit()   
     Call  CloseHandle(hEvent)   
End Function   
Private   Const  MyEvent  As   String   =   " m5home "
Dim  hEvent  As   Long

Sub  Main()
     If  GetEventHandle  =   0   Then       ' 由于每个新对象的建立,都要执行Main()过程,因此使用事件对象来进行判断.
        hEvent  =  CreateEvent( 0 & ,  False ,  False , MyEvent)             ' 在单元线程下,模块里的全局变量已经没有用了.
        frmMain.Show
     End   If
End Sub

Private   Function  GetEventHandle()  As   Long
    GetEventHandle  =  OpenEvent(EVENT_ALL_ACCESS,  False , MyEvent)
     Call  CloseHandle(GetEventHandle)
End Function

Public   Function  Quit()
     Call  CloseHandle(hEvent)
End Function

由于事件对象是系统范围的,因此可以比较完美的完成这个工作.

同时事件对象在进程消失后,会自动释放,也方便:)

示例代码可以生成一个新的单元线程,并在这个线程里面显示一个窗体,窗体进行一个大循环.

循环内没有放入DoEvents函数,因此会造成循环所在窗体无响应.

而此时主窗体不受影响.

对象间可以通过一般的调用与事件来进行通讯.

完整的代码,在此下载:

[url=http://www.m5home.com/blog/article.asp?id=54][/url]

希望能为没落的VB6带来一丝活力:)