Changeset 536 for trunk/ab5.0/ablib/src/Classes/System/Threading/Thread.ab
- Timestamp:
- Jul 11, 2008, 1:24:57 AM (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/ab5.0/ablib/src/Classes/System/Threading/Thread.ab
r532 r536 19 19 20 20 Enum ThreadState 21 'スレッド状態に AbortRequested が含まれ、そのスレッドは停止していますが、状態はまだ Stopped に変わっていません。 21 'スレッド状態に AbortRequested が含まれ、そのスレッドは停止していますが、状態はまだ Stopped に変わっていません。 22 22 Aborted 23 'スレッド上で Thread.Abort メソッドを呼び出しますが、そのスレッドの終了を試みる保留中の System.Threading.ThreadAbortException をスレッドが受け取っていません。 23 'スレッド上で Thread.Abort メソッドを呼び出しますが、そのスレッドの終了を試みる保留中の System.Threading.ThreadAbortException をスレッドが受け取っていません。 24 24 AbortRequested 25 'スレッドは、フォアグラウンド スレッドではなく、バックグランド スレッドとして実行します。この状態は、Thread.IsBackground プロパティを設定して制御されます。 25 'スレッドは、フォアグラウンド スレッドではなく、バックグランド スレッドとして実行します。この状態は、Thread.IsBackground プロパティを設定して制御されます。 26 26 Background 27 'スレッドをブロックせずに起動します。保留中の ThreadAbortException もありません。 27 'スレッドをブロックせずに起動します。保留中の ThreadAbortException もありません。 28 28 Running 29 'スレッドを停止します。 29 'スレッドを停止します。 30 30 Stopped 31 'スレッドの停止を要求します。これは、内部でだけ使用します。 31 'スレッドの停止を要求します。これは、内部でだけ使用します。 32 32 StopRequested 33 'スレッドを中断します。 33 'スレッドを中断します。 34 34 Suspended 35 'スレッドの中断を要求します。 35 'スレッドの中断を要求します。 36 36 SuspendRequested 37 'スレッド上に Thread.Start メソッドを呼び出しません。 37 'スレッド上に Thread.Start メソッドを呼び出しません。 38 38 Unstarted 39 'スレッドがブロックされています。これは、Thread.Sleep または Thread.Join の呼び出し、ロックの要求 (たとえば、Monitor.Enter や Monitor.Wait の呼び出しによる)、または ManualResetEvent などのスレッド同期オブジェクトの待機の結果である可能性があります。 39 'スレッドがブロックされています。これは、Thread.Sleep または Thread.Join の呼び出し、ロックの要求 (たとえば、Monitor.Enter や Monitor.Wait の呼び出しによる)、または ManualResetEvent などのスレッド同期オブジェクトの待機の結果である可能性があります。 40 40 WaitSleepJoin 41 41 End Enum … … 144 144 End If 145 145 End Function 146 146 147 147 'Priority Property 148 148 Sub Priority(value As ThreadPriority) … … 177 177 178 178 Sub Start() 179 Dim ThreadId As DWord180 m_hThread= _beginthreadex(NULL,0,AddressOf(_run),VarPtr(This),CREATE_SUSPENDED,m_dwThreadId)179 Dim pfn = AddressOf(_run) As LONG_PTR 180 m_hThread=CreateThread(NULL,0,pfn As LPTHREAD_START_ROUTINE,VarPtr(This),CREATE_SUSPENDED,m_dwThreadId) 181 181 SetThreadPriority(m_hThread,m_Priority) 182 182 This.Resume() … … 216 216 /*------------------------ クラス内部用 --------------------------*/ 217 217 Private 218 Function Cdecl_run() As Long218 Function _run() As Long 219 219 '------------ 220 220 ' 前処理
Note:
See TracChangeset
for help on using the changeset viewer.