第二章 VB程序的界面設(shè)計(jì)

1、第第2章章 VB程序的界面設(shè)計(jì)程序的界面設(shè)計(jì)&2.1 窗體對象窗體對象打開打開VB時(shí)或新建一個(gè)工程時(shí)，時(shí)或新建一個(gè)工程時(shí)，VB都自動(dòng)創(chuàng)都自動(dòng)創(chuàng)建了一個(gè)窗體對象。我們可以根據(jù)需要?jiǎng)?chuàng)建建了一個(gè)窗體對象。我們可以根據(jù)需要?jiǎng)?chuàng)建多個(gè)窗體對象。多個(gè)窗體對象。方法方法1：在工程菜單中選擇添加窗體。：在工程菜單中選擇添加窗體。方法方法2：在工具欄中選擇添加窗體。：在工具欄中選擇添加窗體。方法方法3：在工程資源管理器窗口中用鼠標(biāo)：在工程資源管理器窗口中用鼠標(biāo)右健單擊窗體，鼠標(biāo)指針指向添右健單擊窗體，鼠標(biāo)指針指向添加，選擇添加窗體。加，選擇添加窗體。一、窗體對象的創(chuàng)建一、窗體對象的創(chuàng)建二、窗體對象的屬性二

2、、窗體對象的屬性Name(名稱名稱)：系統(tǒng)自動(dòng)會(huì)為每個(gè)窗體命名為：系統(tǒng)自動(dòng)會(huì)為每個(gè)窗體命名為 Form1、 Form2、 Form3、。當(dāng)我們要改它們的名稱時(shí)當(dāng)我們要改它們的名稱時(shí)(盡量盡量改改)，建議用窗體的實(shí)際意義加前，建議用窗體的實(shí)際意義加前綴綴Frm組成。如一個(gè)啟動(dòng)窗體，組成。如一個(gè)啟動(dòng)窗體，它的名稱可以用它的名稱可以用FrmStartUp命名。命名。Caption屬性：窗體標(biāo)題。它是出現(xiàn)在標(biāo)題欄中屬性：窗體標(biāo)題。它是出現(xiàn)在標(biāo)題欄中的文字。的文字。BackColor屬性：窗體的背景色。屬性：窗體的背景色。ForeColor屬性：窗體的前景色。屬性：窗體的前景色。BorderStyle:

3、 窗體邊框風(fēng)格。窗體邊框風(fēng)格。Enabled: 活動(dòng)屬性。決定對象是否能被事件激活?；顒?dòng)屬性。決定對象是否能被事件激活。缺省值為缺省值為“True”, 表示能被事件激活。表示能被事件激活。“False”表示不能被事件激活表示不能被事件激活I(lǐng)con: 圖標(biāo)屬性。設(shè)置運(yùn)行時(shí)窗體最小化時(shí)所顯圖標(biāo)屬性。設(shè)置運(yùn)行時(shí)窗體最小化時(shí)所顯示的圖標(biāo)?；蛟跇?biāo)題欄上所看到的圖標(biāo)。示的圖標(biāo)?；蛟跇?biāo)題欄上所看到的圖標(biāo)。Left、Top、Height、Width: 決定窗體的位置與決定窗體的位置與大小。大小。Font: 設(shè)置窗體所顯示文字的字體、字型和字號(hào)。設(shè)置窗體所顯示文字的字體、字型和字號(hào)。三、窗體對象的方法三、窗體對

4、象的方法Hide : 隱藏隱藏Move: 移動(dòng)移動(dòng)Print: 打印打印PrintForm: 打印窗體打印窗體Refresh: 刷新刷新Show: 顯示顯示四、窗體對象的事件四、窗體對象的事件Click: 單擊事件單擊事件DblClick: 雙擊事件雙擊事件Load: 裝載事件裝載事件Resize: 窗體被改變大小時(shí)，觸發(fā)本事件。窗體被改變大小時(shí)，觸發(fā)本事件。Activate: 窗體變?yōu)楫?dāng)前窗口時(shí)，觸發(fā)本事件。窗體變?yōu)楫?dāng)前窗口時(shí)，觸發(fā)本事件。Deactivate:窗體失去當(dāng)前窗口時(shí)，觸發(fā)本事件。窗體失去當(dāng)前窗口時(shí)，觸發(fā)本事件。五、五、 設(shè)置對象的屬性和方法設(shè)置對象的屬性和方法格式：格式：選中對

5、象后直接在屬性窗口中為屬性選中對象后直接在屬性窗口中為屬性設(shè)置值設(shè)置值方法方法1：方法方法2：用語句設(shè)置屬性值：用語句設(shè)置屬性值Object.Property=Expression對象名對象名屬性名稱屬性名稱設(shè)置新值設(shè)置新值設(shè)置屬性：設(shè)置屬性：例：單擊窗體時(shí)，窗體上顯示例：單擊窗體時(shí)，窗體上顯示“歡迎使用歡迎使用Visual BASIC”，窗體的標(biāo)題欄上顯示，窗體的標(biāo)題欄上顯示“實(shí)實(shí)驗(yàn)驗(yàn)1”使用方法的格式：使用方法的格式：Object.Method Arg1, Arge2, .對象名對象名方法名方法名參數(shù)參數(shù)答：答：Option Explicit打開代碼窗口，編寫如下程序打開代碼窗口，編寫如下

6、程序Private Sub Form_Click() Form1.FontSize = 22 Form1.Font = 黑體黑體 Form1.Print 歡迎使用歡迎使用Visual Basic Form1.Caption = “實(shí)驗(yàn)實(shí)驗(yàn)1End Sub六、窗體的顯示、隱藏六、窗體的顯示、隱藏使用使用 Show與與 Hide 方法可以顯示或隱藏窗體方法可以顯示或隱藏窗體例：創(chuàng)建二個(gè)窗體，在窗體例：創(chuàng)建二個(gè)窗體，在窗體1上建三個(gè)按鈕，窗上建三個(gè)按鈕，窗體對象界面如下體對象界面如下窗體窗體1的屬性設(shè)置如下：的屬性設(shè)置如下：Name：FrmStartUpCaption: 窗體窗體1一個(gè)按鈕的屬性設(shè)置

7、如下：一個(gè)按鈕的屬性設(shè)置如下：Name：CmdOpenCaption: 顯示窗體顯示窗體2另一個(gè)按鈕的屬性設(shè)置如下：另一個(gè)按鈕的屬性設(shè)置如下：Name：CmdCloseCaption: 隱藏窗體隱藏窗體2第三個(gè)按鈕的屬性設(shè)置如下：第三個(gè)按鈕的屬性設(shè)置如下：Name：CmdExitCaption: 退出退出窗體窗體2的屬性設(shè)置如下：的屬性設(shè)置如下：Name：FrmWorkCaption: 窗體窗體2編寫程序代碼：編寫程序代碼：Private Sub CmdOpen_Click() FrmWork.ShowEnd SubPrivate Sub CmdClose_Click() FrmWork.Hi

