[原创]如何在VB6里面实现稳定的多线程(VB6.0代码)

马大哈 · 发表于 2008-3-10 12:19:39

微软官方给出的方案在MSDN里面有说,就是使用ActiveX EXE那种"单元线程模型". 我也曾经试过,的确可以实现"多线程",只是由于要多一个EXE,比较麻烦,后来就没有深入了. 结果一次无意中在VBGOOD中看到一段代码,才打通了一个关节:为什么不直接使用ActiveX EXE写程序呢?! 那段代码里面,是直接使用这种工程类型,然后在工程内使用CreateObject来生成一个新对象,这样的话,新的对象就工作于一个单元线程内了. 其实这个我也知道,可是就没有想到在ActiveX EXE内部使用 <img style="MARGIN-TOP: 0px; MARGIN-LEFT: 0px; MARGIN-RIGHT: 0px" alt="" src="http://www.m5home.com/blog/images/smilies/27.gif" border="0" -2px? 0px="0px" 0px?/> 看来思路真的不如人.....还要多多学习,多多积累. ActiveX EXE工程设置为"独立启动"后,貌似只能从Sub Main里进行初始化. 而每个对象的建立,都会调用一次这个过程,因此这个过程需要一次性运行. 但是MSDN里说得很清楚,在单元线程模型里面,全局变量的范围只能是本单元,因此不能使用设置全局变量来完成这个过程的一次运行逻辑. 原代码里使用了GetProp等方式,感觉不是很好,于是作了一下改进,使用事件对象来完成此工作. Sub Main相关代码如下:
<div class="dp-highlighter">
<ol class="dp-vb">
<li class="alt">Private Const MyEvent As String = "m5home"  </li>
<li class="">Dim hEvent As Long  </li>
<li class="alt">  </li>
<li class="">Sub Main()   </li>
<li class="alt">    If GetEventHandle = 0 Then     '由于每个新对象的建立,都要执行Main()过程,因此使用事件对象来进行判断.   </li>
<li class="">        hEvent = CreateEvent(0&, False, False, MyEvent)            '在单元线程下,模块里的全局变量已经没有用了.   </li>
<li class="alt">        frmMain.Show   </li>
<li class="">    End If  </li>
<li class="alt">End Sub  </li>
<li class="">  </li>
<li class="alt">Private Function GetEventHandle() As Long  </li>
<li class="">    GetEventHandle = OpenEvent(EVENT_ALL_ACCESS, False, MyEvent)   </li>
<li class="alt">    Call CloseHandle(GetEventHandle)   </li>
<li class="">End Function  </li>
<li class="alt">  </li>
<li class="">Public Function Quit()   </li>
<li class="alt">    Call CloseHandle(hEvent)   </li>
<li class="">End Function  </li></ol></div>
<textarea class="vb" style="DISPLAY: none" name="code" rows="15" cols="100">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</textarea> 由于事件对象是系统范围的,因此可以比较完美的完成这个工作. 同时事件对象在进程消失后,会自动释放,也方便

示例代码可以生成一个新的单元线程,并在这个线程里面显示一个窗体,窗体进行一个大循环. 循环内没有放入DoEvents函数,因此会造成循环所在窗体无响应. 而此时主窗体不受影响. 对象间可以通过一般的调用与事件来进行通讯. 完整的代码,在此下载:
 
<a href="http://www.m5home.com/blog/article.asp?id=54">http://www.m5home.com/blog/article.asp?id=54</a>

马大哈 · 发表于 2008-7-11 14:35:51

做一个对象数组,用CreateObject加载这些对象即可.

ccccjjjj · 发表于 2008-11-5 09:02:38

请问一下，如果我要加载n个线程怎么做？

ttyy6 · 发表于 2009-4-15 14:50:06

<div class=quote>以下是引用马大哈在2008-7-11 14:35:51的发言： 

做一个对象数组,用CreateObject加载这些对象即可.

</div>

请教几个问题
1 Dim WithEvents I As cMT 是不能用数组定义的，怎么用数组创建呢

2 新建的线程如何修改一个公共的变量，比如说就是frmmain可以读取的公共数组呢？

3 能否不用窗体实现多线程，例如我有个 function gethttp(url)as string 函数

你的代码怎样修改可以只让这个函数实现多线程而不用加载窗体，以便增加速度呢，最好可以每个线程的数据都放在一个公共数组内

我现在的方法是，比如说想用200个线程，我定义并创建了200次然后销毁，这个过程中，主窗体还是不能响应的

另外加楼主qq说让用临时会话，但是你有禁止了临时会话，怎么和你联系呢？

