尽管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一样快的程序.而且开发容易的多,开发速度也快得多.
　　
　　抛砖引玉.希望能看到兽经,虎经,鳖经.....->