TEXTBOX 控制項
　

TextBox控制項在程式中提供使用者一個簡單的方式來輸入數值。因此，是大部份Windows應用程式最常使用到的控制項。TextBox控制項有許多的屬性及事件，因而也是最複雜的內建控制項之一。在這一節中，我將介紹TextBox控制項中最好用的屬性，並說明如何解決一些常會遇到的困難。

在表單上放置TextBox控制項後，必需設定一些基本的屬性，我在建立新的TextBox控制項時第一件會做的事是清空 Text 的屬性。如果是個多行的欄位，我也會設定 MultiLine 的屬性值為True。您可以將TextBox控制項的 Alignment 屬性設為靠左對齊、靠右對齊或置中對齊。TextBox控制項在顯示數值資料時靠右對齊特別好用，不過仍有幾點事項需要特別注意：當 Multiline 屬性值設為True時這個屬性也都能正確運作，不過在Microsoft Windows 98、Microsoft Windows NT 4 with Service Pack 3或其後的版本中，則只對單行的控制項有效，而在之前的Windows 9x 或Windows NT則不會產生錯誤，但是單行TextBox控制項會忽略 Alignment 屬性向左對齊。

要限定使用者不能改變TextBox控制項的內容，可以設定其 Locked 屬性值為True。通常會這樣做是當此控制項的內容是計算的結果或是用來顯示以開啟成唯讀資料庫中的欄位。大部份的情況下，用有邊框、背景顏色為白色的Label控制項也可以產生同樣的結果，但是鎖定的TextBox控制項另會允許使用者複製其值到剪貼簿上，而如果超過欄位寬度也可以捲動來看。

處理數值欄位時，會需要限定使用者能輸入字元的位數。要這樣做很簡單，只要用 MaxLength 屬性即可。值為0（預設值）表示可輸入任何位數，而其他正數值 N 則限定欄位的內容只有 N 個字元長度。

建立密碼欄位，則應設定 PasswordChar 屬性為字元字串，一般是用星號（*）。這樣子，程式仍可以讀取並修改TextBox控制項，但使用者則只會看到一排的星號。

注意

因為密碼保護的TextBox控制項實際上會使 Ctrl+X 及 Ctrl+C 這二個快速鍵功能失效，所以可避免有心人士竊取到其他使用者輸入的密碼。不過，如果應用程式有 編輯 功能表，且其中也有一般剪貼簿的指令，則您可選擇當焦點在密碼欄位時是否要使 複製 及 剪下 指令無效。

此外還可設定其他屬性可讓控制項比較好看：像是 Font 屬性。除此之外，也可以設定 ToolTipText 屬性來幫助使用者了解這個TextBox控制項是做什麼用的。另外要做一個無邊框的TextBox控制項，可以設定 BorderStyle 屬性值為0─沒有框線，不過在Windows應用程式這樣的控制項很少出現。一般說來，在設計階段不會對TextBox控制項做太多的事，而會在程式碼中再加以變化。

執行階段的屬性
　

Text 屬性是在程式碼中最常參照到的，且他也是TextBox控制項的預設屬性，所以很方便使用。其他常用的屬性如下：

小秘訣

如欲新增文字到TextBox控制項中，應使用以下程式碼（而不是用連結運算元）以減少閃爍的情況並增進效能：

Text1.SelStart = Len(Text1.Text)
Text1.SelText = StringToBeAdded

要執行這些屬性典型的方式之一就是全部選取TextBox控制項的內容。通常會使用到是當插入記號出現在欄位上以便使用者能快速以新值來代換即存的值，或任何方向鍵來開始編輯：

Private Sub Text1_GotFocus()
    Text1.SelStart = 0 
    ' 用大一點的數值來選取所有的內容.
    Text1.SelLength = 9999
End Sub

通常會先設定 SelStart 屬性值再設定 SelLength 或 SelText 屬性。當指派新的值給 SelStart 屬性時，其他二個屬性也會相對地分別自動重設為0及空字串，因此會取代了先前的設定。

捕捉鍵盤活動（Trapping Keyboard Activity）
　

CauseVAlidation屬性及VAlidate事件
　

Visual Basic 6終於提供了困擾程式設計師多年的確認問題之解決方案。如同您將看到的， Visual Basic 6的解決途徑非常簡潔；我很驚訝這個救星居然要到程式語言的第六版才出現。新的確認的重要特性是 Validate 事件及 CausesValidation 屬性。此二者會如下所述一起作用：當輸入焦點離開一控制項時，Visual Basic會檢查即將接受輸入焦點之控制項的 CausesValidation 的屬性。如果其屬性值為True，Visual Basic會在即將失出焦點的控制項中引發 Validate 事件，因此會讓程式設計者有機會來確認其內容，如果有必要，還能取消焦點的移動。

接下來試看看實務上的範例。假設現在表單上有五個控制項：一個要求輸入的欄位（TextBox控制項、txtRequired，且不能是空字串），一個值介於1到1000的數字欄位txtNumeric、及三個按鈕：OK、Cancel及Help（如圖3-1）。因為若使用者按下Cancel或Help按鈕時不需執行確認，所以要將其 CausesValidation 屬性值設為False。因為這個屬性的預設值為True，所以對於其他控制項則不需再修改。執行這個範例程式，在TextBox中輸入一些東西，然後移到第二個欄位。因為第二個欄位的 CausesValidation 屬性值為True，所以Visual Basic在第一個TextBox控制項中會引發 Validate 事件：

Private Sub txtRequired_Validate(Cancel As Boolean)
    ' 檢查欄位非空白
    If txtRequired.Text = "" Then
        MsgBox "Please enter something here", vbExclamation
        Cancel = True
    End If
End Sub

若 Cancel 參數值設為True，則Visual Basic會取消使用者的動作並將輸入焦點帶回到txtRequired控制項上：不會產生其他的 GotFocus 及 LostFocus 事件。另一方面，若在要求輸入的欄位中輸入東西，焦點就會跑到第二個欄位上（數字的文字方塊）。試在Help或Cancel按鈕上按一下：因為已將這些控制項中的 CausesValidation 屬性值皆設定為False，所以這時候不會引發 Validate 事件，不過按下OK按鈕則會執行數字欄位的 Validate 事件，在此可檢查其是否為無效字元及其有效範圍。

Private Sub txtNumeric_Validate(Cancel As Boolean)
    If Not IsNumeric(txtNumeric.Text) Then
        Cancel = True
    ElseIf CDbl(txtNumeric.Text) <1 Or CDbl(txtNumeric.Text) > 1000 Then
        Cancel = True
    End If
    If Cancel Then
        MsgBox "Please enter a number in range [1-1000]", vbExclamation
    End If
End Sub

在某些環境下，可能會需要在程式中確認有焦點的控制項是否有效，而不用等待使用者移動輸入焦點。可以直接在表單中發生的 ValidateControls 方法（此方法能促使輸入焦點控制項的Validate事件）中做處理。典型的方式是在使用者關閉表單時來做：

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    ' 指定的欄位不是有效值，不能關閉這個表單
    If UnloadMode = vbFormControlMenu Then
        On Error Resume Next
        ValidateControls
        If Err = 380 Then
            ' 指定的欄位無效
            Cancel = True
        End If
    End If
