下文是本人在公司技术月刊发表的一片文章。
前几周，OceanRay在论坛中问了关于vb中实现线程的问题。当时我比较忙，只是匆匆给他找了一点参考资料。当巴乔找到我，让我为第一期电子月刊写一篇windows专题的时候，我首先想到了OceanRay的问题。当时，我踌躇满志地想花点时间，写出一个真正有效的VB的多线程例子。最后还是放弃了。果真如Daniel Appleman所说，尽管VB允许调用Windows API来做一些高级工作，但是，在VB中使用线程相关API是十分危险的。几个小时的程序调试，换来的是不停的莫名其妙的内存访问错误。因为我比较缺乏线程编程经验，不得已，换了一个简单一点的题目。 開'�櫂"n
在网上粗略地搜了一下，发现虽然有很多代码介绍了用Timer控件来实现动画效果，但是好像没有人试图用Timer控件来模拟线程。即便有相关的讨论（参考文献[3]），也存在很多质疑。根据以前项目的经验，我写了一个小例子，用VB的Timer控件来模拟多线程。 AB�7fh[�
1．什么是多线程？多线程比单线程“快吗”？ J孟玆Z婂C
线程是操作系统运行程序的基本单元。单线程是指一个程序在一个线程中运行。多线程是指一个程序启动多个线程来“同时”执行代码片断。请注意这里的同时是加了引号的。因为那是人类的错觉而已。对于一个单CPU的计算机，根本不存在“同时”这个概念。因为同一时间点，CPU只能执行某个线程的一个指令。举个例子，你打算在程序中做10件相同的任务。如果每个任务要花费1秒。那么，在单线程程序中，总共花费的时间就是10秒。如果用户通过点击按钮来启动任务，那么，他就必须在10秒钟之后才能使用这个程序的其他功能。假如你把10件任务放在10个线程中来执行，效果完全不同了。操作系统会花费了1秒钟在这些线程之间进行调度。那么，所有任务执行所用的时间就是11秒。由于使用了多线程，用户点击按钮之后可以马上使用其它功能。所以，在运行时间上，多线程要比单线程慢。但是，在用户响应时间上，多线程遥遥领先。
2.Timer控件是在创建另外一个线程来执行代码的吗？ y� v{犓
回答是否定的。让我们来看个例子就知道了。
Private Sub Timer1_Timer(Index As Integer) u菤_)讹鎘
Dim i As Long IK媕碾Un
For i = 0 To 100000 (帥嗶�
‘DoEvents 9|1�1��
Text1.Text = CStr(i) ,兛d熀戚
Next i 稯e�爖叙�
End Sub
Timer1的Timer事件函数中，有一个大循环。
Private Sub Command1_Click() 臟盻g琏拷�
MsgBox "Interrupted!" 妗Yw�"{
End Sub
l顾�8馤C
代码1
hOr-蕿A##
当Timer开始运行后，我们点击Command1，画面没有反应。当Timer1一次执行完毕之后，消息框突然弹了出来。 湂LU榭鷮�
结论：VB的代码都是运行在一个线程之中的。Timer控件也不例外。我们还可以做一个实验证明Timer并不是使用多线程。将Timer1的Interval属性设置为1（相当于1毫秒），结果，Timer1并没有一秒钟执行了1000次。实际的Interval是大循环执行所花费的时间。
3．DoEvents——VB的“软中断” ]�5,}N|�
当我们把代码1中DoEvents的注释去掉后，发现程序的表现不一样了。循环开始后，画面依然响应用户的动作。当点击Command1时，消息框立即弹出，Timer1的事件也立刻停止执行。当消息框关闭后，Timer1的时间又恢复执行。 衲j)櫚殾�
结论：VB中的DoEvents关键字与线程中的Suspend或者Sleep的作用很相似。都是让当前代码段让出CPU时间给其他代码。不同之处在于线程是操作系统低层的支持，效率高；而DoEvents是利用windows的消息系统实现的“软中断”。
4．多Timer对多线程 澘/TS烫s，
通常的多线程程序，都创建不止一个线程。为了模拟真正的多线程，我们需要在代码中动态增加Timer的数量。
Private WithEvents newTimer As VB.Timer �6]���輓
…… r昕揑tv树�
Set newTimer = Controls.Add("vb.Timer", "Timer2", Form1) 6釼Qp鮛
…… vzMk���
Private Sub newTimer_Timer() r軰2Z� 嚏�
End Sub 薂爤鎝蕨
……
霷槙$�=R9
代码2
通过如上方式，我们可以在Form1中动态添加Timer2。虽然，每个Timer执行的代码逻辑都可以不同，但是，由于所有的逻辑事先写好，所以不能实现真正的动态添加。后来，我找到了参考文献[4]中的代码，感觉可以实现真正的动态添加。遗憾的是时间仓促，没有来得及实践。
Private Sub Timer1_Timer() ⒌fN锅鈺!l
work Timer1.Name *籪 鈝u盽�
End Sub
Private Sub newTimer_Timer() 額棻藣m菘�
work newTimer.Name S� 錰炐�
End Sub
Private Sub work(name As String) 抋Y貎杓丽
Debug.Print "in--------------------------" + name QJ-%樈4D=
\嵏�嫷呺m
Dim i As Long 1S+�馽�:�
For i = 0 To 1000 $崲4Pj綗
DoEvents
講L沅�2
Text1.Text = CStr(i) @葮�獥S�
Next i 璩楾�3抍$
Debug.Print "out-------------------------" + name q �!e[|'〕
End Sub
J�::鸡扞�
代码3
我在两个Timer事件中调用同一个函数，参数分别是两个Timer的名字。以下是控制台的输出： ?|<>�S 澁
…… TL钰R媭==)
in--------------------------Timer1 �Gx邟�
in--------------------------newTimer ei�*滊M
out-------------------------newTimer 辎�>醃R�,
out-------------------------Timer1 袡p<柺�=0�
in--------------------------newTimer O;禒C緐�
in--------------------------Timer1 媔轨疥J�8�
out-------------------------Timer1 豆騦W鐃�
out-------------------------newTimer d�
3]Q\鷒>
in--------------------------Timer1 z堯=痝L髭!
in--------------------------newTimer 鑌{7�3葐W�
out-------------------------newTimer O鐸#蜂~ 蠔
out-------------------------Timer1 佗x
镢8棻\
in--------------------------newTimer 噍R閸+A�
in--------------------------Timer1 韄6d稯ДJ
out-------------------------Timer1 鱓_��痺d{�
out-------------------------newTimer ��I椘+退g
in--------------------------Timer1 �l1X蛪<
in--------------------------newTimer �3譑~�
out-------------------------newTimer Ｔ郃頃de�
out-------------------------Timer1 H否",慰袙j
……
L熃u呼鶝�
代码4
结论：通过在VB的Timer控件中灵活使用DoEvents，我们模拟多线程的效果。
5．Timer中的同步 Oc}�%�qX
在使用windows线程API的时候，我们可以使用信号灯或者临界区API来进行共享数据的同步。VB中没有这样的机制，需要我们在编程的时候根据信号灯的原理，来设置一些公共变量来充当同步标志。
后记： F<帞~h摲
和OceanRay沟通后，了解到他们打算在VB中使用多线程是因为想把一个数据库操作逻辑封装函数放在线程中执行。因为这个函数在执行的时候是阻塞的，导致运行过程中程序不响应用户操作。而且用户还希望随时可以终止这个操作。他们设想如果把函数放在另外一个线程中执行，既可以让程序立即响应用户操作，又可以随时随地通过杀死线程的API来结束操作。这样看来，本文的方法对他们不会有太大帮助。因为如果想终止Timer的执行，必须等待Timer事件的逻辑全部执行完毕之后才行。看来，我们还得想点别的办法。也许，我们可以在下期月刊可以找到答案！ )/ DXp0
期待大家的指正！
pw�%厩鈣g
参考文献：
[1]A Thread to Visual Basic: Multi-Threading In VB5 and VB6 Daniel Appleman http://www.freevbcode.com/ShowCode.Asp?ID=1287 p��
-4囫
[2]《Advanced Visual Basic》 Matthew Curland 1-� ^~X'伬
[3]http://bbs.gameres.com/showthread.asp?threadid=47556 偢 屃�,�0�
[4]http://www.vbsight.com/Zips/ControlArrayAtRuntime.zip � '凃}蟂