設定執行緒在指定的 CPU 上執行
threadAffinityMask | Integer | 4 | 可省略 | -1 | 允許執行此執行緒 CPU 的旗標值 |
無傳回值
For i As Integer = 1 To 2 Dim nowThread As New Threading.Thread(AddressOf DoBigLoop) nowThread.Start() Next Private Sub DoBigLoop() SetThreadRunAtProcesser(&HC) ' 設定跑在 3, 4 CPU Dim rtn As Double Dim i, addInt As Integer For i = 1 To 50000 ObjectToHex(i + rtn) Next End Sub
threadAffinityMask 為旗標參數,代表允許執行執行緒的 CPU ,3 = 1 Or 2,代表允許在第 1 、第 2 顆 CPU 上分別執行。
Visual Studio .Net 2002 以後相容版本 | Process.vb
|