計算機程式 Visual BASIC 程式設計 四海工商專校 電算中心 廖文淵 E-Mail: andres@sitc.edu.tw

Chapter 6 VB控制項(1): 標籤、文字方塊、命令鈕 2. 標籤 (Label) 3. 文字方塊 (Text Box) 4. 命令鈕 (Command Button)

1. VB 的控制項 用來獲取使用者的輸入資訊和顯示輸出資訊 包括 屬性、方法和事件 文字方塊 指令按鈕 清單方塊 存取其它應用程式並處理資料的控制項 屬性、方法和事件

VB控制項分類 內建控制項: ‧ActiveX 控制項 ‧可插入的物件 在 Visual Basic 的 .exe 檔案中，出現在工具箱中 副檔名為 .ocx 的獨立檔案 各種版本 Visual Basic 提供的控制項 僅在專業版和企業版中提供的控制項 第三方所提供的許多 ActiveX 控制項 ‧可插入的物件 Microsoft Excel 工作表物件，或者一個包含某專案計劃資訊的 Microsoft Project 日曆物件 這些物件能新增到工具箱中，可把它們當作控制項使用

內建控制項物件 控制項名稱 描 述 _ Label 為使用者顯示使用者不可交談方式作業或不可修改的文字。 控制項名稱 描 述 _ Label 為使用者顯示使用者不可交談方式作業或不可修改的文字。 Text box 提供一個區域來輸入文字、顯示文字。 Horizontal / 對於無法自動提供捲軸的控制項，允許使用者為它們新增捲軸。 Vertical scroll bars （這些捲軸與許多控制項的內建捲軸不同。） List box 顯示項目清單，使用者可從中進行選擇。 Combo box 將文字方塊和清單方塊組合起來。使用者可以輸入選項，也可從下拉式清單 中選擇選項。 Check box 顯示 True/False 或 Yes/No 選項。一次可在表單上指定任意數目的核取方塊。 Option button Option Button 控制項與其它選項按鈕組成一組選項鈕，用來顯示多個選項， 使用者只能從中選擇一項。 Frame 為控制項提供可見的功能化.收納器。

控制項命名原則 第一次建立物件時，Name 屬性預設值: 如有好幾個同類型的控制項時，最好將 Name 屬性改成具 有描述性的名稱 Commandn，其中 n 為 1、2、3 等等 Command1，Command2，Command3 如有好幾個同類型的控制項時，最好將 Name 屬性改成具 有描述性的名稱 命名約定: 字首描述物件類別，後為控制項的描述性名稱 chkReadOnly cmdReadOnly

建議使用的控制項字首 Check box chk chkReadOnly Combo box cbo cboEnglish 控制項類型 字首 範例 Check box chk chkReadOnly Combo box cbo cboEnglish Command button cmd cmdExit Form frm frmEntry Frame fra fraLanguage Horizontal scroll bar hsb hsbVolume Label lbl lblHelpMessage List box lst lstPolicyCodes Text box txt txtLastName Vertical scroll bar vsb vsbRate

使用控制項值 所有控制項都有一個屬性，只需引用控制項名稱而 無需使用屬性名稱就可利用這個屬性來預存或擷取 數值，此屬性稱為控制項的值 所有控制項都有一個屬性，只需引用控制項名稱而 無需使用屬性名稱就可利用這個屬性來預存或擷取 數值，此屬性稱為控制項的值 通常是控制項最重要及最常用的屬性 Text1 = "This text is assigned to the Text _ property of Text1”

控制項值 控制項 屬性 Check box Value Combo box Text Command button Value 控制項 屬性 Check box Value Combo box Text Command button Value Data Caption Directory list box Path Drive list box Drive File list box FileName Frame Caption Horizontal scroll bar Value Image Picture Label Caption Line Visible List box Text Option button Value Picture box Picture Text box Text Vertical scroll bar Value

控制項陣列 共同名稱和型態、事件程序的控制項 至少應有一個元件，元件數目可在系統資源允許的範圍內 增加， 最大值為 32767 至少應有一個元件，元件數目可在系統資源允許的範圍內 增加， 最大值為 32767 元素有自己的屬性設定值 設計時，新增控制項比直接向表單新增多個相同型態的控 制項所消耗的資源來的少 共用程式碼: 三個選項按鈕的控制項陣列，按一下哪個按鈕，都將執行相同的 程式碼。

