vb实现多线程.docVIP

vb实现多线程！ 作者：佚名??来源：整理??发布时间：2005-12-16 13:48:24??发布人：Polari 减小字体 增大字体 下载地址:/vbThread.rar? Private?Sub?Command1_Click()?声明了线程ID?????Dim?threadid1?As?Long?????Dim?threadid2?As?Long? 参数一，lpThreadAttributes?线程安全属性，传递为NULL?参数二，dwStackSize?，线程堆栈大小，可以为0，表示堆栈和此应用堆栈相同?参数三，lpstartAddress?，执行函数地址，用AddressOf?获取?参数四，lpParameter?，执行函数的参数地址，可以是一个记录或者是别的类型，用VarPtr获取参数地址（varptr为未公开函数）！！?参数五，dwCreationFlags?，表示线程创建后的状态！，0表示立即运行，create_SUSPENDED表示线程挂起?参数六，lpThreadID?表示分配给线程的线程号?????Call?CreateThread(Null,?ByVal?O,?AddressOf?Module1.OutText1,?VarPtr(0),?ByVal?0,?threadid1)?????Call?CreateThread(Null,?ByVal?0,?AddressOf?Module1.OutText2,?VarPtr(0),?ByVal?0,?threadid2)?????End?Sub? Private?Sub?Command2_Click()?该事件运行于主线程！?????Dim?i?As?Long?????i?=?CLng(Text1.Text)?????Text1.Text?=?CStr(i?*?i)??不要点击次数太多，LONG?类型会溢出?End?Sub? Private?Sub?Form_Load()?保存窗体句柄全局变量，用于在form?上绘图?????formhandle?=?Form1.hwnd?End?Sub?----------------------------------?请将该部分数据保存为?Module1.bas?文件?Attribute?VB_Name?=?Module1? 线程安全属性数据结构；?Public?Type?SECURITY_ATTRIBUTES????????nLength?As?Long?????????lpSecurityDes criptor?As?Long?????????bInheritHandle?As?Long?End?Type? 这个是用于多线程访问临界资源同步Api的数据结构?Public?Type?CRITICAL_SECTION?????dummy?As?Long?End?Type?为什么用GDI?函数绘图？原因等下再讲?Public?Declare?Function?GetDC?Lib?user32?(ByVal?hwnd?As?Long)?As?Long?Public?Declare?Function?SetBkColor?Lib?gdi32?(ByVal?hdc?As?Long,?ByVal?crColor?As?Long)?As?Long?Public?Declare?Function?TextOut?Lib?gdi32?Alias?TextOutA?(ByVal?hdc?As?Long,?ByVal?x?As?Long,?ByVal?y?As?Long,?ByVal?lpString?As?String,?ByVal?nCount?As?Long)?As?Long?Public?Declare?Function?ReleaseDC?Lib?user32?(ByVal?hwnd?As?Long,?ByVal?hdc?As?Long)?As?Long?请注意；createThread?APi声明已被我修改过，修改的地方请自行参照APIView复制的内容?Public?Declare?Function?CreateThread?Lib?kernel32?(lpThreadAttributes?As?Any,?ByVal?dwStackSize?As?Long,?ByVal?lpStartAddress?As?Long,?ByVal?lpParameter?As?Long,?ByVal?dwCreationFlags?As?Long,?lpThreadId?As?Long)?As?Long?这个是sleep,作用就是让两个线程绘图频率不一致，效果才