End Sub

檢查 UnloadMode 的參數是非常要緊的事；否則當使用者點選Cancel按鈕時，應用程式會誤執行 ValidateControls 的方法。請注意，若Cancel是設在有焦點的控制項 Validate 事件程序中，則 ValidateControls 會傳回錯誤值380。

注意

Visual Basic 6的確認架構有二個瑕玼：若表單上有CommandButton且其 Default 屬性值為True，當輸入焦點在另一控制項時按下 Enter 鍵變成點選CommandButton控制項，即使CommandButton的 CausesValidation 屬性值設為True，也不會引發 Validate 事件。唯一的解決方式就是從預設的CommandButton控制項中的Click事件程序中，呼叫用 ValidateControls 的方法

第二個瑕玼是：當從一 CausesValidation 屬性值為False的控制項移動焦點時，即使這個控制項收到了焦點且其 CausesValidation 屬性值True，也不會引發 Validate 事件。

新版Visual Basic 6的確認機制雖然很簡單且只需花一些功夫即可執行，但卻不一定完全能符合所有確認有效的需求。事實上，這個小技巧僅能啟動欄位的確認程序；至於對記錄的確認部份則無任何功效。也就是說，這只能保證特定欄位是正確，而不能說表單上所有的欄位內容都是正確有效的資料。執行示範程式，在第一個欄位輸入字串，然後按 Alt+F4 關閉表單，就能了解上面所說的意思了。程式碼並不會產生錯誤，甚至當第二個欄位中的不是有效數值也不會產生錯誤！不過還好，要建立一個一般的副程式讓表單上每一個控制項都能自行確認其值是否有效，並不是件難事：

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    ' 所有的欄位無效，就不能關閉這個表單
    If UnloadMode = vbFormControlMenu Then
        On Error Resume Next
        Dim ctrl As Control
        ' 將在表單上的每個控制項給予一次焦點然後確認有效
        For Each ctrl In Controls
            Err.Clear
            ctrl.SetFocus
            If Err = 0 Then
                ' 無效的控制項不能接收焦點
                ValidateControls
                If Err = 380 Then
                    ' Validation failed, refuse to close.
                    Cancel = True: Exit Sub
                End If
            End If
        Next
    End If
End Sub

所有內建函數都有 CausesValidation 屬性及 Validate 事件，雖然不是特別為Visual Basic所寫的功能，不過此二者也可以藉由大部份外部的ActiveX控制項來取得焦點。因為這二者都是Visual Basic副程式對所有在表單上的控制項，所提供的延伸的特性，所以可以這樣。

小秘訣

當必需確認複雜的字串，有一個Visual Basic的運算子很好用。假設現在有一個由二個大寫字母之後加上三個數字組成的產品碼，這時本來需要一些複雜的字串函數來確認這個字串，不過現在可以只如下用 Like 這個運算子就OK了：

If "AX123" Like "[A-Z][A-Z]###" Then Print "OK"

LABEL和FRAME控制項
　

Label和Frame控制項有一些共同的功能，因為我們可以將它們放在一起說明。第一，它們對使用者介面而言都是「裝飾用的」控制項，鮮少做為可程式設計的物件。換句話說，您通常將這類控制項放置在表單上，根據使用者介面的需要設定它們的屬性，但您很少為它們的事件撰寫程式碼或者在執行階段操控它們的屬性。

Label控制項
　

多數人使用Label控制項提供一個可說明性質的標題，並為其他沒有 Caption 屬性的控制項提供快速鍵的設定，如TextBox、ListBox、和ComboBox。在大部份的情況下，您只要將Label控制項放在需要的位置上，為 Caption 屬性設定適當的字串(並在您要指定為快速鍵的字母前面加上&符號)，如此便完成了。Caption 是Label控制項預設的屬性。請小心設定Label控制項的 TabIndex 屬性，讓它比Label控制項所表示的控制項的 TabIndex 屬性少1。

其他有用的屬性還有 BorderStyle (如果您要Label控制的框線顯示為3D)和 Alignment (如果您要將控制項上的標題向右或向中央靠齊)。在大部份的情況下，對齊的方法會視Label控制項與其所表示的控制項的相對位置而定：例如，如果Label控制項是放在它所表示的控制項的左方，則您應該將 Alignment 屬性設定為 1-靠右對齊 。 2-置中對齊 對齊單獨的Label控制項特別有用(如圖3-3)。

小秘訣

如果您要在Label控制項的Caption屬性內插入一個&字元(而非&符號)，只要重複輸入即可。例如，如果一個控制項的標題是Research & Development，您要輸入為&Research && Development。注意如果您有多個但獨立的&符號，只有最一個&可以設定快速鍵，其他的則會被忽略。這個規則適用在所有有 Caption 屬性的控制項上(然而在表單的 Caption 屬性中，&沒有任何的意義)。

如果標題字串很長，您可能需要將Label控制項的 WordWrap 屬性設定為True，讓字串可以延伸為數行而不會被控制項的右邊界截斷。還有另一種方法，您可以將 AutoSize 屬性設定為True，讓控制項能自動重新調整大小以容納較長的標題字串。

您有時候會需要修改Label控制項 BackStyle 屬性的預設值。Label控制項通常會遮蓋住表單(也會遮蓋住其他的控制項、圖型輸出等)，因為它的背景通常是設定為不透明。如果您要在表單上某處顯示一個字元字串，但您不要遮蓋住背景物件，則將 BackStyle 屬性設定為 0-透明 。

如果您使用Label控制項顯示由其他位置所讀取的資料-例如資料庫欄位或文字檔-您應該將UseMnemonics 屬性設定為False。在此情況下，&字元對於控制項沒有特殊的意義，因此您可以間接關閉控制項的快速鍵功能。筆者會提起這個屬性是因為在舊版的Visual Basic中，您必須手動重複輸入每一個&字元，讓&字元出現在文字中。我並不認為所有的開發者都知道您現在可以將&視為一般的字元。

如同我先前所提到的，您通常不會在Label控制項的事件程序中寫入程式碼。此控制項只有其他控制項所支援的事件子集。例如，由於Label控制項永遠無法取得輸入駐點，因此它們不支援GotFocus、LostFocus 或任何與鍵盤相關的事件。實際上，您只能利用它們的滑鼠事件：Click、DblClick、MouseDown、MouseMove 和 MouseUp。如果您使用Label控制項顯示由資料庫讀取的資料，您有時會發現在它的 Change 事件中寫入程式碼是很有用的。Label控制項並沒有特定的事件可以告訴程式設計師使用者可時按下它的快速鍵。