8、deEnd SubPrivate Sub CmdExit_Click() EndEnd Sub演示程序演示程序七、窗體的七、窗體的Print 方法方法Print 方法用于將文本輸出到窗體上。方法用于將文本輸出到窗體上。Print 方法的格式為：方法的格式為：Object.Print p1p2.輸出項(xiàng)。可以是輸出項(xiàng)。可以是常量；變量；表常量；變量；表達(dá)式等達(dá)式等輸出項(xiàng)之間的分隔符，輸出項(xiàng)之間的分隔符，可以是逗號(hào)或分號(hào)可以是逗號(hào)或分號(hào)1、輸出布局：、輸出布局：a、標(biāo)準(zhǔn)格式、標(biāo)準(zhǔn)格式(也叫分區(qū)格式也叫分區(qū)格式)-用用“,”作為輸出項(xiàng)之間的分作為輸出項(xiàng)之間的分隔隔符，每個(gè)輸出項(xiàng)占據(jù)一個(gè)顯符，每個(gè)輸出項(xiàng)

9、占據(jù)一個(gè)顯示區(qū)示區(qū)(一個(gè)顯示區(qū)占一個(gè)顯示區(qū)占14個(gè)字符個(gè)字符位置位置)。b、緊湊格式、緊湊格式(也叫自由格式也叫自由格式)-用用“;”作為輸作為輸出出項(xiàng)之間的分隔符，每個(gè)分號(hào)都使項(xiàng)之間的分隔符，每個(gè)分號(hào)都使后面的一個(gè)輸出項(xiàng)緊靠前面的輸后面的一個(gè)輸出項(xiàng)緊靠前面的輸出項(xiàng)。出項(xiàng)。2、數(shù)值的組成、數(shù)值的組成符號(hào)位符號(hào)位數(shù)值部分?jǐn)?shù)值部分一個(gè)空格一個(gè)空格例：例：Print 55例：例：Print -5-5輸出為：輸出為：輸出為：輸出為：3、續(xù)行、續(xù)行當(dāng)一個(gè)當(dāng)一個(gè)Print語句的末尾是一個(gè)語句的末尾是一個(gè)“,”或或“;”時(shí)，時(shí)，表示下一個(gè)表示下一個(gè)Print 語句中的輸出項(xiàng)應(yīng)接在本語句中的輸出項(xiàng)應(yīng)接在本語句

10、輸出項(xiàng)的后面輸出。語句輸出項(xiàng)的后面輸出。4、空行、空行當(dāng)一個(gè)當(dāng)一個(gè)Print語句無輸出項(xiàng)時(shí)，將空一行。語句無輸出項(xiàng)時(shí)，將空一行。例：例： Print “12345678901234”Print 1,2;3Print Print “a”; “ b”;Print “c”,“ d”&3.2 命令按鈕控件命令按鈕控件命令按鈕命令按鈕(CommandButton)在工具箱中的按鈕工具在工具箱中的按鈕工具命令按鈕的屬性：命令按鈕的屬性：1、名稱：缺省值為、名稱：缺省值為Command1、Command2、 建議以建議以按鈕的實(shí)際意義加前綴按鈕的實(shí)際意義加前綴Cmd 組成。組成。例：兩個(gè)按鈕，一個(gè)是

11、加例：兩個(gè)按鈕，一個(gè)是加1，一個(gè)是退出。所以，一個(gè)是退出。所以兩個(gè)按鈕的名稱分別命名為兩個(gè)按鈕的名稱分別命名為CmdAdd1, CmdExitOption ExplicitPrivate Sub CmdAdd1_Click() Static x As Integer x = x + 1 Text1.Text = xEnd SubPrivate Sub CmdExit_Click() EndEnd Sub窗體模塊的對象為：窗體模塊的對象為：窗體模塊的代碼為：窗體模塊的代碼為：2、Caption屬性：缺省值為屬性：缺省值為Command1、Command2、 它是按鈕上的標(biāo)題它是按鈕上的標(biāo)題顯示文

12、字，建議以按鈕的實(shí)際意義說顯示文字，建議以按鈕的實(shí)際意義說明組成。明組成。3、Enabled屬性：值為屬性：值為True或或False，設(shè)置或返，設(shè)置或返回一個(gè)值，用來確定按鈕是否能夠?qū)匾粋€(gè)值，用來確定按鈕是否能夠?qū)τ脩舢a(chǎn)生的事件作出反應(yīng)。用戶產(chǎn)生的事件作出反應(yīng)。例：在一個(gè)窗體上建立一個(gè)加例：在一個(gè)窗體上建立一個(gè)加1按鈕，一個(gè)減按鈕，一個(gè)減1按按鈕，在按加鈕，在按加1按鈕時(shí)按鈕時(shí)(結(jié)果在結(jié)果在010之間之間), 不允不允許按減許按減1按鈕，在按減按鈕，在按減1按鈕時(shí)按鈕時(shí)(結(jié)果在結(jié)果在100之之間間)不允許按加不允許按加1按鈕。按鈕。Option ExplicitDim x As Integ

13、erPrivate Sub CmdAdd1_Click() x = x + 1 Text1.Text = x If x = 10 Then CmdAdd1.Enabled = False CmdSub1.Enabled = True End IfEnd SubPrivate Sub CmdExit_Click() EndEnd SubPrivate Sub CmdSub1_Click() x = x - 1 Text1.Text = x If x = 0 Then CmdAdd1.Enabled = True CmdSub1.Enabled = False End IfEnd SubPriva

14、te Sub Form_Load() CmdAdd1.Enabled = True CmdSub1.Enabled = FalseEnd Sub4、Visible屬性：值為屬性：值為True或或False，決定按鈕是，決定按鈕是否可見。否可見。5、Cancel屬性：值為屬性：值為True或或False，決定按鈕是，決定按鈕是否是取消按鈕。即否是取消按鈕。即Cancel屬性設(shè)置屬性設(shè)置為為True時(shí)，表示按鍵盤上的時(shí)，表示按鍵盤上的Esc鍵就鍵就是單擊此按鈕。是單擊此按鈕。6、Default屬性：值為屬性：值為True或或False，決定按鈕是，決定按鈕是否是否是Enter鍵。即鍵。即Defau

