LongTick = GetTickCount

           While GetTickCount - LongTick < 10

           Wend

       Next

       Set myThreadright = Nothing

End Sub

类模块中的代码：

''''功能：创建多线程类，用于初始化线程。   类名：cls_Thread 

''''参数：LongPointFunction 用于接收主调过程传递过来的函数地址值

''''调用方法：1.声明线程类对象变量 Dim mythread as cls_Thread

''''          2.调用形式：With mythread

''''                         .Initialize AddressOf 自定义过程或函数名 ''''(初始化线程) .

''''                         .ThreadEnabled = True                  ''''(设置线程是否激活)

''''                      End With                                       

''''          3.终止调用： Set mythread = Nothing                                                                           

''''   Crate By : 陈宇 On 2004.5.10     Copyright(C).Ldt By CY-soft 2001--2004                       

''''   Email:4y4ycoco@163.com　 　　　　　　　　　                                                   

''''   Test On： VB6.0+Win98  AND  VB6.0+WinXP     It''''s Pass ！                                   

Option Explicit

''''创建线程API

''''此API经过改造，lpThreadAttributes改为Any型，lpStartAddress改为传值引用：

''''因为函数的入口地址由形参变量传递，如果用传址那将传递形参变量的地址而不是函数的入口地址

Private Declare Function CreateThread Lib "kernel32" (ByVal lpThreadAttributes As Any, ByVal dwStackSize As Long, ByVal lpStartAddress As Long, lpParameter As Any, ByVal dwCreationFlags As Long, LpthreadId As Long) As Long

''''终止线程API

Private Declare Function TerminateThread Lib "kernel32" (ByVal hThread As Long, ByVal dwExitCode As Long) As Long

''''激活线程API

Private Declare Function ResumeThread L

上一页  [1] [2] [3] [4] [5]  下一页