【正文】 的使用 ? 3．在程序的運(yùn)行期，動(dòng)態(tài)的添加與刪除控件數(shù)組的元素 ? 在程序運(yùn)行時(shí)，使用 Load 和 Unload 語(yǔ)句可添加和刪除控件數(shù)組中的元素，然而，添加的控件必須是現(xiàn)有控件數(shù)組的元素。另外要注意的是，新元素的下標(biāo)不能與已存在的控件元素下標(biāo)重復(fù)，否則會(huì)導(dǎo)致運(yùn)行期錯(cuò)誤。 控件數(shù)組的使用 ? 例 ：先在窗體上放置兩個(gè)按鈕， Command1為 “ 加載控件 ” 按鈕， Command2為“ 卸載控件 ” 按鈕，每次單擊 Command1動(dòng)態(tài)加載一個(gè)控件，單擊 Command2卸載動(dòng)態(tài)加載的控件。放置一個(gè)文本框 Text1，用來捕捉單擊cmd控件數(shù)組元素的下標(biāo)，每次單擊 cmd按鈕時(shí)，將相應(yīng)的元素下標(biāo)顯示在 Text1中 控件數(shù)組的使用 例 代碼 Dim num As Integer Private Sub Command1_Click() num = num + 1 Load cmd(num) cmd(num).Caption = cmd( + Format(num) + ) cmd(num).Top = cmd(num 1).Top + cmd(num 1).Height cmd(num).Visible = True End Sub Private Sub Command2_Click() If num = 0 Then Exit Sub Unload cmd(num) num = num 1 End Sub Private Sub cmd_Click(Index As Integer) = 下標(biāo)為 + Str(Index) + 的 cmd被單擊 End Sub 第 8章 常用標(biāo)準(zhǔn)控件 ? 圖形控件 ? 框架 (Frame) ? 選擇控件 —— 單選框和復(fù)選框 ? 選擇控件 —— 列表框和組合框 ? 滾動(dòng)條 (HscrollBar與 VscrollBar) ? 計(jì)時(shí)器 (Timer) ? 焦點(diǎn)與 Tab順序 圖形控件 直線 (Line)與形狀 (Shape) ? 1． Line控件 ? 直線控件 Line并不常用，它的主要作用是要窗體上顯示一條直線段，把窗體上的控件進(jìn)行視覺上的分組。直線控件的外觀由為數(shù)很少的幾個(gè)屬性來決定。 ? 2． X1屬性、 Y1屬性、 X2屬性、 Y2屬性 ? 這 4個(gè)屬性決定了直線控件的兩個(gè)端點(diǎn)在窗體上的坐標(biāo)值。 ? 3． Visible屬性 ? Visible屬性決定了直線控件的可見性， True為可見； False為不可見。 直線 (Line)與形狀 (Shape) ? Line控件常用的屬性： ? 4． BorderStyle屬性 ? 此屬性決定了直線控件的線型 (線條樣式 )。要使用除 “ 實(shí)線 ”與 “ 透明 ” 之外的線型時(shí)，這個(gè)屬性一定要設(shè)為1，否則只顯示實(shí)線。形狀控件也是用來裝飾窗體的。形狀控件不響應(yīng)用戶操作，所以沒有Enabled屬性。所有可能的形狀見下表 直線 (Line)與形狀 (Shape) ? Shape控件 ? 4． BorderStyle屬性 ? 這個(gè)屬性決定了形狀控件的邊框樣式，取值與直線控件的 BorderStyle屬性相同。 ? 5． BorderWidth屬性 ? BorderWidth屬性決定形狀控件的邊框?qū)挾?，單位為像素? 直線 (Line)與形狀 (Shape) ? Shape控件 ? 6． FillStyle屬性 ? 此屬性決定形狀控件內(nèi)部的填充樣式。它支持的圖形文件格式有：位圖文件 ( .bmp)、 Windows元文件( .wmf)、增強(qiáng)型元文件 ( .emf)、圖標(biāo)文件 ( .ico) 、和以 .jpg 、 .gif為擴(kuò)展名的圖形文件。 ? 2． Left屬性、 Top屬性、 Width屬性、 Height屬性、Visible屬性、 Enabled屬性 ? 這些屬性與其他控件的意義相同。 ? 3． BorderStyle屬性 ? 此屬性值為 0時(shí)，圖像控件無邊框（默認(rèn)值）；為 1時(shí)，控件有邊框。不給此屬性賦值，則控件不會(huì)顯示任何圖形。 ? 在程序運(yùn)行時(shí)，可以在代碼中使用 Visual Basic的內(nèi)部函數(shù) LoadPicture來把一個(gè)圖形文件賦予此屬性?？蛇x參數(shù)要求以字符串的形式給出圖形的文件名，空參數(shù)的 LoadPicture()函數(shù)，可以清除對(duì)象中的圖像。當(dāng)圖像縮放過度時(shí)，會(huì)造成失真。 ? 6． Move方法 ? Image控件支持 Move方法，用法與其他控件相同。 圖像框 (Image) ? 例 ：圖像框中圖形的復(fù)制（本例中使用的圖形選自 Visual Basic安裝文件夾中的 Common\Graphics\Icons\Misc子文件夾，讀者可自行查找也可選用自已的圖形文件）在窗體上放置 5個(gè)圖像框控件分別命名為： img img img img4與 IMG，通過屬性窗口給 5個(gè)圖像框加載圖形，同時(shí)將前 4個(gè)圖像框的 Visible屬性設(shè)置為 False。 圖像框 (Image) ? 例 代碼 Dim intCh As Integer Private Sub Command1_Click() Select Case intCh Case 0 = Case 1 = Case 2 = Case 3 = End Select intCh = (intCh + 1) Mod 4 End Sub 圖片框 (PictureBox) ? 1． “ 名稱 ” 屬性 ? 圖片框控件的對(duì)象名。 ? 3． BorderStyle屬性 ? BorderStyle屬性值為 0時(shí)，圖片框無邊框；為 1時(shí)，有邊框（默認(rèn)值）。 圖片框 (PictureBox) ? 5． AutoSize屬性 ? 在運(yùn)行過程中，如果此屬性為 True，當(dāng)控件顯示的 圖像 (Picture屬性決定 )大小與控件大小不同時(shí)，會(huì)自動(dòng)改變控件的大小來與圖像的大小一致；如果屬性值為 False（默認(rèn)值），不會(huì)自動(dòng)調(diào)整控件大小。 圖片框 (PictureBox) ? 6． Align屬性 ? Align屬性決定了圖片框的位置，取值與意義見下表 圖片框 (PictureBox) ? 7． Move方法 ? PictureBox控件有 Move方法，用法和其他控件相同。 ? 9． Change事件 ? 當(dāng)圖片框的 Picture屬性的值變化時(shí)，即由顯示一個(gè)圖片改為顯示另一個(gè)圖片，則觸發(fā)這個(gè)事件。它的主要作用是對(duì)窗體上的控件進(jìn)行視覺上的分組，使窗體上的內(nèi)容更有條理。 ? 2． Left屬性、 Top屬性、 Width屬性、 Height屬性、 Visible屬性、 Enabled屬性 ? 框架控件的這些屬性與其他控件的意義相同。 框架 (Frame) ? 3． Caption屬性 ? 此屬性的值就是框架左上角的標(biāo)題文字?！O(shè)置一個(gè)快捷鍵。 框架 (Frame) ? 5． Move方法 ? 框架控件支持 Move方法，意義與用法和其他控件一樣。一般不必編寫框架控件的Click和 Dblclick事件過程。 ? 復(fù)選框表示用戶可以對(duì)這組功能進(jìn)行多選，也可以不選擇，可以用下列幾種方法使復(fù)選框在選中與不選中之間切換：（ 1）直接用鼠標(biāo)單擊；（ 2）使用復(fù)選框標(biāo)題文字中的快捷鍵（ Alt+字母）；（ 3）把輸入焦點(diǎn)移至復(fù)選框后按空格鍵。 單選框 (OptionButton) ? 單選框控件（又稱為選項(xiàng)按鈕），每個(gè)單選框都是由一個(gè)圓形框和標(biāo)題文字組成。單選框一般都成組地列在窗體上供用戶從中進(jìn)行選擇，在選項(xiàng)組中用單選框顯示選項(xiàng)，用戶只能選擇其中的一項(xiàng)。 單選框 (OptionButton) ? 1． “ 名稱 ” 屬性 ? 單選框控件的對(duì)象名。 ? 3． Caption屬性 ? 單選框控件的標(biāo)題文字。‖號(hào)建立一個(gè)快捷鍵。 單選框 (OptionButton) ? 5． Alignment屬性 ? 此屬性值為 0時(shí) (默認(rèn)值 )，單選框的圓形框在標(biāo)題文字左邊；當(dāng)此屬性值為 1時(shí)，圓形框在標(biāo)題文字右邊。當(dāng)屬性值為 False時(shí)，未選中（默認(rèn)值）；為 True時(shí)，選中。 ? 7． Move方法 ? 單選框支持 Move方法，用法與其他控件相同。一般情況下，沒有必要編寫這兩個(gè)事件過程，因?yàn)閱芜x框的選中與多個(gè)單選框之間的切換是控件自動(dòng)完成的。如果方框中有一個(gè) ” √” ，表明這一項(xiàng)被選中，如果方框中為空白，則未選中。 ? 多數(shù)情況下，在一個(gè)窗體中會(huì)有多個(gè)復(fù)選框 ,并且按功能進(jìn)行了分組。 復(fù)選框 (CheckBox) ? 1． “ 名稱 ” 屬性 ? 復(fù)選框控件的對(duì)象名。 ? 3． Caption屬性 ? 復(fù)選框控件的標(biāo)題文字?！⒁粋€(gè)快捷鍵。 ? 5． Alignment屬性 ? Alignment屬性值為 0時(shí)，復(fù)選框的方框在標(biāo)題文字左邊（默認(rèn)值），當(dāng)此屬性值為 1時(shí)，方框顯示在標(biāo)題文字右邊。 ? 8． Click事件 ? 除了用戶的鼠標(biāo)單擊動(dòng)作之外，其他任何可以改變復(fù)選框控件 Value屬性值的用戶動(dòng)作或程序語(yǔ)句都可以觸發(fā)此事件。 選擇控件 —— 列表框和組合框 列表框 (ListBox) ? 1． “ 名稱 ” 屬性 ? 列表框控件的對(duì)象名。 ? 3． Columns屬性 ? Columns屬性決定列表框中顯示條目的列數(shù)。 ? 4． ListCount屬性 ? 此屬性值是列表框中的條目數(shù)。 列表框 (ListBox) ? 5． List屬性 ? 此屬性實(shí)質(zhì)上是一個(gè)一維字符串?dāng)?shù)組，數(shù)組下標(biāo)的下界為 0，上界為L(zhǎng)istCount屬性值減 1。 ? 6． ListIndex屬性 ? ListIndex屬性的值是當(dāng)前被選中條目的下標(biāo)，列表框中被選中的條目會(huì)突出顯示。如果當(dāng)前沒有條目被選中，則此屬性值為 –1。 ItemData屬性是一個(gè)長(zhǎng)整型數(shù)組，數(shù)組中每個(gè)元素對(duì)應(yīng)列表框中的一個(gè)條目，元素的個(gè)數(shù)與列表框中條目數(shù)相同，并與 List屬性的元素一一對(duì)應(yīng)。具體取值與意義見下表 列表框 (ListBox) ? 9． Style屬性 ? Style屬性為 0時(shí)（默認(rèn)值），列表框?yàn)闃?biāo)準(zhǔn)樣式；為 1時(shí)，復(fù)選框樣式，列表框每個(gè)條目以復(fù)選框的形式顯示。如果沒有條目被選中，屬性值為 0。 ? 11． Selected屬性 ? Selected屬性是一個(gè)邏輯型數(shù)組，與 List和 ItemData 屬性相似。數(shù)組元素值為 True表示相應(yīng)的條目被選中， False表示未被選中。此屬性在設(shè)計(jì)時(shí)不可用。此屬性設(shè)計(jì)時(shí)不可用。如沒有條目被選中，則此屬性為空字符串列表框的 Text屬性中只讀屬性，并且在設(shè)計(jì)時(shí)不可用。 ? 14． Sorted屬性 ? Sorted屬性決定了列表框中的條目是否排序。此屬性在運(yùn)行時(shí)只讀。這個(gè)屬性為只讀，對(duì)于排序的列表框特別有用。如果在列表框中沒有條目或在新條目被加入之后有條目被刪除，那么 NewIndex屬性值為 1。語(yǔ)法： 列表框?qū)ο竺?. AddItem 字符串表達(dá)式 , [下標(biāo) ] ? 說明： AddItem方法把 “ 字符串 ” （可以是字符串類型、變量、常量或表達(dá)式）插入到列表框中下標(biāo)參數(shù)指定的位置上。 “ 下標(biāo) ” 參數(shù)的值不能大于列表框當(dāng)前的條目數(shù)。往排序的列表框中添加新條目時(shí)，不要使用第二個(gè)參數(shù)，否則可能引起混亂。應(yīng)該在添加之后使用 NewItem屬性得到新條目的序號(hào)，設(shè)置新條目的 ItemData值。 列表框 (ListBox) ? 17． RemoveItem方法 ? 此方法從列表框中刪除指定序號(hào)位置上的條目。它后面的條目均上移一行 列表框 (ListBox) ? 18． Clear方法 ? 清除列表框中所有條目，此方法無參數(shù)。用法與其他控件相同。應(yīng)該注意的是，只有使用鼠標(biāo)在列表框控件中的條目上單擊或雙擊時(shí)才引發(fā)這兩個(gè)事件。 列表框 (ListBox) ? 例 ：編制如圖所示的 “ 城市與人口 ” 的程序，程序具有以下功能： ? （ 1）在 “ 城市名 ” 和 “ 人口 ”文本框中輸入信息之后，單擊 “ 添加 ” 按鈕，城市名被添加到 “ 已有城市 ” 列表框中，相應(yīng)的人口數(shù)量也保存到條目相應(yīng)的 ItemData屬性中； ? （ 2）單擊列表框任意一個(gè)城市名，在兩個(gè)文本框中顯示出該城市的名稱與相應(yīng)的人口數(shù)量； ? （ 3）單擊 “ 刪除 ” 按鈕，刪除列表框中當(dāng)前選定的城市； ? （ 4）單擊 “ 全部刪除 ” 按鈕，刪除列表框中的全部