15、lt屬性設(shè)置屬性設(shè)置為為True時(shí)，表示按鍵盤上的時(shí)，表示按鍵盤上的Enter鍵鍵就是單擊此按鈕。就是單擊此按鈕。7、TabIndex屬性：設(shè)置或返回父窗體中按鈕對屬性：設(shè)置或返回父窗體中按鈕對象的象的Tab順序。順序。(值為值為0n-1，n為窗體為窗體中控件對象的個(gè)數(shù)中控件對象的個(gè)數(shù))8、TabStop屬性：值為屬性：值為True、False。指出用戶。指出用戶是否可以使用是否可以使用Tab鍵來選定對象。鍵來選定對象。TabStop設(shè)置為設(shè)置為True,表示可以選定對象表示可以選定對象9、創(chuàng)建鍵盤快捷方式：利用、創(chuàng)建鍵盤快捷方式：利用Caption屬性，在標(biāo)題屬性，在標(biāo)題顯示文字某個(gè)字符前加

16、連字符顯示文字某個(gè)字符前加連字符(&)，這時(shí)，這時(shí)可看見該字符出現(xiàn)一個(gè)下劃線，運(yùn)行時(shí)，可看見該字符出現(xiàn)一個(gè)下劃線，運(yùn)行時(shí)，只要按只要按Alt+帶下劃線字符帶下劃線字符，就能選定該，就能選定該按鈕。按鈕。1010、ValueValue屬性：在屬性：在設(shè)計(jì)時(shí)設(shè)計(jì)時(shí)不可用。不可用。True True 表示已選表示已選擇該按鈕；擇該按鈕；FalseFalse（缺省值）表示沒有選（缺省值）表示沒有選擇該按鈕。如果在代碼中設(shè)置擇該按鈕。如果在代碼中設(shè)置ValueValue屬屬性值為性值為TrueTrue，表示激活該按鈕的，表示激活該按鈕的ClickClick事事件。件。1111、選定命令按鈕：、選

17、定命令按鈕：A A、用鼠標(biāo)單擊按鈕。、用鼠標(biāo)單擊按鈕。B B、按、按TabTab鍵，將焦點(diǎn)移到該按鈕上，然后按鍵，將焦點(diǎn)移到該按鈕上，然后按EnterEnter鍵或空格鍵。鍵或空格鍵。C C、若按鈕有快捷方式，則只要按快捷鍵即可、若按鈕有快捷方式，則只要按快捷鍵即可(Alt+(Alt+帶下劃線字符帶下劃線字符) )。D D、若按鈕是默認(rèn)命令按鈕，則只要、若按鈕是默認(rèn)命令按鈕，則只要EnterEnter鍵鍵即可。即可。E E、若按鈕是默認(rèn)取消按鈕，則只要、若按鈕是默認(rèn)取消按鈕，則只要EscEsc鍵鍵即可。即可。&2-3 標(biāo)簽標(biāo)簽(Label)在工具箱中的標(biāo)簽工具在工具箱中的標(biāo)簽工具標(biāo)簽的

18、屬性：標(biāo)簽的屬性：1、名稱：缺省值為、名稱：缺省值為Label1、Label2、。建議以。建議以標(biāo)簽的實(shí)際意義加前綴標(biāo)簽的實(shí)際意義加前綴Lbl組成。組成。2、Caption屬性：缺省值為屬性：缺省值為Label1、Label2、。設(shè)置或返。設(shè)置或返回標(biāo)題欄的文本?；貥?biāo)題欄的文本。3、Alignment屬性：缺省值為屬性：缺省值為0-Left Justify。設(shè)置或返回標(biāo)簽標(biāo)。設(shè)置或返回標(biāo)簽標(biāo)題欄文本的對齊方式。題欄文本的對齊方式。0-Left Justify 表示左對齊表示左對齊1- Right Justify 表示中對齊表示中對齊2- Center表示右對齊表示右對齊4、AutoSize屬性

19、：缺省值為屬性：缺省值為False。設(shè)置標(biāo)。設(shè)置標(biāo)簽是否能水平自動(dòng)調(diào)整大小以顯簽是否能水平自動(dòng)調(diào)整大小以顯示所有的內(nèi)容。示所有的內(nèi)容。5、WordWrap屬性：缺省值為屬性：缺省值為False。設(shè)置。設(shè)置標(biāo)簽是否能垂直自動(dòng)調(diào)整大小以標(biāo)簽是否能垂直自動(dòng)調(diào)整大小以顯示所有的內(nèi)容。顯示所有的內(nèi)容。6、UseMnemonic屬性：缺省值為屬性：缺省值為True。設(shè)。設(shè)置返回標(biāo)簽的置返回標(biāo)簽的Caption屬性中能否屬性中能否出現(xiàn)下劃線。出現(xiàn)下劃線。True - 在在&字符后的字符出字符后的字符出現(xiàn)下劃線?，F(xiàn)下劃線。False - 在在&字符后的字符不出字符后的字符不出現(xiàn)下劃線，現(xiàn)下劃線

20、，&顯示在標(biāo)題欄中顯示在標(biāo)題欄中&2-4 文本框文本框(TextBox)在工具箱中的文本框工具在工具箱中的文本框工具文本框的屬性：文本框的屬性：文本框用來輸入或顯示文本框用來輸入或顯示(輸出輸出)文字信息文字信息1、名稱：缺省值為、名稱：缺省值為Text1、Text2、。建議以文本框的實(shí)際意義加前綴建議以文本框的實(shí)際意義加前綴txt組成。組成。2、Text屬性：輸入或輸出到文本框的文字。屬性：輸入或輸出到文本框的文字。缺省時(shí)，可輸入缺省時(shí)，可輸入2048個(gè)字符。若將個(gè)字符。若將MultiLine屬性設(shè)置成屬性設(shè)置成True，則可，則可輸入多達(dá)輸入多達(dá)32K的字符。的字符。3、M

21、ultiLine屬性：缺省值為屬性：缺省值為False。決定文。決定文本框是否允許接受多行文本。本框是否允許接受多行文本。4、ScrollBar屬性：缺省值為屬性：缺省值為0-Nore。決定文。決定文本框是否加上水平滾動(dòng)條或垂直滾本框是否加上水平滾動(dòng)條或垂直滾動(dòng)條。動(dòng)條。例：在文本框中輸入多排文字例：在文本框中輸入多排文字Private Sub Command1_Click() Text1 = Visual Basic & _ vbCrLf & 123456End Sub創(chuàng)建如下用戶界面：創(chuàng)建如下用戶界面：將文本框的將文本框的MultiLine屬性設(shè)置為屬性設(shè)置為True編寫如

22、下程序：編寫如下程序：5、Alignment屬性：在屬性：在MultiLine屬性為屬性為True時(shí)，此屬性起作用。時(shí)，此屬性起作用。0 - Lift Justify1 - Right Justify2 - Center6、PasswordChar屬性：創(chuàng)建密碼文本框。在屬性：創(chuàng)建密碼文本框。在此屬性中加一個(gè)此屬性中加一個(gè)“*”, 則運(yùn)行時(shí)此則運(yùn)行時(shí)此文文本框中無論輸入什么字符，都只顯本框中無論輸入什么字符，都只顯示示*號(hào)。號(hào)。例：創(chuàng)建一個(gè)密碼窗口。例：創(chuàng)建一個(gè)密碼窗口。窗體模塊的對象為：窗體模塊的對象為：窗體模塊的代碼為：窗體模塊的代碼為：Option ExplicitPrivate Sub