您可以在Label控制項上執行一些有趣的技巧。例如，您可以使用它們為一些表單上載入的圖形提供矩形的作用點。若想要了解筆者的意思，請參閱圖3-4。為了建立一個即時的工具提示，我使用表單的 Picture 屬性載入一個圖形，再將Label控制項放置在Microsoft BackOffice標誌之上，將控制項的 Caption 屬性設定為空字串，BackStyle 屬性設定為 0-透明 。這些屬性設定會讓Label看不見，但在需要時會正確顯示工具提示。而且由於它仍然接受所有的滑鼠事件，您可以使用它的 Click 事件來反應使用者的動作。

Frame控制項
　

Frame控制項和Label控制很相似，因為它們都可以做為沒有屬於自己標題的控制項的標題。此外，Frame控制項也可以(而且是通常可以)做為一個容器並裝載其他的控制項。在大部份的情況下，您只需要將Frame控制項拖曳到表單上並設定它的 Caption 屬性。如果您要建立一個沒有框線的框架，您可以將它的 BorderStyle 屬性設定為 0-沒有框線 。

包含在Frame控制項內的控制項稱做 子控制項 。在設定階段中若是將控制項搬移到Frame控制項之上-或者任何其他容器上-並不會自動讓該控制項成為Frame控制項的子控制項。如果在您建立Frame控制項後需要建立子控制項，您只要在工具箱中選擇子控制項的圖示，然後在Frame控制項框線內畫出新的子控制項。另一種建立子控制項的方法是讓現有的控制項成為Frame控制項的子控制項，方法是選擇一個現有的控制項，按下Ctrl+X將它剪下至剪貼簿內，選擇Frame控制項，再按下Ctrl+V將控制項貼入Frame控制項內。如果您沒有依照此程序，則您只是將控制搬移到Frame的上方，即使另一個控制是出現在Frame控制項之內，但這兩個控制項彼此完全獨立。

Frame控制項與其他所有的容器控制項一樣有兩個有趣的特色。如果您搬移了Frame控制項，所有的子控制項都會隨之移動。如果您將容器控制項設定為停用或是看不見，所有的子控制項也都會停用或是看不見。您可以利用這種特色快速變更一組相關控制項的狀態。

COMMANDBUTTON、CHECKBOX和OPTIONBUTTON控制項
　

與TextBox控制項相較之下，這些控制項是非常簡單的；不僅它們所擁有的屬性相對起來很少，而且它們所支援的事件數也有限，通常您不用寫太多的控制項來管理它們。

CommandButton控制項
　

使用CommandButton控制項是很平常的事，您只要在表單上書出控制項，為它的 Caption 屬性設適當的字串(如有需要，加入&符號設定控制項的快速鍵)，如此便完成了。若要讓按鈕有功能，您必須在 Click 事件程序中寫入程式碼，如下：

Private Sub Command1_Click()
    ? Save data，then unload the current form.
    Call SaveDataToDisk
    Unload Me
End Sub

您可以在設計階段中使用其他兩種屬性來變更CommandButton控制項的行為。如果此按鈕是表單預設的按鈕(也就是當使用者按Enter鍵時會按下的鈕－通常是 確定 或 儲存 鈕)，則您可以將此鈕的 Default 屬性設定為True。同樣的，如果您要此鈕與Esc鍵產生關聯，您可以將 Cancel 屬性設定為True。

CommandButton控制項唯一相關的執行階段屬性是 Value，它可以設定或傳回控制項的狀態(如果按下則為True，否則為False)。Value 也是此類控制項的預設屬性。在大部份的情況下您不需要查詢此屬性，因為如果您是在一個按鈕的 Click 事件中，您便可以確定此鈕會一直在啟動狀態。Value 屬性只有在以程式按下此鈕時有用：

'This fires the button's Click event.
Command1.Value = True

CommandButton控制項支援的鍵盤和滑鼠事件(KeyDown、KeyPress、KeyUp、MouseDown、MouseMove、MouseUp，但沒有 DblClick 事件)，也支援 GotFocus 和 LostFocus 事件，但您很少需要在對應的事件程序中寫入程式碼。

CheckBox控制項
　

CheckBox控制項當您要提供使用者選擇時很有用。只要您按下此控制項，您便可以在Yes狀態和No狀態間切換。當CheckBox控制項的狀態是無法使用時此控制項會呈現灰色，但您必須經由程式碼管理此狀態。

當您在表單上設置一個CheckBox控制項，所有您能做的通常只是為它的 Caption 屬性設定一個描述性的字串。有時您可能要將核取方塊移到標題的右方，這是您便要將 Alignment 屬性設定為 1-靠右對齊 ，但在大部份的情況下使用預設值即可。如果您要將控制項顯示為已核取的狀態，您可以在 屬性 視窗中將它的 Value 屬性設定為 1-核取 ，設定為 2-灰色 會讓此控制項以灰色顯示。

CheckBox控制項最重要的事件是 Click 事件，此事件當使用者或程式碼變更控制項狀態時會被啟動。在許多情況下，您不需要寫入控制項來處理此事件。此外當程式碼需要處理使用者的選擇時，您只要查詢控制項的 Value 屬性即可。當CheckBox控制項會影響其他控制項的狀態時，您必須在CheckBox控制項中寫入程式碼。例如如果使用者清除一個核取方塊，您可能需要停用表單上一至多個控制項；當使用者再次選擇核取方塊時，則要重新啟用這些控制項。以下是做法(在此筆者將所有相關的控制項群組在一個名為Frame1的框架中)：

Private Sub Check1_Click()
    Frame1.Enabled = (Check1.Value = vbChecked)
End Sub

注意 Value 是CheckBox控制項的預設屬性，所以您可以在程式碼中省略它。但筆者建議不要如此做，因為這樣會減少程式碼的可讀性。

OptionButton控制項
　

OptionButton也就是所謂的「選項按鈕」。您可以在兩個以上的選項群組中使用OptionButton控制項，因為此控制項功用便是提供互相排斥的選擇。只要您按一下群組中的一個控制項，它就會切換為被選擇狀態，而群組中所有其他的控制項則會變成不選擇的狀態。

OptionButton控制項基本的作業與上述的CheckBox控制項相同。您可以將OptionButton控制項的 Caption 屬性設定成有意義的字串，如有需要您也可以將它的 Alignment 屬性變更為向右靠齊。如果一個控制項在該群組中是被選擇的，則您要將此控制項的 Value 屬性設定為True(OptionButton控制項的 Value 屬性是Boolean值，因為只有兩種可能的狀態)。Value 是此控制項預設的屬性。

在執行階段中，您通常會查詢控制項的 Value 屬性以得知它的群組中哪一個按鈕已經被選擇。假設您有三個OptionButton控制項，分別命名為 optWeekly、optMonthly 和 optYearly。您可以依照以下的方式測試使用者選擇了哪一個選項：

If optWeekly.Value Then
    'User prefers weekly frequency.
ElseIf optMonthly.Value Then
    'User prefers monthly frequency.
ElseIf optYearly.Value Then
    'User prefers yearly frequency.
End If

