{"id":124,"date":"2006-05-10T21:19:25","date_gmt":"2006-05-10T13:19:25","guid":{"rendered":"http:\/\/tmp.xujiwei.com\/blog\/?p=124"},"modified":"2010-01-29T12:56:00","modified_gmt":"2010-01-29T04:56:00","slug":"vb-multithread-class","status":"publish","type":"post","link":"https:\/\/xujiwei.com\/blog\/2006\/05\/vb-multithread-class\/","title":{"rendered":"[VB] \u4e00\u4e2a\u64cd\u4f5c\u591a\u7ebf\u7a0b\u7684\u7c7b"},"content":{"rendered":"

\u6839\u636e\u70b9\u775b\u5de5\u4f5c\u5ba4\u7684\u591a\u7ebf\u7a0b\u7c7b\u6539\u5199\u7684\uff0c\u4e0d\u8fc7\u6ca1\u6709\u7ecf\u8fc7\u4e25\u683c\u6d4b\u8bd5\uff0c\u597d\u50cf\u5de5\u4f5c\u4e0d\u662f\u5f88\u7a33\u5b9a\uff0c\u5982\u679c\u4f7f\u7528\u4e0d\u5f53\u4f1a\u51fa\u9519\u7684\u8bf4\u3002<\/p>\n

\n
\n
Option Explicit<\/span><\/div>\n

\n<\/span><\/div>\n
Private Type SECURITY_ATTRIBUTES<\/span><\/div>\n

\n<\/span><\/div>\n
nLength As Long<\/span><\/div>\n

\n<\/span><\/div>\n
lpSecurityDescriptor As Long<\/span><\/div>\n

\n<\/span><\/div>\n
bInheritHandle As Long<\/span><\/div>\n

\n<\/span><\/div>\n
End Type<\/span><\/div>\n

\n<\/span><\/div>\n
Private Declare Function CreateThread Lib \"kernel32\" (lpThreadAttributes As SECURITY_ATTRIBUTES, ByVal dwStackSize As Long, ByVal lpStartAddress As Long, ByVal lpParameter As Long, ByVal dwCreationFlags As Long, lpThreadId As Long) As Long<\/span><\/div>\n

\n<\/span><\/div>\n
Private Declare Function CreateThreadL Lib \"kernel32\" Alias \"CreateThread\" (ByVal lpThreadAttributes As Long, ByVal dwStackSize As Long, ByVal lpStartAddress As Long, ByVal lpParameter As Long, ByVal dwCreationFlags As Long, lpThreadId As Long) As Long<\/span><\/div>\n

\n<\/span><\/div>\n
Private Declare Function TerminateThread Lib \"kernel32\" (ByVal hThread As Long, ByVal dwExitCode As Long) As Long<\/span><\/div>\n

\n<\/span><\/div>\n
Private Declare Function SetThreadPriority Lib \"kernel32\" (ByVal hThread As Long, ByVal nPriority As Long) As Long<\/span><\/div>\n

\n<\/span><\/div>\n
Private Declare Function GetThreadPriority Lib \"kernel32\" (ByVal hThread As Long) As Long<\/span><\/div>\n

\n<\/span><\/div>\n
Private Declare Function ResumeThread Lib \"kernel32\" (ByVal hThread As Long) As Long<\/span><\/div>\n

\n<\/span><\/div>\n
Private Declare Function SuspendThread Lib \"kernel32\" (ByVal hThread As Long) As Long<\/span><\/div>\n

\n<\/span><\/div>\n
Private Declare Function GetCurrentThread Lib \"kernel32\" () As Long<\/span><\/div>\n

\n<\/span><\/div>\n
Private Declare Function GetCurrentThreadId Lib \"kernel32\" () As Long<\/span><\/div>\n

\n<\/span><\/div>\n
Private Declare Sub ExitThread Lib \"kernel32\" (Optional ByVal dwExitCode As Long = 0)<\/span><\/div>\n

\n<\/span><\/div>\n
Private Declare Function GetLastError Lib \"kernel32\" () As Long<\/span><\/div>\n

\n<\/span><\/div>\n
' \u5e38\u6570\u5e38\u91cf<\/span><\/div>\n

\n<\/span><\/div>\n
Private Const MAXLONG = &H7FFFFFFF<\/span><\/div>\n

\n<\/span><\/div>\n
' \u7ebf\u7a0b\u4f18\u5148\u7ea7\u5e38\u91cf<\/span><\/div>\n

\n<\/span><\/div>\n
Private Const THREAD_BASE_PRIORITY_IDLE = -15<\/span><\/div>\n

\n<\/span><\/div>\n
Private Const THREAD_BASE_PRIORITY_LOWRT = 15<\/span><\/div>\n

\n<\/span><\/div>\n
Private Const THREAD_BASE_PRIORITY_MAX = 2<\/span><\/div>\n

\n<\/span><\/div>\n
Private Const THREAD_BASE_PRIORITY_MIN = -2<\/span><\/div>\n

\n<\/span><\/div>\n
Private Const THREAD_PRIORITY_HIGHEST = THREAD_BASE_PRIORITY_MAX<\/span><\/div>\n

\n<\/span><\/div>\n
Private Const THREAD_PRIORITY_IDLE = THREAD_BASE_PRIORITY_IDLE<\/span><\/div>\n

\n<\/span><\/div>\n
Private Const THREAD_PRIORITY_LOWEST = THREAD_BASE_PRIORITY_MIN<\/span><\/div>\n

\n<\/span><\/div>\n
Private Const THREAD_PRIORITY_NORMAL = 0<\/span><\/div>\n

\n<\/span><\/div>\n
Private Const THREAD_PRIORITY_TIME_CRITICAL = THREAD_BASE_PRIORITY_LOWRT<\/span><\/div>\n

\n<\/span><\/div>\n
Private Const THREAD_PRIORITY_ABOVE_NORMAL = (THREAD_PRIORITY_HIGHEST - 1)<\/span><\/div>\n

\n<\/span><\/div>\n
Private Const THREAD_PRIORITY_BELOW_NORMAL = (THREAD_PRIORITY_LOWEST + 1)<\/span><\/div>\n

\n<\/span><\/div>\n
Private Const THREAD_PRIORITY_ERROR_RETURN = (MAXLONG)<\/span><\/div>\n

\n<\/span><\/div>\n
' \u7ebf\u7a0b\u521b\u5efa\u6807\u5fd7<\/span><\/div>\n

\n<\/span><\/div>\n
Private Const CREATE_ALWAYS = 2<\/span><\/div>\n

\n<\/span><\/div>\n
Private Const CREATE_NEW = 1<\/span><\/div>\n

\n<\/span><\/div>\n
Private Const CREATE_NEW_CONSOLE = &H10<\/span><\/div>\n

\n<\/span><\/div>\n
Private Const CREATE_NEW_PROCESS_GROUP = &H200<\/span><\/div>\n

\n<\/span><\/div>\n
Private Const CREATE_NO_WINDOW = &H8000000<\/span><\/div>\n

\n<\/span><\/div>\n
Private Const CREATE_PROCESS_DEBUG_EVENT = 3<\/span><\/div>\n

\n<\/span><\/div>\n
Private Const CREATE_SUSPENDED = &H4<\/span><\/div>\n

\n<\/span><\/div>\n
Private Const CREATE_THREAD_DEBUG_EVENT = 2<\/span><\/div>\n

\n<\/span><\/div>\n
' \u7ebf\u7a0b\u4f18\u5148\u7ea7\u7ed3\u6784<\/span><\/div>\n

\n<\/span><\/div>\n
Public Enum ThreadPriority<\/span><\/div>\n

\n<\/span><\/div>\n
Lowest = THREAD_PRIORITY_LOWEST<\/span><\/div>\n

\n<\/span><\/div>\n
BelowNormal = THREAD_PRIORITY_BELOW_NORMAL<\/span><\/div>\n

\n<\/span><\/div>\n
Normal = THREAD_PRIORITY_NORMAL<\/span><\/div>\n

\n<\/span><\/div>\n
AboveNormal = THREAD_PRIORITY_ABOVE_NORMAL<\/span><\/div>\n

\n<\/span><\/div>\n
Highest = THREAD_PRIORITY_HIGHEST<\/span><\/div>\n

\n<\/span><\/div>\n
End Enum<\/span><\/div>\n

\n<\/span><\/div>\n
Private mAttrib As SECURITY_ATTRIBUTES<\/span><\/div>\n

\n<\/span><\/div>\n
Private mEnabled As Boolean<\/span><\/div>\n

\n<\/span><\/div>\n
Private mThreadHandle As Long<\/span><\/div>\n

\n<\/span><\/div>\n
Private mThreadID As Long<\/span><\/div>\n

\n<\/span><\/div>\n
Private mTerminate As Boolean<\/span><\/div>\n

\n<\/span><\/div>\n
Public Property Get ThreadID() As Long<\/span><\/div>\n

\n<\/span><\/div>\n
ThreadID = mThreadID<\/span><\/div>\n

\n<\/span><\/div>\n
End Property<\/span><\/div>\n

\n<\/span><\/div>\n
Public Property Get ThreadHandle() As Long<\/span><\/div>\n

\n<\/span><\/div>\n
ThreadHandle = mThreadHandle<\/span><\/div>\n

\n<\/span><\/div>\n
End Property<\/span><\/div>\n

\n<\/span><\/div>\n
Public Function Create(ByVal cFunction As Long, Optional ByVal cPriority As ThreadPriority, Optional ByVal cEnabled As Boolean = True) As Long<\/span><\/div>\n

\n<\/span><\/div>\n
Dim CreateFlag As Long<\/span><\/div>\n

\n<\/span><\/div>\n
If mThreadHandle <> 0 Then TerminateMe<\/span><\/div>\n

\n<\/span><\/div>\n
mEnabled = cEnabled<\/span><\/div>\n

\n<\/span><\/div>\n
If mEnabled Then<\/span><\/div>\n

\n<\/span><\/div>\n
CreateFlag = CREATE_NEW<\/span><\/div>\n

\n<\/span><\/div>\n
Else<\/span><\/div>\n

\n<\/span><\/div>\n
CreateFlag = CREATE_SUSPENDED<\/span><\/div>\n

\n<\/span><\/div>\n
End If<\/span><\/div>\n

\n<\/span><\/div>\n
mAttrib.nLength = Len(mAttrib)<\/span><\/div>\n

\n<\/span><\/div>\n
mThreadHandle = CreateThreadL(0, 0, cFunction, 0&, CreateFlag, mThreadID)<\/span><\/div>\n

\n<\/span><\/div>\n
If mThreadHandle = 0 Then<\/span><\/div>\n

\n<\/span><\/div>\n
MsgBox \"Create thread failed!Error code:\" & GetLastError, vbOKOnly Or vbCritical, \"Error\"<\/span><\/div>\n

\n<\/span><\/div>\n
End If<\/span><\/div>\n

\n<\/span><\/div>\n
End Function<\/span><\/div>\n

\n<\/span><\/div>\n
Public Sub SuspendMe()<\/span><\/div>\n

\n<\/span><\/div>\n
If mThreadHandle = 0 Or mEnabled = False Then Exit Sub<\/span><\/div>\n

\n<\/span><\/div>\n
If SuspendThread(mThreadHandle) <> -1 Then<\/span><\/div>\n

\n<\/span><\/div>\n
mEnabled = False<\/span><\/div>\n

\n<\/span><\/div>\n
Else<\/span><\/div>\n

\n<\/span><\/div>\n
MsgBox \"Suspend thread failed!Error code:\" & GetLastError, vbOKOnly Or vbCritical, \"Error\"<\/span><\/div>\n

\n<\/span><\/div>\n
End If<\/span><\/div>\n

\n<\/span><\/div>\n
End Sub<\/span><\/div>\n

\n<\/span><\/div>\n
Public Sub ResumeMe()<\/span><\/div>\n

\n<\/span><\/div>\n
If mThreadHandle = 0 Or mEnabled = True Then Exit Sub<\/span><\/div>\n

\n<\/span><\/div>\n
If ResumeThread(mThreadHandle) <> -1 Then<\/span><\/div>\n

\n<\/span><\/div>\n
mEnabled = True<\/span><\/div>\n

\n<\/span><\/div>\n
Else<\/span><\/div>\n

\n<\/span><\/div>\n
MsgBox \"Resume thread failed!Error code:\" & GetLastError, vbOKOnly Or vbCritical, \"Error\"<\/span><\/div>\n

\n<\/span><\/div>\n
End If<\/span><\/div>\n

\n<\/span><\/div>\n
End Sub<\/span><\/div>\n

\n<\/span><\/div>\n
Public Sub TerminateMe()<\/span><\/div>\n

\n<\/span><\/div>\n
If mThreadHandle = 0 Then Exit Sub<\/span><\/div>\n

\n<\/span><\/div>\n
TerminateThread mThreadHandle, 0<\/span><\/div>\n

\n<\/span><\/div>\n
mThreadHandle = 0<\/span><\/div>\n

\n<\/span><\/div>\n
'mTerminate = True<\/span><\/div>\n

\n<\/span><\/div>\n
'Do<\/span><\/div>\n

\n<\/span><\/div>\n
' \u00a0 \u00a0DoEvents <\/span><\/div>\n

\n<\/span><\/div>\n
'Loop Until mTerminate<\/span><\/div>\n

\n<\/span><\/div>\n
End Sub<\/span><\/div>\n

\n<\/span><\/div>\n
Private Sub Class_Terminate()<\/span><\/div>\n

\n<\/span><\/div>\n
'TerminateThread mThreadHandle, 0<\/span><\/div>\n

\n<\/span><\/div>\n
End Sub<\/span><\/div>\n<\/div>\n<\/blockquote>\n","protected":false},"excerpt":{"rendered":"

\u6839\u636e\u70b9\u775b\u5de5\u4f5c\u5ba4\u7684\u591a\u7ebf\u7a0b\u7c7b\u6539\u5199\u7684\uff0c\u4e0d\u8fc7\u6ca1\u6709\u7ecf\u8fc7\u4e25\u683c\u6d4b\u8bd5\uff0c\u597d\u50cf\u5de5\u4f5c\u4e0d\u662f\u5f88\u7a33\u5b9a\uff0c\u5982\u679c\u4f7f …<\/p>\n

\u7ee7\u7eed\u9605\u8bfb »<\/a><\/p>\n","protected":false},"author":2,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":[],"categories":[5],"tags":[83,76],"_links":{"self":[{"href":"https:\/\/xujiwei.com\/blog\/wp-json\/wp\/v2\/posts\/124"}],"collection":[{"href":"https:\/\/xujiwei.com\/blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/xujiwei.com\/blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/xujiwei.com\/blog\/wp-json\/wp\/v2\/users\/2"}],"replies":[{"embeddable":true,"href":"https:\/\/xujiwei.com\/blog\/wp-json\/wp\/v2\/comments?post=124"}],"version-history":[{"count":0,"href":"https:\/\/xujiwei.com\/blog\/wp-json\/wp\/v2\/posts\/124\/revisions"}],"wp:attachment":[{"href":"https:\/\/xujiwei.com\/blog\/wp-json\/wp\/v2\/media?parent=124"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/xujiwei.com\/blog\/wp-json\/wp\/v2\/categories?post=124"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/xujiwei.com\/blog\/wp-json\/wp\/v2\/tags?post=124"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}