設計階段建立控制項陣列 三種方法： ‧將相同名字指派多個控制項。 ‧複製現有的控制項並將其黏貼到表單上。 ‧將控制項的 Index 屬性設定為非 Null 數值。

(1) 改變控制項名稱 步驟: 共用 Name 屬性和控制項型態 其它屬性與最初繪製控制項的值相同 繪製陣列中要新增的控制項 決定一個控制項作為陣列中的第一個元素 指定一個控制項，將 Name 設定值變成陣列第一個元素 Name 設 定值 為每一個控制項輸入現有名稱時，VB 將顯示一個對話方塊，要 求確認是否要建立控制項陣列。選擇「是」確認作業 共用 Name 屬性和控制項型態 其它屬性與最初繪製控制項的值相同

(2) 複製現存控制項 步驟: 索引值與其新增的次序相同 大多數可視屬性，將從第一個控制項複製到新控制項中 繪製陣列中的控制項 當控制項獲得駐點時，「編輯」/「複製」 「編輯」/「貼上」。VB 將顯示一個對話方塊詢問是否確認建立 控制項陣列。選擇「是」確認作業，此時 指定控制項 : Index屬性=1 第一個控制項 : Index屬性=0 索引值與其新增的次序相同 大多數可視屬性，將從第一個控制項複製到新控制項中 Height、Width、BackColor, …...

執行階段建立控制項陣列 Load 和 Unload 陳述式: 新增的控制項必須是現有控制項陣列的元素 必須先在設計階段建立一個 Index 屬性為 0 的控制項， 然後在執行階段使用如下語法： Load object(index%) Unload object(index%) 引數 描 述 object 在控制項陣列中新增或刪除的控制項名稱 index% 控制項在陣列中的索引值

駐點 (Focus) 當物件具有駐點時，表示可用來接收使用者的輸入 得到或失去駐點時會產生 GotFocus 或 LostFocus 事件 物件取得駐點的方法: 執行階段選取物件 執行階段，使用對應鍵來選取物件 按下Tab 鍵切換 在程式碼中使用 SetFocus 方法 Enabled 和 Visible 屬性設為 True 時，才能夠取得駐點

定位順序 Tab 鍵 : 切換駐點在控制項間移動的順序 每個表單都有自己的定位順序，通常就是建立這些控制項 時的順序 每個表單都有自己的定位順序，通常就是建立這些控制項 時的順序 預設情況下，第一個建立的控制項其 TabIndex 值為 0，第二個的 TabIndex 數值為 1，以此類推 TabIndex 屬性: 改變、決定一個控制項的定位順序 當一個控制項的定位順序改變，VB會自動地為其它控制項的定位順序位置重新編號，以回應插入和刪除的動作

程式中的使用者輔助工具 Visual Basic輔助工具列 工具列提示 「這是什麼」說明 狀態顯示 精靈

工具列提示（ToolTips) 是一個小標籤 當滑鼠指標在一個控制項上停留一會兒後就會顯示出來 顯示的是此控制項的功能描述 大部份工具列提示是用在工具列上，但也可用在其它種類 的介面工具上。 ToolTipText屬性 cmdPrint.ToolTipText = "Prints the current document"

「這是什麼」說明 選取「這是什麼」（What‘s This）說明項目，並按一下控制項上的「這是什麼」游標，便會顯示一個說明主題 「這是什麼」說明可以從工具列按鈕、功能表控制項或者對話方塊的標題列上的按鈕來開啟。 步驟: 選取控制項。 選取 WhatsThisHelpID 屬性，輸入說明主題代碼。 選取表單，設 WhatsThisHelp 屬性為 True。 Click 事件中，鍵入以下程式碼： formname.WhatsThisHelp WhatsThisButton 與 WhatsThisHelp 屬性為 True。

狀態顯示 提供不太適合工具列提示的指令或訊息 狀態列控制項、標籤控制項能用作狀態顯示之用 在狀態列中顯示的文字可以在下列兩個時間來更新： GotFocus 事件、MouseMove 事件 步驟: 在表單中新增一個標籤控制項 選取希望顯示訊息的控制項 在控制項的 MouseMove（或 GotFocus）事件中加入類似下列程 式碼： Labelname.Caption = "Enter the _ ‧customer's ID number in this field"

