怎样用VB写多线程

尽管vb5是apprentsingle-thread(单线程)的.但用addressof加上一些API,就可以非常容易的做多线程.(比VC容易的多,做出来的东西也一样快,因为都是用API).每一个县城(线程,下同)约占用20毫秒的时间片.

vb5有一个主线程.我们可以另外加一个工作线程.对于不清楚什么是单/多线程的程序元,我们用一个简单的列子来说明一下.
再form里加上两个timer控件.吧interval属性设成5000(5秒),然后在两个timer1_timer事件中放一个大loop,如for10000next.运行.你会看到第二个timer控件不会在五秒后执行,除非timer1的for-next结束.同样,如果你的程序中有大量的数据库读写.你的用户街面可能被"冻".这时,我们就需要用多县城来改进程序了.(当然你可以用DoEvents来避免被冻,但用DoEvents有横多副作用.这里不提).

我们用的第一个API是CreateThread,VB的格式是:

privatedeclarefunctionCreateThreadLib"kernel32"(byvalpThreadAttributesasany,byvaldwStackSizeaslong,byvallpStartAddressaslong,lpParameterasany,byvaldwCreationFlagsaslong,lpThreadIDaslong)aslong.(从vbAPItextviewer中拿是最真确的语法)

CreateThread的参数指出你将要创立的县城是什么样子的.CreateThread的返回值是一个县城的handle.这里是vb的多县城初始化程序:

PublicSubInitialize(lpfnBasFuncaslong)
dimdwStackSizeaslong
dimdwCreationFlagsaslong
dimlpThreadIdaslong
dimlpParameteraslong
dimmyNullaslong
myNull=0&'createanullpointer
dwStackSize=0'0表示用exestacksize
dwCreationFlags=4'用4表示初始化后先不激活,让别人来激活.
Me.Thread=CreateThread(myNull,dwStackSize,lpfnBasFunc,myNull,dwCreationFlags,lpThreadId)
ifMe.Thread=myNullthen
Msgbox"createthreadfailed"
endif
endSub
下面是两个API用来激活/暂定该线程.

privatedeclarefunctionResumeThreadlib"kernel32"(byvalhThreadaslong)aslongprivatedeclarefunctionSuspendThreadlib"kernel32"(byvalhThreadaslong)aslong

让我们来用一个变量表示当前县城的状态.
publicThreadStatusasboolean
在vb里,可用property来实现ThreadStatus的管理.

PublicpropertyLetEnabled(byvalvNewValueasboolean)
ifvNewValue=trueandMe.ThreadStatus=falsethen
ResumeThreadMe.Thread
Me.ThreadStatus=True
elseifMe.ThreadStatus=truethen
SuspendThreadMe.Thread
Me.ThreadStatus=False
endif
endProperty

这个简单的类可以用NewObject来引用:
'makenewthreadobject
dimmyThreadasNewclsThreads
'创建县城Foo
myThread.InitializeAddressOfFoo
'激活县城
myThread.Enabled=True

执行后,你可以用PVIEW95.EXE看到你的线程.
你还可以提高你的线程的优先级.
SetThreadPriority'设优先级GetThreadPriority'查优先级

你把以上的程序加入timer例子,就会看到两个timer同时运行.
这里要提醒一下.vb5的开发环境是单县城的.如果你的程序写错,或中断后试图恢复,往往会出错,有时是GPF错.总之,用vb写多线程可以写出和VC一样快的程序.而且开发容易的多,开发速度也快得多.

抛砖引玉.希望能看到兽经,虎经,鳖经.....->