23、 CmdExit_Click() EndEnd SubPrivate Sub CmdOK_Click() If TxtPass.Text = 123456 Then FrmPassWord.Hide FrmMain.Show Else MsgBox (密碼錯(cuò)誤，請重輸入密碼錯(cuò)誤，請重輸入) TxtPass.SetFocus TxtPass = Exit Sub End IfEnd Sub7、MaxLength屬性：設(shè)置文本框中最大可以屬性：設(shè)置文本框中最大可以輸入的字符數(shù)。若超過則系統(tǒng)發(fā)出輸入的字符數(shù)。若超過則系統(tǒng)發(fā)出嘟嘟聲。嘟嘟聲。缺省值是缺省值是0 -輸入的字符取決于輸入的字符取決于系統(tǒng)對

24、內(nèi)存所建系統(tǒng)對內(nèi)存所建立的值。立的值。8、Locked屬性：決定文本框中的文本是否可屬性：決定文本框中的文本是否可編輯。編輯。缺省值為缺省值為False - 文本可編輯文本可編輯9、取消文本框中的擊鍵值、取消文本框中的擊鍵值對于文本框中所輸入字符，可以利對于文本框中所輸入字符，可以利用用KeyPress事件加以過濾或限制。事件加以過濾或限制。例：計(jì)算兩個(gè)數(shù)的平均數(shù)例：計(jì)算兩個(gè)數(shù)的平均數(shù)窗體模塊的窗體模塊的對象為：對象為：Txtnum1Txtnum2TxtResult三個(gè)文本框的三個(gè)文本框的名字分別為：名字分別為：Option ExplicitPrivate Sub Txtnum1_KeyPre

25、ss(KeyAscii As Integer) If KeyAscii Asc(9) Then KeyAscii = 0 0 代表長度為代表長度為0的字符串的字符串 Beep End IfEnd SubPrivate Sub CmdOk_Click() TxtResult = (Val(TxtNum1) + Val(TxtNum2) / 2End SubPrivate Sub Txtnum2_KeyPress(KeyAscii As Integer) If KeyAscii Asc(9) Then KeyAscii = 0 0 代表長度為代表長度為0的字符串的字符串 Beep End IfEn

26、d Sub窗體模塊的窗體模塊的代碼為：代碼為：&2-5 復(fù)選框復(fù)選框(CheckBox)在工具箱中的復(fù)選框工具在工具箱中的復(fù)選框工具復(fù)選框的屬性：復(fù)選框的屬性：復(fù)選框用來在多個(gè)選項(xiàng)中選擇一個(gè)或多復(fù)選框用來在多個(gè)選項(xiàng)中選擇一個(gè)或多個(gè)選項(xiàng)。個(gè)選項(xiàng)。1、名稱：缺省值為、名稱：缺省值為Check1、Check2、。建議以文本。建議以文本框的實(shí)際意義加前綴框的實(shí)際意義加前綴chk組成。組成。2、Value屬性：是默認(rèn)屬性，決定該復(fù)選框?qū)傩裕菏悄J(rèn)屬性，決定該復(fù)選框是否被選中是否被選中0 - Unchecked (缺省值缺省值) 沒選中沒選中1 - Checked選中選中2 - Grayed暗淡暗

27、淡其中其中0 可用可用 VbUnChecked 代替代替1 可用可用 VbChecked 代替代替2 可用可用 VbGrayed 代替代替例：調(diào)查體育愛好例：調(diào)查體育愛好Option ExplicitPrivate Sub Command1_Click() Dim x1, x2, x3 As String If Check1 = vbChecked Then x1 = Check1.Caption Else x1 = End If If Check2 = vbChecked Then x2 = Check2.Caption Else x2 = End If If Check3 = vbChec

28、ked Then x3 = Check3.Caption Else x3 = End If Label2.Caption = Label2.Caption = Text1 + 愛好愛好 + x1 + x2 + x3End Sub&2-6 選項(xiàng)按鈕選項(xiàng)按鈕(OptionButton)在工具箱中的選項(xiàng)按鈕工具在工具箱中的選項(xiàng)按鈕工具(單選項(xiàng)單選項(xiàng))選項(xiàng)按鈕用來在多個(gè)選項(xiàng)中選擇一個(gè)選選項(xiàng)按鈕用來在多個(gè)選項(xiàng)中選擇一個(gè)選項(xiàng)。項(xiàng)。創(chuàng)建選項(xiàng)按鈕組：創(chuàng)建選項(xiàng)按鈕組：要將選項(xiàng)按鈕分組，只要將選項(xiàng)按要將選項(xiàng)按鈕分組，只要將選項(xiàng)按鈕創(chuàng)建在控件容器中。例：在窗體鈕創(chuàng)建在控件容器中。例：在窗體上的選項(xiàng)按鈕都是一

29、組。在框架中上的選項(xiàng)按鈕都是一組。在框架中的選項(xiàng)按鈕也是一組。在同一組選的選項(xiàng)按鈕也是一組。在同一組選項(xiàng)按鈕中只能選擇一個(gè)選項(xiàng)。項(xiàng)按鈕中只能選擇一個(gè)選項(xiàng)。選項(xiàng)按鈕的屬性：選項(xiàng)按鈕的屬性：1、名稱：缺省值為、名稱：缺省值為Option1、Option2、。建議以選項(xiàng)按鈕的實(shí)際意義加前綴建議以選項(xiàng)按鈕的實(shí)際意義加前綴Opt組成。組成。2、缺省屬性：為、缺省屬性：為Value。值為。值為 True - 選中選中False - 沒選中沒選中例：調(diào)查體育愛好例：調(diào)查體育愛好Option ExplicitPrivate Sub Command1_Click() Dim x1, x2, x3, xb As

30、String If Text1 = Then MsgBox (請輸入姓名請輸入姓名): Text1.SetFocus: Exit Sub If Check1 = vbChecked Then x1 = Check1.Caption Else x1 = End If If Check2 = vbChecked Then x2 = Check2.Caption Else x2 = End If If Check3 = vbChecked Then x3 = Check3.Caption Else x3 = End IfIf Option1 = True Then xb = Option1.Capt

31、ionElseIf Option2 = True Then xb = Option2.CaptionEnd If Label2.Caption = Label2.Caption = Text1 + xb + 愛好愛好 + x1 + x2 + x3End Sub&2-7 框架框架(Frame)在工具箱中的框架工具在工具箱中的框架工具框架用來為一些控件提供可標(biāo)識(shí)的分組?？蚣苡脕頌橐恍┛丶峁┛蓸?biāo)識(shí)的分組。在框架中繪制控件在框架中繪制控件1、先繪制框架，然后在框架中繪制、先繪制框架，然后在框架中繪制其它控件。這時(shí)移動(dòng)框架，框架其它控件。這時(shí)移動(dòng)框架，框架中的其它控件一起移動(dòng)。中的其它控件一起

