- Visual Basic實(shí)例精通
- 柴相花等編著
- 266字
- 2019-03-01 14:47:16
第4章 過程
在前面的章節(jié)中分別介紹了VB語言基礎(chǔ)中的基本概念、數(shù)組、語句，這些是VB編程的基礎(chǔ)。除了以上知識(shí)外，VB的語言基礎(chǔ)還包括過程，一個(gè)大的系統(tǒng)往往有很多個(gè)過程組成，每個(gè)過程都是系統(tǒng)的一個(gè)小的邏輯部件。過程可以分為子過程和過程函數(shù)，其中子過程表示響應(yīng)事件時(shí)執(zhí)行的代碼塊，包括通用過程和事件過程兩種。通用過程表示供很多個(gè)事件過程調(diào)用的過程，是為了避免代碼的重復(fù)書寫；事件過程表示某個(gè)對(duì)象的事件得到觸發(fā)時(shí)，執(zhí)行的代碼段。過程函數(shù)也表示一個(gè)獨(dú)立的過程，不過，可以返回一個(gè)值到調(diào)用的過程，并且兩者的語法不同，這些內(nèi)容都是本章要詳細(xì)介紹的內(nèi)容。
4.1 可變參數(shù)的例子
過程調(diào)用的過程中通常伴隨有參數(shù)的傳遞，傳遞參數(shù)的類別多種多樣。本節(jié)介紹一種可變參數(shù)，即傳遞的參數(shù)的數(shù)量沒有提前確定，只有當(dāng)傳遞時(shí)才確定數(shù)量大小。本節(jié)要介紹的實(shí)例是計(jì)算輸入數(shù)據(jù)的和。
技術(shù)要點(diǎn)
在本實(shí)例中主要使用的技術(shù)是事件過程、通用過程和不定數(shù)量的參數(shù)，主要功能和用法如下：
●事件過程，主要用于當(dāng)VB中某個(gè)對(duì)象的事件被觸發(fā)時(shí)，執(zhí)行相應(yīng)操作的代碼段，事件過程分為窗體事件過程和控件事件過程。
●通用過程，主要用于供一個(gè)或多個(gè)事件過程調(diào)用的子過程，完成事件過程中的某個(gè)功能。
●不定數(shù)量的參數(shù)，表示被調(diào)用過程接受實(shí)參的個(gè)數(shù)是不確定的，即可以接受任意個(gè)數(shù)的參數(shù)。以關(guān)鍵字ParaArray作為標(biāo)識(shí)。
窗體事件過程的具體語法如下：
Private Sub Form或MDIForm_事件名（[參數(shù)表]）
[局部變量或常量聲明]
[語句塊]
End Sub
控件事件過程的具體語法為：
Private Sub控件名_事件名（[參數(shù)表]）
[局部變量或常量的聲明]
[語句塊]
End Sub
通用過程沒有通用的語法標(biāo)準(zhǔn)，具體描述如下：
Private Sub用戶自定義過程名（[形參數(shù)表]）
[局部變量或常量的聲明]
[語句塊]
End Sub
實(shí)現(xiàn)代碼
Dim x ＇定義可變類型變量
Dim y，VSum As Long ＇定義長(zhǎng)整型變量
＇求和子過程
Private Sub sumx（ParamArray ArrC（））
Dim i As Integer ＇定義整型變量
For i = 0 To UBound（ArrC）
TxtData.Text = TxtData.Text & ArrC（i）&＂＂ ＇來讀每個(gè)參數(shù)
Next
For Each x In ArrC（） ＇遍歷數(shù)組中的每個(gè)元素
y = y + x ＇求和
Next x
VSum = y ＇把最終結(jié)果賦值給VSum
End Sub
＇計(jì)算和
Private Sub CmdCalculate_Click（）
sumx 1，2，6，9，8，15，6，2 ＇賦參數(shù)
TxtSum.Text = VSum ＇顯示最終的和
End Sub
＇退出系統(tǒng)
Private Sub CmdExit_Click（）
Unload Me ＇卸載窗體
End Sub
單擊工具欄中的保存按鈕
，保存工程，然后單擊工具欄中的啟動(dòng)按鈕
，運(yùn)行工程，程序運(yùn)行結(jié)果如圖4.1 所示。輸入數(shù)據(jù)，并單擊“計(jì)算和”按鈕時(shí)，程序運(yùn)行結(jié)果如圖4.2所示。
圖4.1 程序運(yùn)行初始狀態(tài)界面圖
圖4.2 計(jì)算和之后的界面圖
然后單擊工具欄中的結(jié)束按鈕
，或者單擊運(yùn)行窗口的關(guān)閉按鈕
，結(jié)束程序的運(yùn)行。
源程序解讀
（1）代碼首先定義了一個(gè)可變型變量x，兩個(gè)長(zhǎng)整型變量y和VSum。
（2）當(dāng)單擊“CmdCalculate”命令按鈕時(shí)，就觸發(fā)CmdCalculate_ Click（）事件，這就用到事件過程Private Sub CmdCalculate_ Click（），在該過程中，執(zhí)行計(jì)算輸入數(shù)據(jù)和的操作，首先調(diào)用自定義的子過程sumx，并傳遞可變型參數(shù)。
（3）在自定義的子過程Private Sub sumx（ParamArray ArrC（））中，可以看到形式參數(shù)是一個(gè)可變型數(shù)組，用來接收傳遞的可變型變量。在該過程中，首先定義循環(huán)變量i。然后運(yùn)用For循環(huán)語句，由文本框控件TxtData顯示輸入的數(shù)據(jù)。最后運(yùn)用For Each循環(huán)語句，遍歷數(shù)組中的元素，并計(jì)算數(shù)據(jù)的和，最后把計(jì)算出來的和賦值給變量VSum。
（4）接著轉(zhuǎn)到調(diào)用過程，把計(jì)算出來的和由“TxtSum”文本框顯示出來。
（5）當(dāng)單擊“CmdExit”命令按鈕時(shí)，就觸發(fā)CmdExit_ Click（）。這就用到另一個(gè)事件過程Private Sub CmdExit_ Click（）。在該過程中，運(yùn)用Unload語句卸載當(dāng)前窗體。
4.2 數(shù)組作為過程參數(shù)
在上一節(jié)中介紹了可變參數(shù)的運(yùn)用，其中要重點(diǎn)注意參數(shù)的傳遞方法和參數(shù)的定義方式。在前面已經(jīng)介紹過數(shù)組的相關(guān)概念，本節(jié)主要介紹數(shù)組作為過程參數(shù)的用法。
技術(shù)要點(diǎn)
本實(shí)例中主要用到的技術(shù)是過程參數(shù)的傳遞方式。過程參數(shù)的傳遞方式有按值傳遞和按地址傳遞。
●按值傳遞參數(shù)，傳遞的只是變量的副本，當(dāng)在過程中改變了變量的值，改變的只是副本，不會(huì)影響變量本身。按值傳遞參數(shù)的標(biāo)志是關(guān)鍵字ByVal。
●按地址傳遞參數(shù)，傳遞的是存儲(chǔ)變量的內(nèi)存地址，當(dāng)在過程中改變了變量的值，就會(huì)永久性的改變變量本身，一般在VB中默認(rèn)的是按照地址傳遞參數(shù)，本實(shí)例中就是按照地址傳遞的方式傳遞數(shù)組變量，當(dāng)在過程中給數(shù)組排序時(shí)，數(shù)組也隨之改變，所以再次顯示數(shù)組時(shí)，便是排序后的結(jié)果，不過運(yùn)用按地址傳遞參數(shù)時(shí)要注意對(duì)變量值的改變。
實(shí)現(xiàn)代碼
Dim ArrValue（4，4） ＇定義數(shù)組變量
Private Sub cmdArray_Click（）
Call Sort（ArrValue（）） ＇調(diào)用過程 Sort
For i = 1 To 4
＇顯示排序后的矩陣值
Text1（i + 3）.Text = ArrValue（1，i） ＇顯示數(shù)組第一行
Text2（i + 3）.Text = ArrValue（2，i） ＇顯示數(shù)組第二行
Text3（i + 3）.Text = ArrValue（3，i） ＇顯示數(shù)組第三行
Text4（i + 3）.Text = ArrValue（4，i） ＇顯示數(shù)組第四行
Next
End Sub
＇用數(shù)組作過程參數(shù)
Sub Sort（ByRef arrTemp（））
Dim i，j As Integer ＇定義兩個(gè)整型變量
For i = 1 To 4 ＇外循環(huán)
For j = 1 To 4 ＇內(nèi)循環(huán)
arrTemp（i，j）= i + j ＇給數(shù)組排序
Next
Next
End Sub
Private Sub Form_Load（）
Dim i，j As Integer ＇定義兩個(gè)整型變量
For i = 1 To 4 ＇外循環(huán)
For j = 1 To 4 ＇內(nèi)循環(huán)
ArrValue（i，j）= 10 * i+j ＇給數(shù)組賦初值
Next
＇顯示要排序的矩陣值
Text1（i - 1）.Text = ArrValue（1，i） ＇顯示數(shù)組第一行
Text2（i - 1）.Text = ArrValue（2，i） ＇顯示數(shù)組第二行
Text3（i - 1）.Text = ArrValue（3，i） ＇顯示數(shù)組第三行
Text4（i - 1）.Text = ArrValue（4，i） ＇顯示數(shù)組第四行
Next
End Sub
按Ctrl+S組合鍵，保存工程，然后按F5鍵運(yùn)行工程。單擊啟動(dòng)按鈕時(shí)，程序運(yùn)行結(jié)果如圖4.3所示。單擊“調(diào)用排序過程”按鈕時(shí)，程序運(yùn)行結(jié)果如圖4.4所示。
圖4.3 調(diào)用排序過程前的界面圖
圖4.4 調(diào)用排序過程后的界面圖
源程序解讀
（1）首先定義局部全局?jǐn)?shù)組變量ArrValue，主要用于排序。
（2）在Form_ Load（）事件中，首先定義兩個(gè)整型變量i和j作為循環(huán)變量。然后運(yùn)用For循環(huán)的嵌套語句給數(shù)組賦值，并用文本框控件顯示數(shù)組。
（3）當(dāng)單擊“cmdArray”命令按鈕時(shí)，就觸發(fā)cmdArray_ Click（）事件。在該事件中，用Call語句調(diào)用排序過程Sort并以數(shù)組ArrValue（）作為實(shí)在參數(shù)。
（4）在Sort過程中，以ByRef arrTemp（）作為形參，接受傳遞的參數(shù)。首先定義兩個(gè)整型i和j作為循環(huán)變量。然后運(yùn)用For循環(huán)的嵌套語句排序數(shù)組，并轉(zhuǎn)換到調(diào)用的cmdArray_Click（）事件中，最后由文本框數(shù)組顯示排序后的結(jié)果。
4.3 可選參數(shù)的實(shí)例
在上一節(jié)中分別介紹了可變參數(shù)和數(shù)組作為過程參數(shù)，了解了傳遞參數(shù)的類別和參數(shù)傳遞的方式，本節(jié)要介紹另外一種過程參數(shù)類別——可選參數(shù)的實(shí)例，即選擇參數(shù)計(jì)算其和。
技術(shù)要點(diǎn)
本實(shí)例運(yùn)用的主要技術(shù)是可選參數(shù)、IsMissing函數(shù)和函數(shù)過程，主要功能和用法如下：
●可選參數(shù)，表示形式參數(shù)中的參數(shù)是可選的，即可以選擇這個(gè)參數(shù)參與語句塊的執(zhí)行，也可以不選擇這個(gè)參數(shù)參與語句塊的執(zhí)行?？蛇x參數(shù)以關(guān)鍵字Optional作為標(biāo)識(shí)，當(dāng)某個(gè)參數(shù)前有這個(gè)標(biāo)識(shí)時(shí)，說明這個(gè)參數(shù)是可選參數(shù)?？蛇x參數(shù)是否參與語句塊的執(zhí)行根據(jù)IsMissing函數(shù)進(jìn)行判斷。
● IsMissing函數(shù)，主要用于判斷丟失的可選參數(shù)。
●函數(shù)過程，是一個(gè)獨(dú)立的過程，可以返回一個(gè)值到調(diào)用過程。
IsMissing函數(shù)的具體語法如下：
Function IsMissing（ArgName）As Boolean
其中，參數(shù)ArgName表示可選參數(shù)名稱，如果未傳送可選參數(shù)，返回True；否則返回False。
函數(shù)過程的具體語法如下：
[Private|Public][Static]Function 函數(shù)過程名（[參數(shù)表]）[As類型]
[語句塊]
End Function
其中，參數(shù)“類型”表示函數(shù)過程與變量一樣有數(shù)據(jù)類型，該數(shù)據(jù)類型從而決定返回值的類型，如果省略該參數(shù)，默認(rèn)數(shù)據(jù)類型為Variant。
說明：End語句與子過程不同，子過程是End Sub，而函數(shù)過程是End Function。
實(shí)現(xiàn)代碼
Dim x，y As Integer ＇定義兩個(gè)整型變量
Private Sub CmbSelect_Click（）
Select Case CmbSelect.ListIndex ＇根據(jù)組合框中的選項(xiàng)決定參數(shù)的選擇
Case 0 ＇兩個(gè)參數(shù)的情況
x = ComAdd（3，4） ＇調(diào)用函數(shù)過程
TxtShow.Text = x ＇顯示調(diào)用后的結(jié)果
Labshow.Caption = ＂選擇兩個(gè)參數(shù)為：3，4＂ ＇顯示選擇的情況
Case 1 ＇三個(gè)參數(shù)的情況
y = ComAdd（3，4，5） ＇調(diào)用函數(shù)過程
TxtShow.Text = y ＇顯示調(diào)用后的結(jié)果
Labshow.Caption = ＂選擇三個(gè)參數(shù)為：3，4，5＂ ＇顯示選擇的情況
End Select
End Sub
＇初始化，給組合框中添加參數(shù)選擇類別
Private Sub Form_Load（）
CmbSelect.AddItem ＂兩個(gè)參數(shù)＂ ＇在組合框中添加＂兩個(gè)參數(shù)＂
CmbSelect.AddItem ＂三個(gè)參數(shù)＂ ＇在組合框中添加＂三個(gè)參數(shù)＂
End Sub
＇自定義的函數(shù)過程，做參數(shù)的累加操作
Function ComAdd（a As Integer，b As Integer，Optional c As Integer）
If IsMissing（c）Then ＇判斷是否傳遞參數(shù)c
ComAdd = a + b ＇兩個(gè)參數(shù)的情況
Else
ComAdd = a + b + c ＇三個(gè)參數(shù)的情況
End If
End Function
按Ctrl+S組合鍵，保存工程，然后按F5鍵運(yùn)行工程。當(dāng)選擇組合框中“兩個(gè)參數(shù)”選項(xiàng)時(shí)，程序運(yùn)行結(jié)果如圖4.5所示。當(dāng)選擇組合框中“三個(gè)參數(shù)”選項(xiàng)時(shí)，程序運(yùn)行結(jié)果如圖4.6所示。
圖4.5 選擇兩個(gè)參數(shù)的界面圖
圖4.6 選擇三個(gè)參數(shù)的界面圖
源程序解讀
（1）代碼首先定義兩個(gè)整型變量x和y作為接受過程傳遞結(jié)果的變量。
（2）在Form_ Load（）事件中，初始化“CmbSelect”組合框。添加兩項(xiàng)參數(shù)的選擇類別：兩個(gè)參數(shù)和三個(gè)參數(shù)。單擊“CmbSelect”組合框，觸發(fā)CmbSelect_ Click（）事件。這就調(diào)用了事件過程Private Sub CmbSelect_ Click（）。
（3）在CmbSelect_ Click（）事件中，運(yùn)用Select Case語句，根據(jù)“CmbSelect”組合框的ListIndex屬性的取值，決定選擇參數(shù)的個(gè)數(shù)。當(dāng)CmbSelect.ListIndex=0時(shí)，調(diào)用函數(shù)過程ComAdd（3，4），表示選擇兩個(gè)參數(shù)；當(dāng)CmbSelect.ListIndex=1時(shí)，調(diào)用函數(shù)過程ComAdd（3， 4，5），表示選擇三個(gè)參數(shù)。
（4）在函數(shù)過程Function ComAdd（a As Integer，b As Integer，Optional c As Integer）中，有三個(gè)形式參數(shù)，兩個(gè)必選參數(shù)a和b，一個(gè)可選參數(shù)c。運(yùn)用If語句，根據(jù)IsMissing函數(shù)的判定結(jié)果，選擇參加累加的參數(shù)個(gè)數(shù)。如果IsMissing（c）=True，說明c參數(shù)丟失，則選擇兩個(gè)參數(shù)參加累加操作；否則，選擇三個(gè)參數(shù)參加累加操作。
（5）累加操作完成后，返回調(diào)用過程CmbSelect_ Click（），分別使用“TxtShow”文本框和“Labshow”標(biāo)簽顯示累加的結(jié)果和選擇參數(shù)的情況。
說明：對(duì)于可選參數(shù)，也可以給其指定默認(rèn)值，如本例中可以給參數(shù)c指定默認(rèn)值，方式為：Optional c As Integer=9，如果可選參數(shù)丟失，則按照默認(rèn)值參與運(yùn)算，否則按照傳遞的值參與運(yùn)算。
4.4 運(yùn)用過程的改變控件背景色和計(jì)算參數(shù)乘積
在前節(jié)中介紹了過程參數(shù)傳遞的類型和過程的類別，希望讀者通過上面的介紹，可以對(duì)過程的運(yùn)用有更深入的了解，并注意參數(shù)傳遞時(shí)值的改變，在上面的基礎(chǔ)上，本節(jié)綜合介紹一下運(yùn)用過程改變形狀控件背景色和計(jì)算選擇參數(shù)乘積的綜合應(yīng)用實(shí)例。
技術(shù)要點(diǎn)
本實(shí)例中主要運(yùn)用的技術(shù)是通用過程和函數(shù)過程的調(diào)用以及可選參數(shù)設(shè)置默認(rèn)值，主要功能和用法如下：
通用過程的調(diào)用，表示由一個(gè)事件過程調(diào)用的過程。調(diào)用通用過程有兩種方法，具體語法為：
[Call][Sub]過程名（[實(shí)參表]）
[Sub]過程名（[實(shí)參表]）
函數(shù)過程的調(diào)用有三種方法，具體語法為：
VarName=函數(shù)過程名（[實(shí)參表]）
Call 函數(shù)過程名（[實(shí)參表]）
函數(shù)過程名 [實(shí)參表]
注意：關(guān)鍵字Call與后面的“（）”配對(duì)出現(xiàn)，即當(dāng)調(diào)用過程時(shí)前面有關(guān)鍵字Call，后面的實(shí)參表必須在括號(hào)內(nèi)；當(dāng)調(diào)用過程時(shí)前面沒有關(guān)鍵字Call，則后面的實(shí)參表兩側(cè)便不能有括號(hào)。
實(shí)現(xiàn)代碼
Dim x，y As Integer ＇定義兩個(gè)整型變量
Private Sub CmbSel_Click（）
Select Case CmbSel.ListIndex ＇根據(jù)組合框中的選項(xiàng)決定參數(shù)的選擇
Case 0 ＇兩個(gè)參數(shù)的情況
x = ComMu（3，4） ＇調(diào)用函數(shù)過程
TxtShow.Text = x ＇顯示調(diào)用后的結(jié)果
LabShow.Caption = ＂傳遞兩個(gè)參數(shù)為：3，4＂ ＇顯示選擇的情況
Case 1 ＇三個(gè)參數(shù)的情況
y = ComMu（3，4，5） ＇調(diào)用函數(shù)過程
TxtShow.Text = y ＇顯示調(diào)用后的結(jié)果
LabShow.Caption = ＂傳遞三個(gè)參數(shù)為：3，4，5＂ ＇顯示選擇的情況
End Select
End Sub
Private Sub CmbSelC_Click（）
Select Case CmbSelC.ListIndex ＇根據(jù)組合框中的選項(xiàng)決定顏色值的選擇
Case 0
Call VChange（0） ＇調(diào)用通用過程
LabShowY.Caption = ＂顯示顏色為暗黑色＂ ＇顯示顏色值
Case 1
Call VChange（1） ＇調(diào)用通用過程
LabShowY.Caption = ＂顯示顏色為藍(lán)色＂ ＇顯示顏色值
Case 2
Call VChange（2） ＇調(diào)用通用過程
LabShowY.Caption = ＂顯示顏色為綠色＂ ＇顯示顏色值
Case 3
Call VChange（3） ＇調(diào)用通用過程
LabShowY.Caption = ＂顯示顏色為墨綠色＂ ＇顯示顏色值
Case 4
Call VChange（4） ＇調(diào)用通用過程
LabShowY.Caption = ＂顯示顏色為褐紅色＂ ＇顯示顏色值
Case 5
Call VChange（5） ＇調(diào)用通用過程
LabShowY.Caption = ＂顯示顏色為紫紅色＂ ＇顯示顏色值
Case 6
Call VChange（6） ＇調(diào)用通用過程
LabShowY.Caption = ＂顯示顏色為黃綠色＂ ＇顯示顏色值
End Select
End Sub
＇分別初始化組合框CmbSel和CmbSelC
Private Sub Form_Load（）
CmbSel.AddItem ＂傳遞兩個(gè)參數(shù)＂ ＇添加傳遞參數(shù)個(gè)數(shù)
CmbSel.AddItem ＂傳遞三個(gè)參數(shù)＂ ＇添加傳遞參數(shù)個(gè)數(shù)
CmbSelC.AddItem ＂0＂ ＇添加顏色數(shù)
CmbSelC.AddItem ＂1＂ ＇添加顏色數(shù)
CmbSelC.AddItem ＂2＂ ＇添加顏色數(shù)
CmbSelC.AddItem ＂3＂ ＇添加顏色數(shù)
CmbSelC.AddItem ＂4＂ ＇添加顏色數(shù)
CmbSelC.AddItem ＂5＂ ＇添加顏色數(shù)
CmbSelC.AddItem ＂6＂ ＇添加顏色數(shù)
End Sub
Private Function ComMu（a As Integer，b As Integer，Optional c As Integer = 10）
ComMu = a * b* c ＇可選參數(shù)有默認(rèn)值的情況
End Function
Private Sub VChange（Index As Integer）
Shape1.FillStyle = 1 ＇設(shè)置Shape的FillStyle屬性
Shape1.BackStyle = 1 ＇設(shè)置Shape的BackStyle屬性
Shape1.BackColor = QBColor（Index） ＇設(shè)置Shape的BackColor屬性
End Sub
按Ctrl+S組合鍵保存工程，然后按F5鍵運(yùn)行工程。當(dāng)選擇組合框中“傳遞兩個(gè)參數(shù)”選項(xiàng)時(shí)，程序運(yùn)行結(jié)果如圖4.7所示。當(dāng)選擇組合框中“傳遞三個(gè)參數(shù)”和“0”選項(xiàng)時(shí)，程序運(yùn)行結(jié)果如圖4.8所示。
圖4.7 傳遞兩個(gè)參數(shù)的界面圖
圖4.8 顏色值為0的界面圖
源程序解讀
（1）代碼首先定義了兩個(gè)整型變量x和y，作為存儲(chǔ)乘積結(jié)果變量。
（2）在Form_ Load（）事件中，分別初始化“CmbSel”組合框和“CmbSelC”組合框。分別添加傳遞參數(shù)的個(gè)數(shù)和顏色值。
（3）當(dāng)單擊“CmbSel”組合框時(shí)，就觸發(fā)CmbSel的Click事件，從而調(diào)用事件過程Private Sub CmbSel_ Click（）。
（4）在CmbSel_ Click（）事件中，運(yùn)用Select Case語句，根據(jù)CmbSel的ListIndex屬性決定傳遞參數(shù)的個(gè)數(shù)。當(dāng)ListIndex=0時(shí)，調(diào)用ComMu（3，4），表示傳遞參數(shù)為兩個(gè)。當(dāng)ListIndex=1時(shí)，調(diào)用ComMu（3，4，5），表示傳遞參數(shù)為三個(gè)。
（5）在函數(shù)過程Private Function ComMu（a As Integer，b As Integer，Optional c As Integer= 10）中，可以看出，可選參數(shù)有默認(rèn)值10，因此，語句只有一個(gè)，即ComMu = a *b *c，當(dāng)傳遞兩個(gè)參數(shù)時(shí)，c=10參與運(yùn)算，當(dāng)傳遞參數(shù)為三個(gè)時(shí)，c以傳遞的值參與運(yùn)算。計(jì)算出結(jié)果后，返回調(diào)用過程CmbSel_ Click（），并分別用文本框和標(biāo)簽顯示出計(jì)算結(jié)果和傳遞參數(shù)的情況。
（6）當(dāng)單擊“CmbSelC”組合框時(shí)，就觸發(fā)CmbSelC的Click事件，調(diào)用事件過程Private Sub CmbSelC_ Click（）。
（7）在CmbSelC_ Click（）事件中，運(yùn)用Select Case語句，根據(jù)CmbSelC的ListIndex屬性決定傳遞顏色的值。當(dāng)ListIndex=0時(shí)，調(diào)用通用過程Call VChange（0），表示顏色值為0。當(dāng)ListIndex=1時(shí)，調(diào)用通用過程Call VChange（1），表示顏色值為1。當(dāng)ListIndex=2時(shí)，調(diào)用通用過程Call VChange（2），表示顏色值為2。當(dāng)ListIndex=3時(shí)，調(diào)用通用過程Call VChange（3），表示顏色值為3。當(dāng)ListIndex=4時(shí)，調(diào)用通用過程Call VChange（4），表示顏色值為4。當(dāng)ListIndex=5時(shí)，調(diào)用通用過程Call VChange（5），表示顏色值為5。
（8）在通用過程Private Sub VChange（Index As Integer）中，由行式參數(shù)Index接受傳遞的參數(shù)。首先由Shape控件的FillStyle和BackStyle屬性分別設(shè)置形狀的填充類型和背景類型。然后，由BackColor屬性設(shè)置形狀的背景色。設(shè)置完返回調(diào)用過程CmbSelC_ Click（），并由標(biāo)簽顯示顏色的值。
- Spring 5.0 By Example
- Software Defined Networking with OpenFlow
- C語言程序設(shè)計(jì)習(xí)題解析與上機(jī)指導(dǎo)（第4版）
- 垃圾回收的算法與實(shí)現(xiàn)
- Mastering Natural Language Processing with Python
- 數(shù)據(jù)庫系統(tǒng)原理及MySQL應(yīng)用教程
- Programming ArcGIS 10.1 with Python Cookbook
- Windows Presentation Foundation Development Cookbook
- 鋒利的SQL（第2版）
- The Professional ScrumMaster’s Handbook
- Hands-On Full Stack Development with Spring Boot 2.0 and React
- Python計(jì)算機(jī)視覺和自然語言處理
- INSTANT JQuery Flot Visual Data Analysis
- After Effects CC案例設(shè)計(jì)與經(jīng)典插件（視頻教學(xué)版）
- Software-Defined Networking with OpenFlow（Second Edition）