VB創建多線程應用程序(一)

問題背景：

有時候我們做程序時有這樣的需求：有一個需要運行時間很長的循環，那么程序只有等待循環運行結束后才執行別的程序代碼，這樣機器一直處于循環之中，而不能響應別的事情，對CPU資源來說是一種浪費，那么可不可以既讓循環執行，又可以執行程序另外的一部分代碼呢？答案是可以的，那就要用到多線程了。

相關知識：

進程：是指程序在一個數據集合上運行的過程，是操作系統進行資源分配和調度運行的一個獨立單位，簡單來說進程就是程序的一次執行。

進程的兩個基本屬性：1.進程是一個可擁有資源的獨立單位；2. 進程同時又是一個可以獨立調度和分配的基本單位。

操作系統中引入進程的目的是為了使多個程序并發執行，以改善資源利用率及提高系統的吞吐量。

線程：線是進程中的一個實體，是被系統獨立調度和分配的基本單位。線程自己基本上不擁有系統資源，只擁有一些在運行中必不可少的資源，但它可與同屬一個進程的其他線程共享進程所擁有的全部資源。同一個進程中的多個線程之間可以并發執行。

問題實現：

VB可不可以創建多線程呢？答案：VB本身不可以，但用API函數VB可以實現。

在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

了解完上面的API函數后請看下面的實例：

實例效果：此實例實現三個圖片框的背景色一起變色。

實例的窗體布局見圖：

程序的工程窗口：

源代碼見:《VB創建多線程應用程序(二)》

原文轉自：http://www.anti-gravitydesign.com