32、移動(dòng)。2、先繪制框架，如果在框架外繪制、先繪制框架，如果在框架外繪制其它控件，然后移入框架，這時(shí)其它控件，然后移入框架，這時(shí)框架與框架內(nèi)的其它控件將分別框架與框架內(nèi)的其它控件將分別移動(dòng)。移動(dòng)。&2-8 列表框列表框(ListBox)在工具箱中的列表框工具在工具箱中的列表框工具列表框用來為用戶提供選項(xiàng)列表。列表框用來為用戶提供選項(xiàng)列表。在在Windows 95/98 /2000中出現(xiàn)的列中出現(xiàn)的列表框表框列表框的屬性：列表框的屬性：1、名稱：缺省值為、名稱：缺省值為List1、List2、。建議以。建議以列表框的實(shí)際意義加前綴列表框的實(shí)際意義加前綴Lst組成。組成。2、Text屬性：它是

33、默認(rèn)屬性屬性：它是默認(rèn)屬性 ，表示列，表示列表框中表框中選中的列表項(xiàng)目。選中的列表項(xiàng)目。例：圖示列表框中，當(dāng)我們選中第二行時(shí)，列表例：圖示列表框中，當(dāng)我們選中第二行時(shí)，列表框的框的Text屬性就是屬性就是222Private Sub List1_Click() Print List1.TextEnd Sub3、List屬性：列表框中的內(nèi)容實(shí)際上是一個(gè)屬性：列表框中的內(nèi)容實(shí)際上是一個(gè)字符串?dāng)?shù)組中的內(nèi)容，數(shù)組的字符串?dāng)?shù)組中的內(nèi)容，數(shù)組的每一項(xiàng)對應(yīng)列表框中的每一行內(nèi)容。每一項(xiàng)對應(yīng)列表框中的每一行內(nèi)容。所以所以List屬性的語法格式為屬性的語法格式為Object.List(Index) =String

34、Index 為為 0 - 列表框中表項(xiàng)數(shù)量列表框中表項(xiàng)數(shù)量-1代表數(shù)組中的下標(biāo)代表數(shù)組中的下標(biāo)例：例： Object.List(Index) 選中列表項(xiàng)中下標(biāo)指示的那一項(xiàng)的內(nèi)容選中列表項(xiàng)中下標(biāo)指示的那一項(xiàng)的內(nèi)容Private Sub List1_Click() Print List1.List(1)End Sub例：例： Object.List(Index) =String直接給列表項(xiàng)中下標(biāo)指示的那一項(xiàng)賦新值直接給列表項(xiàng)中下標(biāo)指示的那一項(xiàng)賦新值Private Sub List1_Click() List1.List(1) = VBEnd Sub注意：注意：如果下標(biāo)如果下標(biāo)(Index)超出范圍

35、將出現(xiàn)下列錯(cuò)誤。超出范圍將出現(xiàn)下列錯(cuò)誤。Option ExplicitPrivate Sub Command1_Click() Static i As Integer If i List1.ListCount - 1 Then i = 0 End If Text1 = List1.List(i) i = i + 1End SubPrivate Sub Form_Load() List1.AddItem “輕化1201 List1.AddItem “輕化1202 List1.AddItem “輕化輕化1203End Sub例：一個(gè)列表框中有三行內(nèi)容，按下按鈕在例：一個(gè)列表框中有三行內(nèi)容，按下按鈕

36、在文本框中輪流顯示列表框中的表項(xiàng)文本框中輪流顯示列表框中的表項(xiàng)4、ListCount屬性：該屬性計(jì)算出列表框中屬性：該屬性計(jì)算出列表框中表項(xiàng)的數(shù)量。表項(xiàng)的數(shù)量。5 5、ListIndex屬性：該屬性返回或設(shè)置控件中屬性：該屬性返回或設(shè)置控件中當(dāng)前選擇項(xiàng)目的索引當(dāng)前選擇項(xiàng)目的索引( (下標(biāo)下標(biāo)),),在設(shè)計(jì)在設(shè)計(jì)時(shí)不可用。時(shí)不可用。object.ListIndex = index語法格式：語法格式：指定當(dāng)前選擇項(xiàng)目的下標(biāo)指定當(dāng)前選擇項(xiàng)目的下標(biāo)值為值為 0-ListCount-1 -1 表示沒選中表示沒選中例：例： object.ListIndex 返回一個(gè)值，它是被選中的表項(xiàng)的下標(biāo)。返回一個(gè)值，

37、它是被選中的表項(xiàng)的下標(biāo)。范圍在范圍在0-ListCount-1 之間之間Private Sub List1_Click() Print List1.ListIndexEnd Sub例：例： object.ListIndex =Index設(shè)置一個(gè)值，直接選中數(shù)組下標(biāo)所表示設(shè)置一個(gè)值，直接選中數(shù)組下標(biāo)所表示的列表框表項(xiàng)。的列表框表項(xiàng)。Private Sub List1_Click() List1.ListIndex=0End Sub注意：注意：如果下標(biāo)如果下標(biāo)(Index)超出范圍將出現(xiàn)錯(cuò)誤。超出范圍將出現(xiàn)錯(cuò)誤。Private Sub List1_Click() List1.ListIndex =

38、 5End Sub例：例：錯(cuò)誤信息為：錯(cuò)誤信息為：Option ExplicitPrivate Sub Form_Load() List1.AddItem 一年級一年級 List1.AddItem 二年級二年級 List1.AddItem 三年級三年級 List1.AddItem 四年級四年級 List1.AddItem 五年級五年級End SubPrivate Sub List1_DblClick() Print List1.ListIndex Print List1.Text Print List1.List(List1.ListIndex) List1.ListIndex=0End Su

39、b例：理解例：理解ListIndex屬性屬性6 6、Selected屬性：該屬性返回或設(shè)置列表框?qū)傩裕涸搶傩苑祷鼗蛟O(shè)置列表框控件中的一個(gè)項(xiàng)的選擇狀態(tài)控件中的一個(gè)項(xiàng)的選擇狀態(tài), ,在設(shè)計(jì)在設(shè)計(jì)時(shí)不可用。時(shí)不可用。Object.Selected(index) =Boolean語法格式：語法格式：控件中選擇項(xiàng)目的下標(biāo)控件中選擇項(xiàng)目的下標(biāo)True或或 False例：例：Object.Selected(index)返回返回True 或或 False 表示下標(biāo)指示的那表示下標(biāo)指示的那個(gè)項(xiàng)有沒有被選中個(gè)項(xiàng)有沒有被選中例：例：Object.Selected(index)= Boolean設(shè)置設(shè)置True 或或

