2.3 控件
1. 常用控件介紹
（1）標準控件一
TextBox 文本框
Timer計時器
HscrollBar水平滾動條
ListBox列表框
Pointer 指針
VScrollBar 垂直滾動條
CheckBox 復(fù)選框
Label標簽
DirListBox 文件夾列表框
PictureBox圖片框
Line 線條
DriveListBox 驅(qū)動器列表框
ComboBox 組合框
Shape 圖形
FileListBox文件列表框
OptionButton選項按鈕
Image圖象
Data 數(shù)據(jù)控件
CommandButton 命令按鈕
Frame 框架
OLE控件
（2） 常用控件的屬性、方法和事件
公共屬性
Name、Caption、Enabled、Fantsize、Height、Width、Index、Left、Top、 TabStop
公共方法
Move、Refresh、Setfocus（設(shè)置焦點）
公共事件
Click、DblClick、LostFocus（失去焦點）
控件名稱
屬性、方法、事件
說明
TextBox 文本框
（用于接受用戶在框內(nèi)輸入的內(nèi)容）
Text屬性
即用戶從文本框輸入的內(nèi)容
PasswordChar屬性
設(shè)置口令時用的掩碼，如：用*代替實際輸入的內(nèi)容
MaxLength屬性
最大長度，缺省值是0，即可以輸入任意個字符
MultiLine屬性
為True時可以多行文本，為False時只能輸入一行文本
Alignment 屬性
文本在框中的對齊方式：0=左對齊，1=右對齊，2=居中
Chang事件
當(dāng)框中的文本內(nèi)容發(fā)生變化時觸發(fā)該事件
LostFocus事件
當(dāng)光標離開文本框時觸發(fā)該事件
Label 標簽（用于在窗體上添加文字說明）
Alignment屬性
Caption文本的對齊方式：0=左對齊，1=右對齊，2=居中
WordWrap屬性
為True時可根據(jù)標簽大小自動換行
AutoSize屬性
自動調(diào)節(jié)大小，為True時可根據(jù)文本大小自動調(diào)整標簽大小，為False時標簽大小不能改變，過長的文本被截掉
ListBox 列表框
（用于列出可供用戶選擇的項目列表）
List屬性
用于保存列表內(nèi)容，訪問： [對象名]. List（列表項序號）
列表項的序號由上到下依次為0、1、2、3……
ListCount屬性
列表項數(shù)目
ListIndex屬性
列表項索引，其值為最后選中的列表項序號，第一個為0，如果未選中任何表項，其值為-1。
Text屬性
列表項正文，其值為最后選中的列表項的文本，它與
List（ListIndex）相同。
Columns屬性
列表框顯示形式取0時為一列顯示所有行，其他值為多列。
Sort屬性
排序?qū)傩?，為True時，列表項按ASCII碼排序，為False時，則不排序。
AddItem方法
添加列表項，使用格式：
[ 對象名.] AddItem<列表項文本>[，插入位置序號]
若不指定位置，則插入到列表末尾。
Clear方法
刪除列表所有項目
RemoveItem方法
刪除列表項，使用格式：
[ 對象名 .] RemoveItem 刪除項序號
PictureBox 圖片框
Image 圖象（用來把圖形放入程序里）
AutoSize/Stretch
屬性
調(diào)整圖片框以適應(yīng)圖象 / 調(diào)整圖象以適應(yīng)外框
Picture屬性
決定控件中顯示的圖象
裝入圖形:
imgMyHand.Picture = LoadPicture ( “c:\graphics\hand.bmp” )
刪除圖形: imgMyHand.Picture = LoadPicture ( “ ” )
ComboBox 組合框（將列表框和文本框結(jié)合在一起）
Style屬性
外觀屬性：取0時，系統(tǒng)創(chuàng)建一個帶下拉式列表框的組合框；為1時，系統(tǒng)創(chuàng)建一個由文本框和列表框直接組合在一起的簡單組合框，可以從列表框中選擇，也可以直接在文本框中輸入；為2時，系統(tǒng)創(chuàng)建一個沒有文本框的下拉式列表框，單擊列表框上的按鈕才顯示文本框，用戶不能在文本框中輸入，只能在列表框中選擇。
Text 屬性
其值為用戶從列表框中選定的文本或直接輸入的文本。
AddItem方法
添加列表項，使用格式：
[ 對象名.] AddItem<列表項文本>[，插入位置序號]
若不指定位置，則插入到列表末尾。
Clear方法
刪除列表所有項目
RemoveItem 方法
刪除列表項，使用格式：
[ 對象名 .] RemoveItem 刪除項序號
CommandButton
命令按鈕
Cancel屬性
取消屬性，它為True時, 按〖ESC〗即等于單擊此按鈕。
Default屬性
缺省屬性，它為True時, 按回車鍵即等于單擊此按鈕。
Timer計時器
Interval屬性
兩次調(diào)用Timer事件的事件間隔，用于創(chuàng)建動態(tài)效果。
Frame 框架
CheckBox 復(fù)選框
OptionButton選項按鈕
Alignment屬性
決定它們的對齊方式，0=左對齊，1=右對齊。
Value屬性
決定它們是否被選中的屬性
2. 常用控件的使用辨析
（1）文本框和標簽的區(qū)別：
文本框通常用于向計算機輸入信息，而標簽通常用于輸出信息。文本框是一個十分重要的控件，因為由復(fù)選框和選項按鈕向程序輸入的信息畢竟只有少數(shù)的幾條信息而已。標簽和文本框的區(qū)別很小，標簽可以看成是一個在運行時不能修改正文的文本框，因此標簽主要用于輸出信息。
(2) Label的AutoSize屬性和WordWrap屬性
¨ 為了使標簽具有垂直伸展和字換行處理，必須設(shè)置它的AutoSize屬性和WordWrap屬性同時為True。
¨ AutoSize屬性為False，WordWrap屬性為False時，若標簽不夠高而Caption太長時，Caption將被切割掉。
¨ AutoSize屬性為False，WordWrap屬性為True時，情況也如此。
¨ AutoSize屬性為True，WordWrap屬性為False時，表示可以水平伸展，但只顯示一行信息。
(3) PictureBox和Image的Stretch屬性和AutoSize屬性
¨ Image只有Stretch屬性，而PictureBox只有AutoSize屬性。
¨ AutoSize屬性設(shè)為True，則PictureBox改變自己的大小來適應(yīng)其中的圖形。
¨ Stretch屬性設(shè)為True，則Image中的圖形將改變自己的大小來適應(yīng)外面的邊框。
（4）Frame 框架、CheckBox 復(fù)選框、OptionButton選項按鈕的區(qū)別：
¨ 復(fù)選框和選項按鈕用于向程序輸入信息, 框架用來對復(fù)選框和選項按鈕進行分組。
¨ 復(fù)選框選中時會在小方框里打一個鉤，選項按鈕選中時會在小圓圈里點一個點。
3．控件使用舉例
例3、4
2.4 定制菜單
1． 菜單概述
Windows中的菜單一般由菜單條、菜單、菜單項、子菜單、彈出式菜單組成。
2． 普通菜單的設(shè)計
（1） 給菜單命名
菜單標題和菜單命令也有Caption和Name屬性，設(shè)置了這兩個屬性就等于創(chuàng)建了菜單。Name是一個抽象名稱，Caption是屏幕上可見的，可在Caption里加入 “&” 來設(shè)置熱鍵。
（2） 增加和刪除菜單
在Menu Editor中部有三個命令鈕分別是下一個、插入、刪除。插入可用來增加新的菜單。在這三個鍵下面的Caption列表框里選中菜單項（這時它的底色就變成深藍色），單擊插入鍵，Visual Basic將上一個增亮菜單下推并增亮一空行，就可以輸入新菜單名和標題了。刪除鍵可用來刪掉菜單。選中要刪掉的菜單，單擊Delete鍵就可以刪掉它了。
（3） 移動菜單標題
有四種情況：向上移動，向下移動，向左縮排，向右縮排，選中某一菜單標題，安上下箭頭，則這個菜單將上下移動到你喜歡的位置上，這也決定了它在界面中的位置。如果按左右箭頭，情況則有所不同。由于菜單是分級的，所以，如果它沒有縮排，則它是一個菜單標題；如果它縮排一次，那么它將變成一個菜單命令；如果縮排兩次，那么它將成為一個子菜單命令。VB里可以總共設(shè)計四層子菜單。
（4） 設(shè)置分離條
分離條是指在菜單中將命令分組的線，VB將分離條也看成一個菜單項，它也需要Caption和Name屬性，而且也有其它屬性，分離條與菜單項的區(qū)別是分離條的Caption屬性必須是連字號即減號。也就是，當(dāng)設(shè)置了一個Caption屬性為 “-” 的菜單項時，實際上就設(shè)置了一個分離條，分離條的名字可以是barFile1之類，以表明分離條的位置。
（5） 菜單的各種簡單屬性
在菜單編輯器里有許多確認框和一些文本框及一個下拉式的列表框，這些決定了菜單的各種屬性。
1) Checked 復(fù)選屬性
這個屬性值設(shè)置為真，將在菜單命令左邊產(chǎn)生一個打勾的確認標志。
2) Enabled有效屬性
各種各樣的用戶會產(chǎn)生千奇百怪的操作，在許多Edit菜單里都會有不同形式的讓菜單命令模糊的情況。Enabled屬性為真，則菜單命令是清晰的，Enabled屬性為假，則菜單命令是模糊的，這時用戶就不能選中這個菜單項了。
3) Visible 可見屬性
對暫時不用的菜單， 如果把Visible屬性設(shè)為假，則菜單根本不會出現(xiàn)在屏幕上。這樣做比把Enabled屬性設(shè)為假顯得更加干脆！
4) Index屬性
可以生成菜單命令數(shù)組，用索引號區(qū)分開。例如向File菜單中添加一系列最近打開的文件名。添加菜單可用Load方法。以上屬性可以在運行時設(shè)置，形成動態(tài)的菜單的情況。
例如：
mnuUndo.Enabled = False
mnuProperty.Visible = False
還可以改變Caption等屬性。
mnuUndo.Caption = “Redo”
（6）為每個菜單項編寫事件過程代碼
3. 生成彈出式菜單（或浮動菜單）
幾乎每個Windows應(yīng)用程序都提供彈出式菜單，用戶可以右鍵單擊窗體或控件取得這個菜單。彈出式菜單也屬于普通菜單，只是不固定在窗體上，而是可以在任何地方顯示。
彈出式菜單用PopupMenu方法調(diào)用。假設(shè)已經(jīng)用菜單編輯器生成了名為mnuedit的菜單，則可以在MouseUp事件加入如下代碼就可以生成彈出式菜單：
If Button = 2 Then PopupMenu mnuedit
4．菜單設(shè)計示例
例 5
2.5 設(shè)計狀態(tài)條、工具欄、進程條等
1． 創(chuàng)建狀態(tài)條
選中狀態(tài)條，按F4鍵進入屬性窗口，雙擊（Custom）可以進入主要的設(shè)置窗口SBarCtrl屬性窗口。
（1） 選擇面板形狀
在SBarCtrl屬性窗口里選擇General標簽，在Style列表框里選擇多面板（缺省形式）或單面板簡單文本形式。
（2） 添加或刪除狀態(tài)條面板
在SBarCtrl屬性窗口里選擇Panels標簽，單擊Insert按鈕添加一個面板，或單擊Remove按鈕刪除一個面板。
（3） 在單面板里顯示文本
在SBarCtrl屬性窗口里選擇General標簽，在SimpleText框里輸入想顯示在狀態(tài)條面板里的文本。用代碼顯示的方式是：
StatusBar1.SimpleText = "New string to appear"
（4） 在多面板里顯示文本或圖形
1). 在SBarCtrl屬性窗口里選擇Panels標簽，用Index旁的按鈕選擇面板序號。
2). 在Text框里輸入想顯示在狀態(tài)條面板里的文本。
3). 如果想加入圖形，單擊Browse按鈕打開一個圖形選擇對話框，選擇想加入的圖形，然后單擊打開按鈕。
4). 最后按確定按鈕。
5). 用代碼顯示的方式是：StatusBar1.Panels(x).Text = "New string to appear"
6). 編寫代碼
如果是一個單面板狀態(tài)條，當(dāng)用戶單擊狀態(tài)條時，只需用下面的事件過程來響應(yīng)：
Private Sub StatusBar1_Click()
End Sub
如果是一個多面板狀態(tài)條，就需要鑒別用戶單擊的是哪一個面板，可用下面的事件過程來識別用戶所單擊的面板：
Private Sub StatusBar1_PanelClick(ByVal Panel As Panel)
Select Case Panel.Index
Case 1
'Code to follow if user clicks the first panel
Case 2
'Code to follow if user clicks the second panel
Case 3
'Code to follow if user clicks the third panel
End Select
End Sub
2． 創(chuàng)建工具欄
1. 建立工具條
1).在工具箱里單擊工具條圖標，拖到窗體的任何位置，Visual Basic自動將ToolBar移到頂部。
2).按F4鍵打開屬性窗口。
3).雙擊（Custom），打開ToolBar屬性窗口。
4). 選擇Buttons標簽。
5). 單擊Insert按鈕，Visual Basic就會在你的工具條上顯示一個空按鈕，現(xiàn)在為你的每一個按鈕重復(fù)這一步。
6). 單擊確定按鈕。
如果想把按鈕分組，首先生成一個分隔的按鈕，再在剛才提到的對話框里將這個按鈕的Style屬性改為3-Separator。
（2） 為工具條增加圖畫
1). 在Visual Basic工具箱里單擊ImageList圖標，并將它拖到窗體的任何位置（位置不重要，因為它總是不可見的）。
2). 按F4打開屬性窗口。
3). 雙擊（Custom），打開ImageListCtrl屬性窗口。
4). 選擇Image標簽。
5). 單擊Insert Picture，在現(xiàn)在圖形的對話框里選擇想使用的位圖或圖標，然后單擊打開按鈕。為每個想添加圖形的工具條按鈕重復(fù)此步。
6). 單擊確定按鈕。
7). 單擊工具條，按F4，雙擊（Custom），顯示ToolBar屬性對話框。
8). 選擇General標簽，在ImageList框里選擇剛才添加的ImageList控件。
9). 選擇Buttons標簽，單擊緊挨Index框的向左或向右箭頭以選擇一個按鈕序號。出現(xiàn)在工具條最左邊的按鈕序號為1。
10). 在Image框里輸入一個數(shù)，輸入為1，則顯示剛才ImageList控件里的第一個圖形，輸入為2，則顯示剛才ImageList控件里的第二個圖形。
11). 為每個按鈕重復(fù)第10步。
12). 單擊確定按鈕，現(xiàn)在Visual Basic就會在工具條上顯示精美的圖形了。
（3） 為工具條添加文本信息
在ToolBar屬性對話框中選擇Buttons標簽，在Caption框里輸入想顯示在按鈕上的文本。
（4） 添加ToolTips
ToolTips是一種當(dāng)點到工具按鈕時彈出的小標簽。ToolTips很方便，可以告訴那些新手每個按鈕是干什么用的。在剛才提到的ToolBar屬性對話框中選擇Buttons標簽，在ToolTipText框里輸入想作為ToolTip的文本。
（5） 編寫代碼
雙擊工具條，以下面的格式輸入代碼就可以了：
Private Sub Toolbar1_ButtonClick(ByVal Button As Button)
Select Case Button.Index
Case 1
'Code to follow if user clicks the first button
Case 2
'Code to follow if user clicks the second button
Case 3
'Code to follow if user clicks the third button
End Select
End Sub
3． 創(chuàng)建進程條
進程條的三個屬性：
(1). Min屬性代表進程條全空時的值，缺省時為0。
(2). Max屬性代表進程條全空時的值，缺省時為100。
(3) Value屬性代表進程條當(dāng)前的值（不用在屬性窗口里找這個屬性，它不出現(xiàn)在屬性窗口中，但它的確存在），它大于Min屬性，小于Max屬性。改變Value屬性的值將改變進程條的進度顯示。
為了了解進程條的功能，在窗體里添加一個進程條和一個命令鈕，雙擊命令鈕進入代碼窗口，鍵入如下代碼：
Private Sub Command1_Click()
If ProgressBar1.Value < ProgressBar1.Max Then
ProgressBar1.Value = ProgressBar1.Value + 5
Else
ProgressBar1.Visible = False ‘當(dāng)進程條滿了的時候讓進程條消失
End If
End Sub
4． 創(chuàng)建滑塊
（1）. 選擇滑塊的外觀
1). Orientation屬性決定滑塊的方位，可以是垂直的或水平的滑塊。
2). TickStyle屬性決定滑塊標記的樣子。
3). TickFrequency屬性規(guī)定了沿著滑塊的標記的間隔大小，缺省的狀態(tài)是1，表明每個可能值都出現(xiàn)標記，如果把值設(shè)置為3，則每三個可能值出現(xiàn)一個標記。
（2） 滑塊的Min，Max，Value屬性
這三個屬性和進程條的這三個屬性差不多，Min，Max表示滑塊的最小和最大值，Value表示進程條的當(dāng)前值。
（3） 滑塊的LargeChange，SmallChange屬性
LargeChange規(guī)定了當(dāng)用戶用鼠標單擊滑塊時，滑塊可移動的距離。SmallChange規(guī)定了用戶按左箭頭或右箭頭時滑塊的移動距離。
5. 創(chuàng)建TabStrip頁框控件
