在Vb下實現多執行緒 (轉)

在Vb下實現多執行緒 (轉)[@more@]

新建一Module
Declare Function CreateThread Lib "kernel32" (lpThreadAttributes As Any, ByVal dwStackSize As Long, ByVal lpStartAddress As Long, lpParameter As Any, ByVal dwCreationFlags As Long, lpThreadID As Long) As Long
Declare Function CloseHandle Lib "kernel32" (ByVal h As Long) As Long

Sub main()
  Load Form1
  Form1.Show
End Sub
Public Sub c1()
  .......
End Sub

Public Sub c2()
  ...... 
End Sub

新建一窗體

Private hthread1 As Long
Private hthread2 As Long
Private ithread1 As Long
Private ithread2 As Long

Private Sub Command1_Click()

ithread1 = CreateThread(ByVal 0&, ByVal 0&, AddressOf c1, ByVal 0&, ByVal 0&, hthread1)  --建立執行緒一
ithread2 = CreateThread(ByVal 0&, ByVal 0&, AddressOf c1, ByVal 0&, ByVal 0&, hthread1)  --建立執行緒二

CloseHandle ithread1  --關閉執行緒一
CloseHandle ithread2  --關閉執行緒二

End Sub

Private Sub Form_Load()

End Sub