40、 False ，直接選中下標(biāo)指，直接選中下標(biāo)指示的那個(gè)項(xiàng)；或直接取消下標(biāo)指示的示的那個(gè)項(xiàng)；或直接取消下標(biāo)指示的那個(gè)項(xiàng)。那個(gè)項(xiàng)。7 7、MultiSelect屬性：該屬性返回或設(shè)置一個(gè)值，屬性：該屬性返回或設(shè)置一個(gè)值，用來表示列表框中的項(xiàng)能否進(jìn)行復(fù)選。用來表示列表框中的項(xiàng)能否進(jìn)行復(fù)選。0 0( (缺省值缺省值) )不允許復(fù)選。不允許復(fù)選。1 1簡單復(fù)選。即用鼠標(biāo)單擊或空格鍵簡單復(fù)選。即用鼠標(biāo)單擊或空格鍵進(jìn)行選中或取消。進(jìn)行選中或取消。2 2擴(kuò)展復(fù)選。用鼠標(biāo)配合擴(kuò)展復(fù)選。用鼠標(biāo)配合Shift或或Ctrl鍵進(jìn)鍵進(jìn)行選擇。方法與行選擇。方法與Windows98Windows98中的選擇一中的選擇一樣。

41、樣。二、列表框的事件：二、列表框的事件：列表框的常用事件為列表框的常用事件為Click和和DblClickClick-表示單擊列表框中的某一項(xiàng)表示單擊列表框中的某一項(xiàng)DblClick-表示雙擊列表框中的某一項(xiàng)表示雙擊列表框中的某一項(xiàng)三、列表框的方法：三、列表框的方法：1、AddItem方法：它用來向列表框中添方法：它用來向列表框中添加項(xiàng)目。加項(xiàng)目。語法格式：語法格式：object.AddItem item, index添加到列表框中的項(xiàng)目添加到列表框中的項(xiàng)目指示項(xiàng)目添指示項(xiàng)目添加到列表框加到列表框中的位置。中的位置。它是可選的它是可選的2、RemoveItem方法：從列表框中刪除以方法：從列表

42、框中刪除以“Index”為目標(biāo)的項(xiàng)目。為目標(biāo)的項(xiàng)目。語法格式：語法格式：object.RemoveItem index指示列表框中需刪除項(xiàng)的指示列表框中需刪除項(xiàng)的位置。它是必選項(xiàng)位置。它是必選項(xiàng)下標(biāo)下標(biāo)例：創(chuàng)建一個(gè)按鈕和一個(gè)列表框，按按鈕時(shí)向例：創(chuàng)建一個(gè)按鈕和一個(gè)列表框，按按鈕時(shí)向列表中添加項(xiàng)目。雙擊列表框中的某一項(xiàng)列表中添加項(xiàng)目。雙擊列表框中的某一項(xiàng)時(shí)，則將它刪除。時(shí)，則將它刪除。3、Clear方法：從列表框中刪除所有項(xiàng)目。方法：從列表框中刪除所有項(xiàng)目。Option ExplicitPrivate Sub Command1_Click() List1.AddItem 一年級一年級 List1

43、.AddItem 二年級二年級 List1.AddItem 三年級三年級 List1.AddItem 四年級四年級 List1.AddItem 五年級五年級End SubPrivate Sub List1_DblClick() List1.RemoveItem List1.ListIndexEnd SubPrivate Sub Command2_Click() List1.ClearEnd Sub&2-9 組合框組合框(ComboBox)在工具箱中的組合框工具在工具箱中的組合框工具組合框是文本框與列表框的結(jié)合，用來組合框是文本框與列表框的結(jié)合，用來為用戶提供建議性的選項(xiàng)列表。為用戶提供

44、建議性的選項(xiàng)列表。一、組合框的屬性：一、組合框的屬性：1、名稱：缺省值為、名稱：缺省值為Combo1、Combo2、。建議以組合框。建議以組合框的實(shí)際意義加前綴的實(shí)際意義加前綴Cbo組成。組成。2、Text屬性：它是默認(rèn)屬性屬性：它是默認(rèn)屬性 ，表示組合，表示組合框中選中的文本或列表項(xiàng)目?？蛑羞x中的文本或列表項(xiàng)目。object.Text = string語法格式：語法格式：3、Style屬性：該屬性選擇組合框中的樣式。屬性：該屬性選擇組合框中的樣式。0 vbComboDropDown 下拉式組合框下拉式組合框它是默認(rèn)設(shè)置。包括文本它是默認(rèn)設(shè)置。包括文本框和框和能能下拉的列表。即可下拉的列表。即

45、可在文本部分輸入文字，又在文本部分輸入文字，又可打開下拉式列表，選擇可打開下拉式列表，選擇列表項(xiàng)目。列表項(xiàng)目。1 vbComboSimple 簡單組合框簡單組合框包括文本框和包括文本框和不能不能下拉的下拉的列表?？梢栽谖谋局休斎搿⒘斜??？梢栽谖谋局休斎?、也可以在列表中選擇也可以在列表中選擇2 vbComboDrop-DownList 下拉式列表下拉式列表包括文本框和能下拉的列包括文本框和能下拉的列表。它表。它不能不能在文本中輸入、在文本中輸入、只能在列表中選擇只能在列表中選擇4、往組合框中添加項(xiàng)目：、往組合框中添加項(xiàng)目：(a)、使用使用List屬性：修改列表項(xiàng)目或在下屬性：修改列表項(xiàng)目或在下拉

46、列表中往后添加項(xiàng)目拉列表中往后添加項(xiàng)目語法格式：語法格式：object.List(index) = string下標(biāo)下標(biāo)(b)、使用使用AddItem方法：方法：語法格式：語法格式：object.AddItem item, index添加到組合框中的項(xiàng)目添加到組合框中的項(xiàng)目指示項(xiàng)目添指示項(xiàng)目添加到組合框加到組合框中的位置。中的位置。它是可選的它是可選的5、往組合框中的文本框部分添加文本：、往組合框中的文本框部分添加文本：在在Style屬性屬性=0或或Style屬性屬性=1時(shí)，使用時(shí)，使用Text屬性：屬性：語法格式：語法格式：object.Text = string在在Style屬性屬性=2時(shí)