嚴格來講您可以不用測試群組中最後一個OptionButton控制項，因為所有的選項都彼此互斥。但我所介紹的方式可以增加程式碼的可讀性。

一組的OptionButton控制項通常可以放置在Frame控制項內，當表單上有其他組的OptionButton控制項，這樣的設定是必要的。在Visual Basic中，表單上「所有的」OptionButton控制項都屬於同一個群組中且彼此互斥，即使控制項分別放在視窗相對的角落上亦是如此。告訴Visual Basic哪一個控制項屬於哪一個群組的唯一方法便是將控制項聚集在Frame控制項之內。實際上，您可以將控制項放置在任何一個可以做為容器的控制項中－例如PictureBox－但Frame控制項通常是最合適的選擇。

圖形化
　

CheckBox、OptionButton、和CommandButton控制項是從Visual Basic第1版就有的控制項，而它們基本的屬性多年都維持不變。然而到了Visual Basic 5，導入了新的、有趣的圖形模式，讓舊式的控制項轉換為更現代的使用者介面，更能吸引使用者的注意力，如圖3-5。由於所牽涉到的屬性對這三個控制項而言都相同，因此我們將它們放在一起說明。

如果您要建立一個圖形控制項，您要將控制項的 Style 屬性設定為 1-圖片外觀 ；控制項的外觀會改變，並在四周畫上框線(在CheckBox和OptionButton控制項上較為明顯)。接著選擇一個合適的圖片：按一下 Picture 屬性並選擇一個圖示或圖片(您已經收集了一些圖示或圖片，不是嗎？)。在大部份的情況下，這樣做就可以建立一個圖形按鈕；如果您還要做的更精緻一點，您可以選擇第2張圖片做為控制項按下去之後控鈕所顯示的圖片，做法是使用 DownPicture 屬性來選擇第2張圖片。您也可以選擇不同的圖片做為停用狀態時的圖片，只要使用控制項的 DisabledPicture 屬性就可以做到。您可以在執行階段中設定這些屬性，但嚴格要求只有在您動態建立一個使用者介面時才這樣做(例如，使用者使用他喜歡的命令自訂工具列)：

Command1.Picture = LoadPicture("c:\vb6\myicon.ico")

當您設定圖片時您可能還需要考慮另外兩個屬性。MaskColor 屬性定義圖片中哪一個顏色視為透明的顏色；在載入圖片內任何符合這個顏色的像素不會被轉移，而是使用一般的按鈕背景色(此屬性的預設值是&HC0C0C0，淺灰色)。MaskColor 只有在您也將 UseMaskColor 屬性設定為True時才可啟用，否則此屬性會被忽略。這些屬性只對點陣圖有用，因為圖示(ICO檔)和中繼檔案(WMF和EMF檔)已經包括了透明的資料。注意您一定要將 MaskColor 屬性設定為RGB色彩(有115種系統色彩)，因為系統色彩隨著使用者的設定而有所不同，您的按鈕在其他的系統上會顯示不同的色彩。

除了圖形的外觀以外，使用 Style=1-圖形外觀 的CheckBox、OptionButton和CommandButton控制項的行為都和文字外觀時的行為相同。如果您有一組圖形的選項按鈕，只有一個會保留在被選擇的狀態。當您按下圖形化的CheckBox控制項一下時，它會呈現按下的狀態；當您再按一次按鈕時，此按鈕就會被呈現浮起的狀態。就是這麼的簡單。

LISTBOX和COMBOBOX控制項
　

ListBox和ComboBox控制項有許多相同的屬性、方法和事件。ListBox控制項較為強大，因此為我們先由此控制項開始介紹，之後介紹ComboBox控制項時就會很輕鬆。

ListBox控制項
　

當您在表單上設置一個ListBox控制項時，您需要設定一些屬性。例如，您可以將ListBox控制項的 Sorted 屬性設定為True，讓此控制項會自動將它的項目依字母排列。設定 Columns 屬性，您可以建立不同類型的清單方塊，讓清單方塊內可以有數個欄位和一個水平捲軸，如圖3-6，而非預設的清單方塊(只有一個欄位，在右邊界處有垂直捲軸)。您可以只能在設計階段中設定這些選項，您無法在程式執行時變更ListBox控制項的樣式。

IntegralHeight 屬性鮮少被修改，但它仍值得說明，因為在一般的程式設計時此屬性並不會有直接的影響。依照預設，Visual Basic會自動調整ListBox控制項的高度，讓控制項顯示完整的項目，沒有一個項目只顯示部分。控制項實際的高度受到數個因素的影響，包括現有的字型屬性。這個行為通常沒有問題，一般您也不會擔心這個問題。但如果您要改變控制項的大小讓它與表單上其他的控制項對齊或是與表單邊框對齊，此功能會讓您無法做這樣的調整。在這個狀況下，您應該在 屬性 視窗中將 IntegralHeight 屬性設定為False。Visual Basic將不會強制控制項的高度，您也可以隨意調整控制項的大小。不過您無法在執行階段中修改這個屬性。

如果在設計階段中您知道有哪一些項目必須在ListBox控制項中顯示，您可以在 屬性 視窗內List屬性的小型編輯器中編輯清單項目，如圖3-7。但如果您要輸入超過4個以上的項目時，您最好在執行階段時經由程式碼來新增項目。

ListBox和ComboBox控制項都有 AddItem 方法，此方法可以讓您在程式執行時新增項目。通常都在Form_Load事件程序中使用此方法：

Private Sub Form_Load()
    List1.AddItem "First"
    List1.AddItem "Second"
    List1.AddItem "Third"
End Sub

在真實世界的應用程式，您很少會用這個方法載入個別的項目。通常您的資料已經存放在陣列或是資料庫中，您可以使用 For...Next 迴圈來掃描資料來源，如下：

'MyData is an array of strings.
For i = LBound(MyData) To UBound(MyData)
    List1.AddItem MyData(i)
Next

小秘訣

如果您要在清單方塊中載入許多項目，但您不要建立陣列，您可以利用Visual Basic的Choose函數，如下：

For i = 1 To 5
    List1.AddItem Choose(i，"America"，"Europe"，"Asia"，_
        "Africa"，"Australia")"
Next

有些特殊的情況甚至不需要您列出各個項目：

'The names of the months (locale-aware)
 For i = 1 To 12
    List1.AddItem MonthName(i)
Next
? The names of the days of the week (locale-aware)
For i = 1 To 7
    List1.AddItem WeekDayName(i)
Next

PICTUREBOX和IMAGE控制項
　

PictureBox和Image控制項都可以讓您顯示圖片，讓我們一起比較討論這兩個控制項，並了解它們適用的時機。

PictureBox控制項
　

