vb实现多线程

《vb实现多线程》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、vb实现多线程！2006年10月17日星期二上午01:05昨晚2:30的时候还没睡着，觉得有必要把vb编写多线程程序再次写一次；主要是以前忽略的细节和重要的环节；今天在公司打开一年多没用的vb，写了如下的代码；想写多线程的朋友可以调试一下看看，关于多线程的任务模式，同步和互斥，临界资源和..昨晚2:30的时候还没睡着，觉得有必要把vb编写多线程程序再次写一次；主要是以前忽略的细节和重要的环节；今天在公司打开一年多没用的vb，写了如下的代码；想写多线程的朋友可以调试一下看看，关于多线程的任务模式，同步和互斥

2、，临界资源和临界区（文中提到）欢迎跟帖讨论；'请将该部分数据保存为FORM1.frm文件VERSION5.00BeginVB.FormForm1 Caption      =  "多线程"  ClientHeight   =3195  ClientLeft     =  60  ClientTop     =345  ClientWidth    =6450  LinkTopic     =  "Form1"  ScaleHeight    =3195  ScaleWidth     =6450  Sta

3、rtUpPosition=  3 '窗口缺省  BeginVB.TextBoxText1   Height       =270 Left       =960     TabIndex    =2 Text       ="2" Top       =2760  Width       =2415 End  BeginVB.CommandButtonCommand2    Caption      =  "返回"   Height       =255 Left       =3480     TabI

4、ndex    =1 Top       =2760  Width       =1455 End  BeginVB.CommandButtonCommand1    Caption      =  "StartCount"   Height       =255 Left       =3480     TabIndex    =0 Top       =240  Width       =1455 End  BeginVB.LabelLabel1     AutoSize   =  -1'True  

5、  Caption      =  "主线程执行结果测试:"   Height       =180 Left       =600     TabIndex    =3 Top       =2400  Width       =1710  EndEndAttributeVB_Name="Form1"AttributeVB_GlobalNameSpace=FalseAttributeVB_Creatable=FalseAttributeVB_PredeclaredId=TrueAttributeVB_E

6、xposed=False PrivateSubCommand1_Click()'声明了线程ID   Dimthreadid1AsLong   Dimthreadid2AsLong'参数一，lpThreadAttributes线程安全属性，传递为NULL'参数二，dwStackSize，线程堆栈大小，可以为0，表示堆栈和此应用堆栈相同'参数三，lpstartAddress，执行函数地址，用AddressOf获取'参数四，lpParameter，执行函数的参数地址，可以是一个记录或者是别的类型，用VarPtr

7、获取参数地址（varptr为未公开函数）！！'参数五，dwCreationFlags，表示线程创建后的状态！，0表示立即运行，create_SUSPENDED表示线程挂起'参数六，lpThreadID表示分配给线程的线程号   CallCreateThread(Null,ByValO&,AddressOfModule1.OutText1,VarPtr(0),ByVal0&,threadid1)   CallCreateThread(Null,ByVal0&,AddressOfModule1.OutText

8、2,VarPtr(0),ByVal0&,threadid2)   EndSubPrivateSubCommand2_Click()'该事件运行于主线程！   DimiAsLong   i=CLng(Text1.Text)   Text1.Text=CStr(i*i) '不要点击次数太多，LONG类型会溢出EndSubPrivateSubForm_Load()'保存窗体句柄全局变量，用于在form上绘图   formhandle