在VB中創建線程用到以下幾個API函數:
-------------------------------------------------------------
'創建線程API
'此API經過改造,lpThreadAttributes改爲Any型,lpStartAddress改爲傳值引用:
'因爲函數入口地址是由形參變量傳遞,如果用傳址那將傳遞形參變量的地址而不是函數的入口地址
' 參數dwStackSize爲應用程序堆棧大小,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,參數hThread爲CreateThread創建的線程句柄
Private Declare Function ResumeThread Lib "kernel32" (ByVal hThread As Long) As Long
------------------------------------------------------------
'掛起線程API
Private Declare Function SuspendThread Lib "kernel32" (ByVal hThread As Long) As Long