PictureBox控制項是Visual Basic[工具箱]視窗中最強大和複雜的工具，此控制項與表單較為類似，而非與其他控制項類似。例如PictureBox控制項支援所有與圖形輸出有關的屬性，包括 AutoRedraw、ClipControls、HasDC、FontTransparent、CurrentX、CurrentY，和所有的 Drawxxxx、Fillxxxx、Scalexxxx 屬性。PictureBox控制項也支援圖形方法，如 Cls、Pset、Point、Line 和 Circle，及改變的方法，如 ScaleX、ScaleY、TextWidth 和 TextHeight。換句話說，所有筆者介紹過的表單技術都可以用在PictureBox控制項上(因此在本段也不會再次說明)。

載入圖片
　

當您在表單上放置一個PictureBox控制項時，若要讓此控制項載入圖片，您可以設定[屬性]視窗內的 Picture 屬性。您可以載入許多不同圖形格式的圖片，包括點陣圖 (BMP)，裝置無關點陣圖(DIB)、中繼檔(WMF)、加強中繼檔(EMF)、GIF和JPEG壓縮檔，和圖示(ICO與CUR)。您可以決定控制項是否顯示框線，如有需要可將 BorderStyle 屬性設定為 0-沒有框線 。另一個很方便的屬性是 AutoSize：將此屬性設定為True可以讓控制項自動調整它的大小以符合指派的圖片。

您可能要將PictureBox控制項的 Align 屬性設定成 0-自動調整 以外的值，如此您便可以將控制項貼附在其中一個表單框線上，並讓Visual Basic在表單大小改變時自動搬移和調整PictureBox控制項的大小。PictureBox控制項的 Resize 事件也可讓您搬移和改變其子控制項的大小。

在執行階段中您還可以執行一些有趣的動作。首先，您可以使用 LoadPicture 函數將任何的圖片載入控制項中：

Picture1.Picture = LoadPicture("c:\windows\setup.bmp")

您也可以使用以下任何一個敘述來清除現有的圖片：

'These are equivalent.
Picture1.Picture = LoadPicture("")
Set Picture1.Picture = Nothing

LoadPicture 函數是Visual Basic 6的進階功能，可支援圖示檔案包含多個圖示。新的語法如下：

LoadPicture(filename，[size]，[colordepth]，[x]，[y])

在中括號內的值是選擇性輸入的。如果filename是一個圖示檔，您可以使用size或colordepth參數來選擇特定的圖示。有效的大小有0-vbLPSmall、1-vbLPLarge (系統圖示，其大小取決於視訊驅動程式)、2-vbLPSmallShell、3-vbLPLargeShell (殼層圖示，螢幕的 內容 對話方塊中 外觀 標籤頁內的標題按鈕屬性會影響此圖示的尺寸)、和4-vbLPCustom (大小由x和y所決定)。有效的色彩設定有0-vbLPDefault (檔案中的圖示最好符合現有的螢幕設定)、1-vbLPMonochrome、2-vbLPVGAColor (16色)、和3-vbLPColor (256色)。

若要將圖片由一個PictureBox控制項複製到另一個控制項，您可以依照以下的語法設定目標控制項的Picture屬性：

Picture2.Picture = Picture1.Picture

PaintPicture方法
　

PictureBox控制項配有功能非常強大的方法，讓程式設計者能夠執行許多圖形效果，包括縮放、捲動、平移、排列、翻轉、和淡化效果：這就是PaintPicture方法(表單物件也有此方法，但它最常用於PictureBox控制項)。簡單的說，此方法將來源控制項的像素逐一複製到目的控制項上。此方法的語法有一點複雜和混亂：

DestPictBox.PaintPicture SrcPictBox.Picture，destX，destY，[destWidth]，_
[destHeight]，[srcX]，[srcY2]，[srcWidth]，[srcHeight]，[Opcode])

唯一需要的參數是來源PictureBox控制項的 Picture 屬性和目的控制項內的座標。destX / destY 參數是在目的控制項的 ScaleMode 屬性內設定的；經由修改此參數，您便可以讓圖形確實出現在您要的位置上。例如，如果來源PictureBox控制項有一個3000 Twip寬和2000 Twip高的點陣圖，您可以使用以下的命令將圖片放置於目的控制項的中央：