[此贴子已经被作者于2009-4-15 14:50:39编辑过]

ttyy6 · 发表于 2009-4-15 15:00:26

你的qq加好友答案是什么呢

ttyy6 · 发表于 2009-4-15 15:02:27

我想实现如下效果

定义 all(200) as string 数组
定义 function gethttp(url)as string 函数

然后创建 200个线程

每个线程都用gethttp函数获得内容让在all(200)内

恳请楼主指导一下，能否顺便写个示例，其他代码尽可能的少，我来测试一下效率，看看怎么样

dabingrain · 发表于 2009-5-30 08:22:34

多线程，感觉总是不稳定

马大哈 · 发表于 2009-5-30 20:12:32

<div class="msgheader">QUOTE:</div><div class="msgborder">以下是引用dabingrain在2009-5-30 8:22:34的发言： 
多线程，感觉总是不稳定</div>
研究VB6下面的多线程的人本身就不多.
 
能做稳定的就更少了.

马大哈 · 发表于 2009-4-23 23:28:35

<div class="msgheader">QUOTE:</div><div class="msgborder">以下是引用ttyy6在2009-4-15 14:50:06的发言： 
请教几个问题 1 Dim WithEvents I As cMT 是不能用数组定义的，怎么用数组创建呢 2 新建的线程如何修改一个公共的变量，比如说就是frmmain可以读取的公共数组呢？ 3 能否不用窗体实现多线程，例如我有个 function gethttp(url)as string 函数你的代码怎样修改可以只让这个函数实现多线程而不用加载窗体，以便增加速度呢，最好可以每个线程的数据都放在一个公共数组内我现在的方法是，比如说想用200个线程，我定义并创建了200次然后销毁，这个过程中，主窗体还是不能响应的另外加楼主qq说让用临时会话，但是你有禁止了临时会话，怎么和你联系呢？
<div align="right">[此贴子已经被作者于2009-4-15 14:50:39编辑过]</div></div>
第一个问题,"Dim WithEvents I As cMT 是不能用数组定义的，怎么用数组创建呢"
 
使用数组并还要处理事件,VB6里是不能直接定义的,需要一点小技巧.
 
先写个类,在这个类里面完成你需要声明事件的那个对象的代码,也就是说事件在这个"包装类"里面.
 
然后使用普通数组方式定义这个类即可,每个对象在这个包装类里面是可以处理各自的事件的,而包装类又不存在事件的问题.
 
虽然占内存多了些,但不失为一种折中的方案.
 
第二个问题,"新建的线程如何修改一个公共的变量，比如说就是frmmain可以读取的公共数组呢？"
 
由于VB6的线程是单元内的线程,因此公共变量虽然能访问,但仅能访问线程创建时的那份"复本",即,真正的公共变量即便被改变了,在线程的"单元房间"内,还是只能看到这个"线程房间"创建时的那个公共变量的复本.
 
因此要在多线程里面访问公共变量是比较麻烦的.
 
折中方案又来了:
 
你可以把一个类声明到模块里,再在各线程创建后,将此类的实例传进去,让各个线程直接访问这个对象.
 
可以看出,这样做虽然能达到公共变量的访问与共享,但却由于线程间调度频繁,效率比较低,尽量地少用吧.
 
第三个问题,"能否不用窗体实现多线程，例如我有个 function gethttp(url)as string 函数你的代码怎样修改可以只让这个函数实现多线程而不用加载窗体，以便增加速度呢"
 
单元里面,可以放的东西是COM规范的东西,所以,无论是窗体,还是类的实例,都是可以放进去的.
 
只要你在创建实例时,使用CreateObject即可.
 
用它创建的对象,就已经在另一个"单元"里面了.
 
另,我的QQ确实是满了,没办法....可以加我MSN:     myjian01(##)yahoo.com.cn 
 
你也可以加我的群:
 
10413004
 
请注明在论坛上的ID即可

everyone · 发表于 2010-6-18 01:42:29

tingyan · 发表于 2010-10-7 03:35:22

换成 ActiveX DLL 行不行？

马大哈 · 发表于 2010-10-7 10:46:30

换成 ActiveX DLL 行不行？
tingyan 发表于 2010-10-7 03:35

貌似不可以

tingyan · 发表于 2010-10-7 11:19:29

貌似不可以
马大哈发表于 2010-10-7 10:46

谢谢

账号		自动登录	找回密码
密码			加入我们

[原创]如何在VB6里面实现稳定的多线程(VB6.0代码)

论坛牛人

贡献奖

关注奖

最佳版主

进步奖

人气王

疯狂作品奖

精英奖

赞助论坛勋章

乐于助人勋章