47、，時(shí)，Text屬性只能是屬性只能是只讀只讀6、組合框中刪除項(xiàng)目：、組合框中刪除項(xiàng)目：使用使用RemoveItem方法：方法：語法格式：語法格式：object.RemoveItem index指示組合框中需刪除項(xiàng)的指示組合框中需刪除項(xiàng)的位置。它是必選項(xiàng)位置。它是必選項(xiàng)7、Clear方法：從組合框中刪除所有項(xiàng)目。方法：從組合框中刪除所有項(xiàng)目。8、ListCount屬性：該屬性計(jì)算出組合框中屬性：該屬性計(jì)算出組合框中表項(xiàng)的數(shù)量。表項(xiàng)的數(shù)量。9 9、ListIndex屬性：該屬性返回或設(shè)置組合框?qū)傩裕涸搶傩苑祷鼗蛟O(shè)置組合框中當(dāng)前選擇項(xiàng)目的索引中當(dāng)前選擇項(xiàng)目的索引( (下標(biāo)下標(biāo)) )。用用它判斷一個(gè)項(xiàng)的

48、位置它判斷一個(gè)項(xiàng)的位置。在設(shè)計(jì)時(shí)不。在設(shè)計(jì)時(shí)不可用?？捎谩bject.ListIndex = index語法格式：語法格式：指定當(dāng)前選擇項(xiàng)目的下標(biāo)指定當(dāng)前選擇項(xiàng)目的下標(biāo)值為值為 0-ListCount-1 -1 表示沒選中表示沒選中例：例：object.ListIndex object.ListIndex = index返回選中項(xiàng)的下標(biāo)值返回選中項(xiàng)的下標(biāo)值例：例：直接選中下標(biāo)指示的項(xiàng)。直接選中下標(biāo)指示的項(xiàng)。&2-10 驅(qū)動(dòng)器列表框驅(qū)動(dòng)器列表框(DriveListBox)在工具箱中的驅(qū)動(dòng)器列表框工具在工具箱中的驅(qū)動(dòng)器列表框工具驅(qū)動(dòng)器列表框用來為用戶提供有效的磁驅(qū)動(dòng)器列表框用來為用戶提供

49、有效的磁盤驅(qū)動(dòng)器選擇。盤驅(qū)動(dòng)器選擇。一、驅(qū)動(dòng)器列表框的屬性：一、驅(qū)動(dòng)器列表框的屬性：1、名稱：缺省值為、名稱：缺省值為Drive1、Drive2、。建議以驅(qū)動(dòng)器列表框的實(shí)際意建議以驅(qū)動(dòng)器列表框的實(shí)際意義加前綴義加前綴Drv組成。組成。2、Drive屬性：它是默認(rèn)屬性屬性：它是默認(rèn)屬性 ，返回或，返回或設(shè)置運(yùn)行時(shí)選擇的驅(qū)動(dòng)器。設(shè)置運(yùn)行時(shí)選擇的驅(qū)動(dòng)器。在設(shè)計(jì)時(shí)不可用。在設(shè)計(jì)時(shí)不可用。object.Drive = drive語法格式：語法格式：例：例：Drive1.Drive = “c:”表示選中磁盤驅(qū)動(dòng)器表示選中磁盤驅(qū)動(dòng)器c:3、ListCount屬性：返回驅(qū)動(dòng)器列表框中列屬性：返回驅(qū)動(dòng)器列表框中

50、列表的個(gè)數(shù)表的個(gè)數(shù)(驅(qū)動(dòng)器的個(gè)數(shù)驅(qū)動(dòng)器的個(gè)數(shù), 包括軟驅(qū)、包括軟驅(qū)、硬盤、光驅(qū)硬盤、光驅(qū))。4、List屬性：返回驅(qū)動(dòng)器列表框中列表的某屬性：返回驅(qū)動(dòng)器列表框中列表的某個(gè)選項(xiàng)。在運(yùn)行時(shí)只讀。個(gè)選項(xiàng)。在運(yùn)行時(shí)只讀。object.List(index)語法：語法：例：例：Drive1.Drive = drive1.list(1)表示選中驅(qū)動(dòng)器列表框中排列第二行的表示選中驅(qū)動(dòng)器列表框中排列第二行的磁盤驅(qū)動(dòng)器磁盤驅(qū)動(dòng)器例：例：Print Drive1.Drive顯示當(dāng)前磁盤驅(qū)動(dòng)器顯示當(dāng)前磁盤驅(qū)動(dòng)器例：創(chuàng)建驅(qū)動(dòng)器列表框，當(dāng)按下按鈕時(shí)在驅(qū)動(dòng)器例：創(chuàng)建驅(qū)動(dòng)器列表框，當(dāng)按下按鈕時(shí)在驅(qū)動(dòng)器列表框中顯示光盤驅(qū)動(dòng)器

51、。列表框中顯示光盤驅(qū)動(dòng)器。Private Sub Command1_Click() Drive1.Drive = Drive1.List(Drive1.ListCount - 1)End Sub5 5、ListIndex屬性：該屬性返回或設(shè)置控件中屬性：該屬性返回或設(shè)置控件中當(dāng)前選擇項(xiàng)目的索引當(dāng)前選擇項(xiàng)目的索引( (下標(biāo)下標(biāo)) )。用它判用它判斷一個(gè)項(xiàng)的位置斷一個(gè)項(xiàng)的位置。在設(shè)計(jì)時(shí)不可用。在設(shè)計(jì)時(shí)不可用。object.ListIndex = index語法格式：語法格式：指定當(dāng)前選擇項(xiàng)目的下標(biāo)指定當(dāng)前選擇項(xiàng)目的下標(biāo)值為值為 0-ListCount-1 -1 表示沒選中表示沒選中&2-1

52、1 目錄列表框目錄列表框(DirListBox)在工具箱中的目錄列表框工具在工具箱中的目錄列表框工具目錄列表框用來為用戶顯示目錄和路徑。目錄列表框用來為用戶顯示目錄和路徑。一、目錄列表框的屬性：一、目錄列表框的屬性：1、名稱：缺省值為、名稱：缺省值為Dir1、Dir2、。建議以目錄列表框的實(shí)際意義建議以目錄列表框的實(shí)際意義加前綴加前綴Dir組成。組成。2、Path屬性：它是默認(rèn)屬性屬性：它是默認(rèn)屬性 ，返回或，返回或設(shè)置運(yùn)行時(shí)選擇的當(dāng)前路徑。設(shè)置運(yùn)行時(shí)選擇的當(dāng)前路徑。在設(shè)計(jì)時(shí)不可用。在設(shè)計(jì)時(shí)不可用。object.Path = pathname語法格式：語法格式：例：創(chuàng)建驅(qū)動(dòng)器列表框和目錄列表框

53、，當(dāng)改變驅(qū)例：創(chuàng)建驅(qū)動(dòng)器列表框和目錄列表框，當(dāng)改變驅(qū)動(dòng)器列表框中的驅(qū)動(dòng)器時(shí)，在目錄列表框顯動(dòng)器列表框中的驅(qū)動(dòng)器時(shí)，在目錄列表框顯示相應(yīng)的文件夾。示相應(yīng)的文件夾。Private Sub Drive1_Change() Dir1.Path = Drive1.DriveEnd Sub3、ListCount屬性：返回目錄列表框中當(dāng)前目屬性：返回目錄列表框中當(dāng)前目錄的子目錄個(gè)數(shù)。錄的子目錄個(gè)數(shù)。4、List屬性：返回目錄列表框中列表的某屬性：返回目錄列表框中列表的某個(gè)目錄選項(xiàng)。在運(yùn)行時(shí)只讀。個(gè)目錄選項(xiàng)。在運(yùn)行時(shí)只讀。object.List(index)語法：語法：指定當(dāng)前選擇目錄的下標(biāo)指定當(dāng)前選擇目錄的