picDest.PaintPicture picSource.Picture，(picDest.ScaleWidth (- 3000) / 2，_ 
     (picDest.ScaleHeight (- 2000) / 2

小秘訣

一般而言，Visual Basic並未提供判斷載入至PictureBox控制項的圖片大小。但如果您將控制項的 AutoSize 屬性設定為True，再讀取控制項的 ScaleWidth 和 ScaleHeight 屬性，您便可以得到圖片大小的資訊。如果您不想要改變可見控制項的大小而只想得知點陣圖的尺寸，或許您也可以使用這個技巧：根據 Picture 屬性傳回StdPicture物件的事實，依序顯示 Heigh t和 Width 屬性：

'StdPicture's Width and Height properties are expressed in
 'Himetric units. 
With Picture1
    width = CInt(.ScaleX(.Picture.Width，vbHimetric，vbPixels))
    height = CInt(.ScaleY(.Picture.Height，vbHimetric，_
        vbPixels))
End With

順便一提，以下筆者假設來源PictureBox控制項的 ScaleWidth 和 ScaleHeight 屬性的程式碼範例，都符合真正點陣圖的大小。依照預設，PaintPicture 方法會複製整個來源點陣圖，但您可以只複製部份的點陣圖，只傳送 srcWidth 和 srcHeight 值：

'Copy the upper left portion of the source image.
picDest.PaintPicture picSource.Picture，0，0，，，，，_
    picSource.ScaleWidth / 2，picSource.ScaleHeight / 2

如果您只要複製部份的來源圖片，您或許要傳送特定的 srcX 和 srcY 值，這些值與來源控制上被複製區域的左上角座標對應：

'Copy the bottom-right portion of the source image
 'in the corresponding corner in the destination. 
wi = picSource.ScaleWidth / 2
he = picSource.ScaleHeight / 2
picDest.PaintPicture picSource.Picture，wi，he，，，wi，he，wi，he

您可以使用此方法將目標PictureBox控制項與存放在另一個控制項的圖片多個複本排列：

'Start with the leftmost column
x = 0
Do While x < picDest.ScaleWidth
    y = 0
    ' For each column，start at the top and work downward.
    Do While y < picDest.ScaleHeight
        picDest.PaintPicture picSource.Picture，x，y，，，0，0
        ' Next row
        y = y + picSource.ScaleHeight
    Loop
     'Next column
    x = x + picSource.ScaleWidth
Loop.

PaintPicture 方法另一個很好的功能便是讓您在轉換圖片時可以變更圖片的大小，您甚至可以分別指定x軸和y軸的拉近拉遠因數。您只要傳回 destWidth 和 destHeight 參數的值：如果這些值大於來源圖片對應的尺寸時，便可以達成拉近的效果；反之則有拉遠的效果。例如，以下是如何將原始圖片的大小變成兩倍的程式碼：

picDest.PaintPicture picSource.Picture，0，0，_
    picSource.ScaleWidth * 2，picSource.ScaleHeight * 2

由於 PaintPicture 方法特殊的語法，您甚至可以將沿著x軸、y軸翻轉來源圖片，只要將傳回這些參數的負數的值即可：

'Flip horizontally
picDest.PaintPicture picSource.Picture，_
    picSource.ScaleWidth，0，-picSource.ScaleWidth
 'Flip vertically.
picDest.PaintPicture picSource.Picture，0，_
    picSource.ScaleHeight，，-picSource.ScaleHeight
 'Flip the image on both axes.
picDest.PaintPicture picSource.Picture，picSource.ScaleWidth，_
    picSource.ScaleHeight，-picSource.ScaleWidth，-picSource.ScaleHeight.

您也可以將所有效果組合在一起，或只將部份的來源圖片放大、縮小或翻轉，並讓結果顯示在目的PictureBox控制項(或表單)上任何一個地方。我已經準備了一個示範程式(如圖3-12)，此程式示範目前為止所說明的一切且包含許多有趣的溶解和排列效果完整的來源程式碼。您也可以在您的應用程式中使用這些常用的語法。

SCROLLBAR控制項
　

HscrollBar和VscrollBar控制項完全相同，除了它們的方向不同。當您在表單上放置這種的控制項後，您只要設定一些屬性：Min 和 Max 代表有效範圍的值，SmallChange 是當您按一下捲軸箭頭時數值的變化量，LargeChange 是按一下捲軸區域時數值的變化量。這兩個屬性預設的初值是1，但您可能要將 LargeChange 變更為較高的值。例如，如果您有一個讓您瀏覽部份文字的捲軸i，SmallChange 應該為1(一次捲動一行)，而 LargeChange 應該設定為視窗中可看見的行數。

最重要的執行階段屬性是 Value，它會傳回捲軸方塊的相關位置。依照預設，Min 值與控制項的最左方或最上方對應：

'Move the indicator near the top (or left) arrow.
VScroll1.Value = VScroll1.Min
 'Move the indicator near the bottom (or right) arrow.
VScroll1.Value = VScroll1.Max

對水平捲軸而言此設定永遠沒有問題，您有時候可能需要反轉垂直捲軸的行為讓零值靠近表單的底部。如果您要使用垂直捲軸做為滑動軸時，這種設定通常是需要的。若要如此，只要將 Min 和 Max 屬性內的值顛倒過來即可(換句話說，最好讓 Min 值大於 Max 值)。

捲軸控制項有兩個主要的事件：當您按一下捲軸方向箭或當您拖曳捲軸方塊時便會引發Change 事件；當您拖曳捲軸方塊時則引發 Scroll 事件。以是這兩個屬性的不同歷程：第一版的Visual Basic只支援 Change 事件，當開發者明白當使用者拖曳捲軸方塊時不可能有持續的回饋，Microsoft工程師新增新的事件而非擴充 Change 事件。因此，舊的應用程式會重新編譯，它們的行為也不會有未預期的變。無論如何，這表示您必須經常設定這兩個不同的事件：

'Show the current scroll bar's value. 
Private VScroll1_Change()
    Label1.Caption = VScroll1.Value
End Sub
Private VScroll1_Scroll()
    Label1.Caption = VScroll1.Value
End Sub

圖3-13中的範例使用三個VscrollBar控制項做為控制色彩不同RGB(紅、綠、藍)成份的調節器。這三個捲軸將它們的 Min 屬性設定為255，Max 屬性設定為0，SmallChange 屬性設定為1，LargeChange 屬性設定為16。此範例是非常有用的程式，因為您可以選擇一個色彩，將它的數值複製到剪貼簿，再將它以十進位數值、十六進位數值、或是RGB函數的方式貼入您的應用程式。

Scroll控制項可以接收輸入駐點，事實上它們都支援 TabIndex 和 TabStop 屬性。如果您不要使用者在按下Tab鍵時不小心將輸入駐點移到捲軸控制項，您必須將控制項的 TabStop 屬性設定為False。當捲軸控制項有駐點時，您可以使用Left、Right、Up、Down、PgUp、PgDn、Home和End鍵來移動捲軸方塊。例如，您可以利用此行為來建立一個包含數值的唯讀TextBox控制項，此控制項的數值只能有伴隨的捲軸來編輯。此捲軸的外觀如同一個微調鈕，如圖3-14。若要如此設定此控制項，您可以依照以下的程式碼執行：

Private Sub Text1_GotFocus()
   'Pass the focus to the scroll bar.
    VScroll1.SetFocus
End Sub
Private Sub VScroll1_Change()
   'Scroll bar controls the text box value.
    Text1.Text = VScroll1.Value
End Sub

Scrollbar控制項甚至可以建立捲軸表單，如圖3-15。捲軸表單並非您可以提供給您的使用者最機械化的使用者介面：如果您的表單內有許多欄位，您應該考慮使用Tab控制項、子表單或是其他的自訂介面。有時您可能需要可捲動的表單，若是如此您需要另外設法解決，因為Visual Basic並不支援表單捲動。

幸好將一般的表單傳換成可捲動的表單並不需要花費太長的時間。您只需要兩個捲軸控制項，再加上一個PictureBox控制項-您使用此控制項做為表單上所有控制項的容器，和一個填入控制項-例如CommandButton-在表單顯示兩個捲軸時將此控制項放在表單的右下角。建立可捲動式表單的祕訣是您不要一一的移動所有的子控制項，而是將所有的控制項放置在PictureBox控制項中(此控制項在以下的程式碼名稱為picCanvas)，在使用者操作捲軸時搬移此控制項。

Sub MoveCanvas()
    picCanvas.Move -HScroll1.Value，-VScroll1.Value
End Sub

換句話說，若要顯示表單靠近右邊界的部份，您要將PictureBox控制項的 Left 屬性設定為負數；若要表單靠近下邊界的部份，則將 Top 屬性設定為負值。它就是這麼的簡單。設定的方法是由捲軸內的 Change 和 Scroll 事件呼叫 MoveCanvas 程序。當然，寫入 Form_Resize 事件內的程式碼很重要，因為它會讓捲軸在表單改變大小時顯示或消失，將捲軸控制項的 Max 屬性設定一致的值也是很重要的：

'size of scrollbars in twips
Const SB_WIDTH = 300     'width of vertical scrollbars
Const SB_HEIGHT = 300    'height of horizontal scrollbars
Private Sub Form_Resize()
     'Resize the scroll bars along the form.
    HScroll1.Move 0，ScaleHeight - SB_HEIGHT，ScaleWidth - SB_WIDTH
    VScroll1.Move ScaleWidth - SB_WIDTH，0，SB_WIDTH，_
        ScaleHeight - SB_HEIGHT
    cmdFiller.Move ScaleWidth - SB_WIDTH，ScaleHeight - SB_HEIGHT，_
        SB_WIDTH，SB_HEIGHT
     'Put these controls on top.
    HScroll1.ZOrder 
    VScroll1.ZOrder
    cmdFiller.ZOrder
    picCanvas.BorderStyle = 0
     'A click on the arrow moves one pixel.
    HScroll1.SmallChange = ScaleX(1，vbPixels，vbTwips)
    VScroll1.SmallChange = ScaleY(1，vbPixels，vbTwips)
    ? A click on the scroll bar moves 16 pixels.
    HScroll1.LargeChange = HScroll1.SmallChange * 16
    VScroll1.LargeChange = VScroll1.SmallChange * 16
     'If the form is larger than the picCanvas picture box,
    ? we don't need to show the corresponding scroll bar.
    If ScaleWidth <picCanvas.Width + SB_WIDTH Then
        HScroll1.Visible = True
        HScroll1.Max = picCanvas.Width + SB_WIDTH - ScaleWidth
    Else
        HScroll1.Value = 0
        HScroll1.Visible = False
    End If
    If ScaleHeight < picCanvas.Height + SB_HEIGHT Then
        VScroll1.Visible = True
        VScroll1.Max = picCanvas.Height + SB_HEIGHT - ScaleHeight
    Else
        VScroll1.Value = 0
        VScroll1.Visible = False
    End If
     'Make the filler control visible only if necessary.
    cmdFiller.Visible = (HScroll1.Visible Or VScroll1.Visible)
    MoveCanvas
End Sub

在設計階段中使用可捲軸的表單並不方便。我建議您將表單最大化並將PictureBox控制項的大小儘量放大。當您完成表單介面後，將PictureBox控制項大小調整為能包含所有控制項的最小範圍，再將表單的 WindowState 屬性設定為 0-一般 。

DRIVELISTBOX、DIRLISTBOX和FILELISTBOX控制項
　

簡單來說，DriveListBox控制項是類似組合方塊的控制項，它會自動顯示磁碟機代號和磁碟區標籤。DirListBox控制項是特殊的清單方塊，它會顯示目錄樹狀結構。FileListBox控制項是特殊功能的ListBox控制項，它會顯示指定目錄中所有的檔案，並根據檔案的名稱、副檔名和屬性選擇性的篩選檔案。

這些控制項通常在同一張表單上一起運作，當使用者選擇DriveListBox控制項內的磁碟時，DirListBox控制項會更新以顯示該磁碟的目錄樹狀結構。當使用者選擇DirListBox控制項內的路徑時，FileListBox控制項會顯示該目錄內的檔案清單。這些動作不會自動發生－您必須寫入程式碼才能完成。

在您將DriveListBox控制項和DirListBox控制項放置在表單上後，通常不需要設定它們的屬性。事件這些控制項並不會顯示任何特殊的屬性，至少在 屬性 視窗內不會。另一方面，FileListBox控制項會顯示一個您可以在設計階段中設定的屬性-Pattern 屬性。此屬性能指定在清單區域中會顯示哪一些檔案，它的預設值是 *.* (所有檔案)，但您可以輸入任何您需要的設定，您也可以使用分號做為區隔輸入多個設定值。您可以在執行階段中設定此屬性，如下行程式碼：

File1.Pattern ="*.txt;*.doc;*".rtf"

在這些初步的設定後，接下來便要設定一連串的事件了。當使用者選擇DriveListBox控制項的磁碟後，便會引發 Chang e 事件並傳回 Drive 屬性內的磁碟代號(和磁碟區標籤)。您可以設定此事件並設定DirListBox控制項的 Path 屬性來指定被選擇磁碟的根目錄：

Private Sub Drive1_Change()
     'The Drive property also returns the volume label，so trim it.
Dir1.Path = Left$(Drive1.Drive，1) & ":\"
End Sub

當使用者連按兩下目錄名稱時，DirListBox控制項便會引發 Change 事件，您設定此事件來設定FileListBox控制項的 Path 屬性：

Private Sub Dir1_Change()
    File1.Path = Dir1.Path
End Sub

最後，當使用者按一下FileListBox控制項內的檔案時，Click 事件會被引發(如同一般的ListBox控制項)，您可以查詢它的 Filename 屬性以得知哪一個檔案已經被選擇。注意您建立完成路徑的方式：

Filename = File1.Path 
If Right$(Filename，1) <> "\" Then Filename = Filename & "\"
Filename = Filename & File1.Filename

圖3-16的示範程式建立這些控制項以提供有功能的Image Preview公用程式。當控制項所有的表單被改變大小時，它也支援動態改變控制項的大小。

DirListBox和FileListBox控制項通常也支援它們的起源控制項-ListBox控制項-大部份的屬性，包括 ListCount 和 ListIndex 屬性和 Scroll 事件。FileListBox控制項支援多重選擇，因此您可以在 屬性 視窗內設定控制項的 MultiSelect 屬性，並在執行時間查詢 SelCount 和 Selected 屬性。

FileListBox控制項也有數個自訂的 Boolean 屬性，包括有Normal、Archive、Hidden、ReadOnly、和System，這些屬性允許您決定擁有這些屬性的檔案是否要列出(依照設，控制項並不顯示隱藏和系統檔案)。此控制項也支援數個自訂的事件，PathChange和PatternChange，當與這些事件對應的屬性經由程式碼變更時便會引發這些事件。

其他控制項
　

我們仍要簡短討論 工具箱 中其他的控制項。

Timer控制項
　

Timer控制項在執行階段中是看不見的，它的功用是定時時脈傳送目前的應用程式。您可以在Timer控制項的Timer事件程序中撰寫程式碼以設定此時脈，並利用它在背景執行工作或是監視使用者的動作。此控制項只有兩種有意義的屬性：Interval 和 Enabled。Interval 屬性代表時脈之間的毫秒數(Timer事件)，Enabled 屬性讓您啟用或停用事件。當您在表單上放置一個Timer控制項時，它的間隔是0，這表示沒有事件。因此，記住在 屬性 視窗或是在 Form_Load 事件程序將此屬性設定一個適當的數值：

Private Sub Form_Load()
    Timer1.Interval = 500     'Fire two Timer events per second.
End Sub

Timer控制項讓您只要寫幾行程式碼就能寫出有趣的程式。最典型(也是最濫用)的範例就是計時器。在此筆者加入分號，這只是為了增加一點強制性：

Private Sub Timer1_Timer()
    Dim strTime As String
    strTime = Time$
    If Mid$(lblClock.Caption，3，1) = ":"( Then
        Mid$(strTime，3，1)= "  "
        Mid$(strTime，6，1) = "  "
    End If
    lblClock.Caption = strTime
End Sub

注意

您必須小心不要在Timer事件程序中寫入太多的程式碼，因為此程式碼在每個時脈都會被執行，因此很容易降低應用程式的效能。還有一點很重要，千萬不要在Timer事件程序中執行DoEvents敘述，因為您可能會讓程序重新被執行，尤其如果 Interval 屬性設定為一個很小的數值且在程序中有很多程式碼時。

Timer控制項在定期更新狀態資訊時很有用。例如，您可能要在狀態列上顯示目前擁有駐點的控制項的簡短說明，您只將在表單上所有控制項的 GotFocus 事件中寫入一些程式碼就可以完成，但當您有數百個控制項時則需要很多程式碼（和時間）。在設計階段為每一個控制項將簡短的描述載入它的 Tag 屬性，再將Timer控制項放置在 Interval 性設定為500的表單上。此工作並不嚴格要求時間，因此您可以使用非常大的數值。最後在控制項的 Timer 事件中加上兩行程式碼：

Private Sub Timer1_Timer()
    On Error Resume Next
    lblStatusBar.Caption = ActiveControl.Tag
End Sub

Line控制項
　

Line控制項是裝飾性的控制項，它唯一的功能是讓您在設計階段中可以畫上直線，而非在執行階段中使用 Line 圖形方法顯示直線。此控制項有一些屬性，現在您應該感覺到很熟悉：BorderColor (線條的色彩)、BorderStyle(與表單的 DrawStyle 屬性相同)、BorderWidth(與表單的 DrawWidth 屬性相同)和 DrawMode。雖然Line控制項很方便，但記住在執行階段中使用 Line 方法對於效能而言是較佳的。

Shape控制項
　

Shape控制項是Line控制項的擴充。它可以顯示6種基本形狀：矩形、正方形、橢圓形、圓形、圓角矩形、和圓角正方形。它支援所有的Line控制項屬性和：BorderStyle(0-透明，1-不透明)、FillColor 和 FillStyle(與表單的相同名稱的屬性功能相同)。筆者在Line控制項中所提到的考量也適用在Shape控制項中。

OLE控制項
　

當OLE首次面世時，物件連結和內嵌(Object Linking and Embedding)的概念對於大多數的開發者而言簡直不可思議。在其他的Windows應用程式中能夠內嵌Microsoft Word文件或Microsoft Excel試算表(如圖3-17)令人感到興奮，Microsoft也立即推出OLE控制項-稱做OLE Container控制項-以幫助Visual Basic支援這個功能。

然而長期以來，OLE中的「內嵌」一詞已經失去了它的吸引力和重要性，今日程式設計師較在意且感到興趣的是Automation；它是OLE的子集，它能讓程式設計師由外部控制其他的Windows應用程式，並經由 OLE操作物件的階層架構。在此我不說明OLE控制項：它是一個十分複雜的物件，若要完整說明它的屬性、方法和事件會佔用很多的版面。

功能表
　

功能表是內建的控制項，但功能表的行為和其他的控制項不同。例如，您無法將功能表項目由 工具箱 拖曳至表單上，而是在 功能表編輯器 視窗中設計功能表，如圖3-18。此視窗可以由工具列的 功能表編輯器 開啟，或是按Ctrl+E快速鍵；它也可以由 工具 功能表的 功能表編輯器 開啟，但您或許不會常使用到它。

快顯功能表
　

Visual Basic也支援快顯功能表，也就是在大部份的商用應用程式中只要您以右鍵按一下使用者介面上的物件時，就會即時顯示的功能表。在Visual Basic中，您可以呼叫表單的 PopupMenu 方法來顯示快顯功能表，通常是在物件的 MouseDown 事件程序中：

Private Sub List1_MouseDown(Button As Integer，Shift As Integer，_
    X As Single，Y As Single)
    If Button And vbRightButton Then
        ? User right-clicked the list box.
        PopupMenu mnuListPopup
    End If
End Sub

您傳給 PopupMenu 方法的參數是您在 功能表編輯器 所定義的功能表名稱。它可以是您使用一般功能表結構所切換的子功能表，或是只做為快顯功能表的子功能表。在後者，您應該將在 功能表編輯器 中將它建立為最上層的功能表，再將它的 Visible 屬性設定為False。如果您的程式包括許多快顯功能表，您應讓發現新增一個看不見的最上層項目，再新增所有的快顯功能表在此項目之下是很方便的(在此情況下，您不需要讓每一個項目都不顯示)。PopupMenu 方法完整的語法是很複雜的：

PopupMenu Menu，[Flags]，[X]，[Y]，[DefaultMenu]

依照預設，快顯功能表顯示時會與滑鼠的游標靠左對齊。即使您以右鍵按一下的方式開啟功能表，您只能以滑鼠左鍵來選擇功能表上的命令。您可以使用 Flags 參數變更這些預設值。以下的常數可以控制對齊的方式：0-vbPopupMenuLeftAlign(預設)、4-vbPopupMenu-CenterAlign、和8-vbPopupMenuRightAlign。以下的常數可以決定在功能表作業期間哪一些按鈕可以作用：0-vbPopupMenuLeftButton (預設)和2-vbPopupMenuRightButton。舉例來說筆者一向使用後者，筆者發現既然當功能表顯示時它已經被按下了，則以右鍵選擇命令是很自然的：

PopupMenu mnuListPopup，vbPopupMenuRightButton

如果有指定X和y參數的話，這兩個參數會讓功能表在表單特定的位置上顯示，而不在滑鼠的座標上顯示。最後一個選擇性參數是快速功能表預設項目的功能表名稱，這些項目會以粗體顯示，此參數只有視覺上的效果。如果您要提供預設的功能表項目，您必須在 MouseDown 事件程序中寫入程式碼以設定右鍵的連按兩下功能。

小秘訣

您可以利用 PopupMenu 方法的x和y參數讓您的程式更能與Windows相容，並在使用者按下應用程式鍵(此鍵位在一般擴充鍵盤上的Windows鍵的右方)時在控制項上顯示快顯功能表。但記住Visual Basic並不定義此鍵的鍵盤程式碼常數。以下是處理的方式：

Private Sub List1_KeyDown(KeyCode As Integer，Shift As Integer)
    If KeyCode = 93 Then
         'The system pop-up menu key has been pressed.
         'Show a pop-up menu near the list box's center.
        PopupMenu mnuListPopup，，List1.Left + _
            List1.Width / 2，List1.Top + List1.Height / 2
    End If
End Sub

Visual Basic快速功能表的實行有一些缺點。所有Visual Basic的TextBox控制項在被右鍵按一下時都顯示一般 編輯 的快速功能表(如復原、複製、剪下等一般命令)。問題是如果您由TextBox控制項的 MouseDown 事件來引發 PopupMenut 方法，您自訂的功能表只會在標準的快速功能表之後顯示，很明顯這不是您想要的。唯一的解決方法便是使用一些非正式記載的技術，如下：

Private Sub Text1_MouseDown(Button As Integer，_
    Shift As Integer，X As Single，Y As Single)
    If Button And vbRightButton Then
        Text1.Enabled = False
        PopupMenu mnuMyPopup
        Text1.Enabled = True
    End If
End Sub

控制項陣列
　

目前為止，我們已經介紹不同的控制項，每一個控制項都有一個特定的名稱和特定的屬性及事件。除此之外Visual Basic也包含控制項陣列的功能，也就是多個控制共用相同的事件程序，即使陣列中每一個個別的元素的屬性都有不同的值。控制項陣列只能在設計階段中建立，而且在陣列中至少要有一個控制項。您可以使用下列三種方法中的一個建立控制項陣列：