問題背景：

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

相關知識：

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

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

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

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

問題實現(xiàn)：

VB可不可以創(chuàng)建多線程呢？答案：VB本身不可以，但用API函數(shù)VB可以實現(xiàn)。

在VB中創(chuàng)建線程用到以下幾個API函數(shù)：

'創(chuàng)建線程API

'此API經(jīng)過改造，lpThreadAttributes改為Any型，lpStartAddress改為傳值引用：

'因為函數(shù)入口地址是由形參變量傳遞，如果用傳址那將傳遞形參變量的地址而不是函數(shù)的入口地址

' 參數(shù)dwStackSize為應用程序堆棧大小，lpStartAddress為函數(shù)入口地址

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,參數(shù)hThread為CreateThread創(chuàng)建的線程句柄

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函數(shù)后請看下面的實例：

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

實例的窗體布局見圖：

程序的工程窗口：

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