VB多线程示例！

窗体代码昌悄唤：Private Sub Command1_Click()

'为addnumber过程创运简建线程

Call CreateNewThread(AddressOf addnumber)

End Sub

Private Sub Command2_Click()

TerminateTh '终止线程

Unload Me'结束程序

End Sub

模块耐凯：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

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

Private Declare Function SetThreadPriority Lib "kernel32" (ByVal hThread As Long, ByVal nPriority As Long) As Long

Private Declare Function GetThreadPriority Lib "kernel32" (ByVal hThread As Long) As Long

Private Declare Function ResumeThread Lib "kernel32" (ByVal hThread As Long) As Long

Private Declare Function SuspendThread Lib "kernel32" (ByVal hThread As Long) As Long

Private Declare Function GetCurrentThread Lib "kernel32" () As Long

Private Declare Function GetCurrentThreadId Lib "kernel32" () As LongPrivate Const MAXLONG = &H7FFFFFFF

Private Const THREAD_BASE_PRIORITY_IDLE = -15

Private Const THREAD_BASE_PRIORITY_LOWRT = 15

Private Const THREAD_BASE_PRIORITY_MAX = 2

Private Const THREAD_BASE_PRIORITY_MIN = -2

Private Const THREAD_PRIORITY_HIGHEST = THREAD_BASE_PRIORITY_MAX

Private Const THREAD_PRIORITY_LOWEST = THREAD_BASE_PRIORITY_MIN

Private Const THREAD_PRIORITY_ABOVE_NORMAL = (THREAD_PRIORITY_HIGHEST - 1)

Private Const THREAD_PRIORITY_BELOW_NORMAL = (THREAD_PRIORITY_LOWEST + 1)

Private Const THREAD_PRIORITY_ERROR_RETURN = (MAXLONG)

Private Const THREAD_PRIORITY_IDLE = THREAD_BASE_PRIORITY_IDLE

Private Const THREAD_PRIORITY_NORMAL = 0

Private Const THREAD_PRIORITY_TIME_CRITICAL = THREAD_BASE_PRIORITY_LOWRT

Private Const CREATE_ALWAYS = 2

Private Const CREATE_NEW = 1

Private Const CREATE_NEW_CONSOLE = &H10

Private Const CREATE_NEW_PROCESS_GROUP = &H200

Private Const CREATE_NO_WINDOW = &H8000000

Private Const CREATE_PROCESS_DEBUG_EVENT = 3

Private Const CREATE_SUSPENDED = &H4

Private Const CREATE_THREAD_DEBUG_EVENT = 2Public Enum ThreadPriority

tpLowest = THREAD_PRIORITY_LOWEST

tpBelowNormal = THREAD_PRIORITY_BELOW_NORMAL

tpNormal = THREAD_PRIORITY_NORMAL

tpAboveNormal = THREAD_PRIORITY_ABOVE_NORMAL

tpHighest = THREAD_PRIORITY_HIGHEST

End EnumPrivate mThreadHandle As Long'示例

Function addnumber() As Long

Dim i As Long

For i = 0 To 100000

Form1.Label1.Caption = i

Next

End Function'创建线程

Public Function CreateNewThread(ByVal cFunction As Long) As Long

Dim mhandle As Long

Dim lpThreadID As Long

mhandle = CreateThread(ByVal 0&, ByVal 0&, cFunction, ByVal 0&, 0, lpThreadID)

If mhandle <>0 Then mThreadHandle = mhandle

End Function'终止线程

Public Function TerminateTh() As Long

SuspendThread mThreadHandle

TerminateThread mThreadHandle, ByVal 0&

TerminateThread lpThreadID, ByVal 0&

End Function

VB NET（Visual Basic NET）是为适应Microsoft NET框架的需要 对Visual Basic进行了重大改造后的开发工具 它比Visual Basic 功能更强大 更易于使用 其中最重要的变化就是对象继承 在VB NET中 所有可管理的类型都衍生自System Object 作为编程工具 最重要的一个特性就是垃圾碎片的回收 它由CLR（Common Language Runtime）进行控制 并提供更好的内存管理功能 通用的类型定义可以提供更好的互 *** 作性和协同工作能力 因此 VB NET显得更强大 更具可靠性 在VB NET中 大多数CLR内建的类型都在System名字空间里已经定义了 比如 System Object System Int 和 System String 要注意的是 一个名字空间可能嵌在另一个名字空间内 象System Data里就有System Data DataSet的类 代表是CLR编程模型很重要的一个新概念 代表是一个特殊类型的可管理的类 当你创建一个代表的实例时 你必须提供一个带有匹配签名的方法执行的地址 一旦创建了一个代表的实例 调用方法将变的很容易 过去 我们利用VB开发多线程的应用程序时 是一件很令人痛苦的事 经常是多线程的程序运行是会变成多错误的程序！但在VB NET中 这种状况已经大为改观 现在 我们利用VB NET处理多线程和利用JAVA处理多线程一样简单了 下面我们就举个例子 来看看VB NET的多线程吧！下面是多线程程序threadtest vb的代码 imports Systemimports System Threadingpublic class AClasspublic sub Method ()Dim i as integerFor i = to Console Writeline( 这是类AClass方法method 的内容 i)nextend subpublic sub Method ()Dim i as integerFor i = to Console Writeline( 这是类AClass方法method 的内容 i)橘态指nextend subend classpublic class ThreadTestpublic shared sub Main()dim obj as new aclassdim th th as thread闭棚th =new Thread(new ThreadStart(addressof thod ))th startth =new Thread(new ThreadStart(addressof thod ))th startdim i as integerFor i= to Console WriteLine( Main方法里的内容 i)Nextend subend class现在 来让我们剖析一下上面的例子 我们创建了我们自己的类AClass 并创建了两个方法 Method 和Method 这两个方法很简单 只有一个For循环 向输出设备输出一些信息 我们还定义了另外一个类ThreadTest来使用上面创建的类AClass 在Main()方法中 我们创建了类Thread的实例 类Thread可以在System Threading名字空间里得到 它定义了处理线程的属性和方法 在类Thread的构造器中 我们使用了类ThreadStart 类ThreadStart是一个代表 标志着当一个线程开始时就开始执行定义的方法 为了执行定义的方法 我们实际调用的是线程的Start()方法 用VBC来编译上面的程序 vbc /out:threadtest exe threadtest vb 运行编译后的程序 我们将会看到我们定义的两个方法和main()方法的混合输出 这就说明每一个方法都在自己的线程下运行 除圆配了上面的方法 线程还有下面常用的方法 Stop():停止线程的运行 Suspend() 暂停线程的运行 Resume() 继续线程的运行 Sleep() 停止线程一段时间（单位为毫秒） lishixinzhi/Article/program/net/201311/11287

很简单，调用API函数CreateThread

但销芹是用vb做简斗衫多线程的关键不在于创建，而是在于线程的不稳定，其不稳定是拦腔由于vb6自身的控件（如按钮、文本框等）不是线程安全的，怎么用你程序就可能怎么挂，所以这些个玩样儿在多线程中统统不能用。

那么UI的实现也得用API实现。这样vb的多线程才相对要稳定。但是vb的可视化开发的优势又荡然无存。

---