2. 標籤 (Label) 顯示文字，但無法編輯 識別表單的物件 : 用來標示沒有 Caption 屬性的控制項: 按一下控制項時，將會執行何種作業─ 或者在執行階段，為回應 應用程式的事件或處理而顯示相對的資訊 用來標示沒有 Caption 屬性的控制項: 新增描述性的標籤 : 文字、清單、下拉式清單方塊 新增描述文字 : 表單 撰寫程式碼改變顯示的文字內容以回應執行階段的事件 不接受駐點

標籤的屬性 Alignment Appearance AutoSize BackColor, ForeColor BackStyle BorderStyle Caption DataSource, DataField DragIcon, DragMode Enabled Font, FontBold, FontItalic, FontStrikethru, FontUnderline FontName FontSize Index Left, Top LinkItem MouseIcon MousePointer Name TabIndex Tag ToolTipText UseMnemonic Visible Height, Width WordWrap

UseMnemonic 屬性 -- 使用標籤建立對應鍵 UseMnemonic 屬性 = True 將 Caption 屬性中的字元定義成對應鍵 在作為對應鍵的字母之前，新增一個連字元 (&)，就可為其它具 有 Caption 屬性的控制項建立對應鍵 開啟檔案(&O)… 開啟檔案(&O)… UseMnemonic 屬性 = False 在標籤控制項中顯示連字元 (&)，而不是用它們建立對應鍵

3. 文字方塊 (Text Box) 功能 Locked 屬性 = True Text 屬性 MultiLine 屬性 = True 顯示輸入的資訊 設計或執行階段中，以 Text 屬性指派值 可編輯文字 Locked 屬性 = True 成為唯讀 Text 屬性 包含輸入的文字 預設時，輸入的字元最多為 2048 個 MultiLine 屬性 = True 可輸入多達 32K 的文字

MultiLine、ScrollBars屬性 MultiLine 屬性 = True 使控制項自動換列 Alignment 屬性可設為靠左對齊、中央對齊或靠右對齊 預設值為靠左對齊 MultiLine 屬性 = False Alignment 屬性無效 ScrollBars 屬性 設定新增水平捲軸或垂直捲軸 水平編輯區域增大，自動文字換資料行功能就會失敗

選擇文字 SelStart、SelLength 和 SelText 屬性: PasswordChar 屬性 控制文字方塊中的插入點和文字指定作業 PasswordChar 屬性 指定顯示在文字方塊中的字元 PasswordChar 屬性指定為 * ，可建立密碼文字方塊 和 MaxLength 配合，可簡化密碼方塊的建立流程

Example 6-1 Password Text Box

4. 命令鈕 (Command Button) 功能 Caption 屬性 啟動、中斷或結束一個處理 按一下時，將呼叫 Click 事件程序中的指令 按一下時，按鈕不僅能執行相對的作業，而且看起來就像是被按 和鬆開一樣 Caption 屬性 可建立指令按鈕的對應鍵快速鍵 在作為對應鍵的字母前新增一個連字元 (&) &Print 執行階段 : Print ，同時按 ALT+P 鍵就可直接指定該指令按鈕

Default 和 Cancel 屬性 在表單上，可選擇一指令按鈕作為預設指令按鈕 Default 屬性 = True 指定一個預設指令按鈕 不管那個控制項有駐點，只要按 ENTER 鍵，表示已按一下此預 設按鈕 Cancel 屬性 = True 指定預設的取消按鈕 不管表單的那個控制項有駐點，按 ESC 鍵，表示已按一下此預 設按鈕

選取指令按鈕的方法 滑鼠按一下按鈕 按 TAB 鍵，將駐點轉移到按鈕上，然後按 SPACEBAR 或 ENTER 鍵指定按鈕 按指令按鈕的對應鍵 ALT+ 帶有底線的字母 若指令按鈕是表單的預設指令按鈕，則可按 ENTER 鍵指 定按鈕

Example 6-2, 6-3 井字遊戲