54、下標(biāo)范圍為范圍為-n 到到 ListCount-1當(dāng)前選中的目錄下標(biāo)為當(dāng)前選中的目錄下標(biāo)為-1, 緊鄰其上的為緊鄰其上的為-2 , -3 , 緊鄰其下的目錄下標(biāo)依次為緊鄰其下的目錄下標(biāo)依次為0,1,2,3, 例：例：Private Sub Drive1_Change() Dir1 = Drive1 Print Dir1.ListCount Print Dir1.List(0)End Sub5 5、ListIndex屬性：該屬性返回或設(shè)置控件中屬性：該屬性返回或設(shè)置控件中當(dāng)前選擇項(xiàng)目當(dāng)前選擇項(xiàng)目( (目錄目錄) )的索引的索引( (下標(biāo)下標(biāo)) )。用它判斷一個(gè)項(xiàng)的位置用它判斷一個(gè)項(xiàng)的位置。在設(shè)計(jì)

55、時(shí)不。在設(shè)計(jì)時(shí)不可用?？捎?。object.ListIndex = index語法格式：語法格式：指定當(dāng)前選擇項(xiàng)目的下標(biāo)指定當(dāng)前選擇項(xiàng)目的下標(biāo)值為值為 0-ListCount-1 -1 表示沒選中表示沒選中例：例：Private Sub Drive1_Change() Dir1 = Drive1 Print Dir1.ListCount Print Dir1.List(0) Dir1.ListIndex = 3End Sub&2-12 文件列表框文件列表框(FileListBox)在工具箱中的文件列表框工具在工具箱中的文件列表框工具文件列表框用來為用戶顯示某個(gè)目錄中文件列表框用來為用戶顯

56、示某個(gè)目錄中的文件名。的文件名。一、文件列表框的屬性：一、文件列表框的屬性：1、名稱：缺省值為、名稱：缺省值為File1、File2、。建議以文件列表框的實(shí)際意義建議以文件列表框的實(shí)際意義加前綴加前綴Fil組成。組成。2、FileName屬性：它是默認(rèn)屬性屬性：它是默認(rèn)屬性 ，返，返回或設(shè)置所選文件的路徑和文回或設(shè)置所選文件的路徑和文件名。在設(shè)計(jì)時(shí)不可用。件名。在設(shè)計(jì)時(shí)不可用。object.FileName = pathname語法格式：語法格式：字符串表達(dá)式，指定路字符串表達(dá)式，指定路徑和文件名徑和文件名3、Path屬性：返回或設(shè)置屬性：返回或設(shè)置當(dāng)前路徑。當(dāng)前路徑。在設(shè)計(jì)在設(shè)計(jì)時(shí)不可用。時(shí)

57、不可用。4、ListCount屬性：屬性：返回文件列表框中當(dāng)前目返回文件列表框中當(dāng)前目錄中匹配錄中匹配 Pattern Pattern 屬性設(shè)置的文件屬性設(shè)置的文件個(gè)數(shù)個(gè)數(shù)。4、 PatternPattern屬性：屬性：返回或設(shè)置一個(gè)值，該值指返回或設(shè)置一個(gè)值，該值指示在運(yùn)行時(shí)顯示在示在運(yùn)行時(shí)顯示在 FileListBox 控件中的文件名控件中的文件名object.Pattern = Value語法格式：語法格式：一個(gè)用來指定文件規(guī)格的字符串表達(dá)式，一個(gè)用來指定文件規(guī)格的字符串表達(dá)式，例如例如 * *. .* * 或或 * *. .FRM 。缺省值是。缺省值是 * *. .* * 它返回所有文

58、件的列表。除使用通它返回所有文件的列表。除使用通配符外，還能夠使用分號(hào)配符外，還能夠使用分號(hào) (;) (;) 分隔的多分隔的多種模式。例如，種模式。例如， * *.exe; .exe; * *.bat .bat 將返回將返回所有可執(zhí)行文件和所有所有可執(zhí)行文件和所有 MS-DOS MS-DOS 批處理文批處理文件的列表。件的列表。5、List屬性：返回文件列表框中某個(gè)文件的選項(xiàng)。屬性：返回文件列表框中某個(gè)文件的選項(xiàng)。在運(yùn)行時(shí)只讀。在運(yùn)行時(shí)只讀。object.List(index)語法：語法：指定當(dāng)前選擇文件的下標(biāo)指定當(dāng)前選擇文件的下標(biāo)范圍為范圍為0 到到 ListCount-16 6、ListI

59、ndex屬性：返回或設(shè)置控件中當(dāng)前選擇屬性：返回或設(shè)置控件中當(dāng)前選擇文件的索引文件的索引( (下標(biāo)下標(biāo)) )。用它判斷一個(gè)項(xiàng)用它判斷一個(gè)項(xiàng)的位置的位置。在設(shè)計(jì)時(shí)不可用。在設(shè)計(jì)時(shí)不可用。object.ListIndex = index語法格式：語法格式：指定當(dāng)前選擇項(xiàng)目的下標(biāo)指定當(dāng)前選擇項(xiàng)目的下標(biāo)值為值為 0-ListCount-1 -1 表示沒選中表示沒選中例：組合使用文件系統(tǒng)控件。調(diào)用硬盤上的某例：組合使用文件系統(tǒng)控件。調(diào)用硬盤上的某個(gè)文件，并將它顯示在窗口中。個(gè)文件，并將它顯示在窗口中。Private Sub Drive1_Change() Dir1.Path = Drive1.Drive

60、End SubPrivate Sub Dir1_Change() File1 = Dir1.PathEnd SubPrivate Sub File1_DblClick() Print File1.filename If Right(Dir1,1) then Print Dir1 + + File1 else Print Dir1 + File1 End IfEnd Sub&2-13 圖形框圖形框(PictureBox)在工具箱中的圖形框工具在工具箱中的圖形框工具圖形框用來為顯示圖形。圖形框用來為顯示圖形。一、圖形框的屬性：一、圖形框的屬性：1、名稱：缺省值為、名稱：缺省值為Picture1、Picture2、。建議以圖形框。建議以圖形框的實(shí)際意義加前綴的實(shí)際意義加前綴Pic組成。組成。2、Picture屬性：它是默認(rèn)屬性屬性：它是默認(rèn)屬性 ，返回返