VB課件第四章

1、第四章第四章 常用控件常用控件本章要求：本章要求： 掌握常用控件單選鈕、復(fù)選框、掌握常用控件單選鈕、復(fù)選框、 框架、滾動條、框架、滾動條、 列表列表框、組合框、時鐘等控件的常用屬性、重要事件和方法的框、組合框、時鐘等控件的常用屬性、重要事件和方法的使用；使用；本章重點：本章重點： 單選鈕、復(fù)選框、單選鈕、復(fù)選框、 框架、滾動條、框架、滾動條、 列表框、組合列表框、組合框、時鐘等控件的常用屬性、重要事件和方法的使用。框、時鐘等控件的常用屬性、重要事件和方法的使用。本章難點：本章難點：列表框、組合框和時鐘控件列表框、組合框和時鐘控件 。在在 Visual Basic Visual Basic 中，

2、單選與復(fù)選按鈕控中，單選與復(fù)選按鈕控件主要作為選項提供給用戶選擇。不同的件主要作為選項提供給用戶選擇。不同的是，在一組選擇按鈕中，單選控件只能選是，在一組選擇按鈕中，單選控件只能選擇一個，其他單選控件自動變?yōu)槲幢贿x中擇一個，其他單選控件自動變?yōu)槲幢贿x中狀態(tài)；而在一組復(fù)選按鈕中，可以選定任狀態(tài)；而在一組復(fù)選按鈕中，可以選定任意數(shù)量的按鈕。意數(shù)量的按鈕。 4.1 4.1 清單類控件清單類控件4.1.14.1.1單選鈕和復(fù)選框單選鈕和復(fù)選框4.1 4.1 清單類控件清單類控件單選按鈕單選按鈕4.1.1單選鈕和復(fù)選框單選鈕和復(fù)選框 1 1 單選鈕用途單選鈕用途單選鈕（單選鈕（OptionButtonO

3、ptionButton） 也稱作選擇按鈕。一組單也稱作選擇按鈕。一組單選鈕控件可以提供一組彼選鈕控件可以提供一組彼此相互排斥的選項，任何此相互排斥的選項，任何時刻用戶只能從中選擇一時刻用戶只能從中選擇一個選項，實現(xiàn)一種個選項，實現(xiàn)一種“單項選單項選擇擇”的功能，被選中項目左的功能，被選中項目左側(cè)圓圈中會出現(xiàn)一黑點。側(cè)圓圈中會出現(xiàn)一黑點。4.1 4.1 清單類控件清單類控件3 3 方法方法 SetFocus方法是單選鈕控件最常用的方法，可以在代碼中通方法是單選鈕控件最常用的方法，可以在代碼中通過該方法將過該方法將ValueValue屬性設(shè)置為屬性設(shè)置為TrueTrue。 與命令按鈕相同，使用該方

4、法之前，必須要保證單選鈕處與命令按鈕相同，使用該方法之前，必須要保證單選鈕處于可見和可用狀態(tài)（即于可見和可用狀態(tài)（即VisibleVisible與與EnabledEnabled屬性值均為屬性值均為TrueTrue）。）。4 4 事件事件 ClickClick事件是單選鈕控件最基本的事件，一般情況用戶無事件是單選鈕控件最基本的事件，一般情況用戶無需為單選鈕編寫需為單選鈕編寫ClickClick事件過程，因為當用戶單擊單選鈕時，事件過程，因為當用戶單擊單選鈕時，它會自動改變狀態(tài)。它會自動改變狀態(tài)。 5 5 單選按鈕程序舉例單選按鈕程序舉例 文本框（文本框（Text1Text1）顯示預(yù)設(shè)的字樣；單選

5、按鈕一（）顯示預(yù)設(shè)的字樣；單選按鈕一（Option1Option1），），單擊此按鈕可以將文本框里顯示的字樣改變成單擊此按鈕可以將文本框里顯示的字樣改變成 黑體；黑體；單選按鈕二（單選按鈕二（Option2Option2），單擊此按鈕能將文本框里顯示的字），單擊此按鈕能將文本框里顯示的字樣改變成樣改變成 楷體?？w。4.1 4.1 清單類控件清單類控件4.1 4.1 清單類控件清單類控件（4 4） Style Style 屬性屬性 0-Standard0-Standard： 標準方式標準方式 1-Graphical1-Graphical：圖形方式：圖形方式 說說 明：明： 在在StyleSty

6、le屬性設(shè)置為屬性設(shè)置為1 1時，可使用時，可使用 Picture Picture 屬性屬性 2. 2. 單選鈕重要屬性單選鈕重要屬性（1 1） Caption：文本標題。設(shè)置單選鈕的文本注釋內(nèi)容文本標題。設(shè)置單選鈕的文本注釋內(nèi)容。（2 2） Alignment屬性屬性： 0：Left Justify( (缺省設(shè)置缺省設(shè)置) )控件鈕在左邊，標題顯示在右邊?？丶o在左邊，標題顯示在右邊。 1 1：Right Justify Right Justify 控件鈕在右邊，標題顯示在左邊控件鈕在右邊，標題顯示在左邊。（3 3）Value Value 屬性屬性 True: 單選鈕被選定單選鈕被選定Fal

7、se: 單選鈕未被選定單選鈕未被選定1、單選按鈕一：、單選按鈕一：Private Sub Optionl_Click() Text1.FontName = “黑體黑體”End Sub2、單選按鈕二：、單選按鈕二：Private Sub Optin2_Click() Text1.FontName = “楷體楷體_GB2312End Sub4.1 4.1 清單類控件清單類控件4.1 4.1 清單類控件清單類控件2 2 復(fù)選框復(fù)選框1. 1. 用途用途 復(fù)選框（復(fù)選框（CheckBoxCheckBox）也稱作檢查框、選擇框。一組復(fù)）也稱作檢查框、選擇框。一組復(fù)選框控件可以提供多個選項，它們彼此獨立工

8、作，所以用選框控件可以提供多個選項，它們彼此獨立工作，所以用戶可以同時選擇任意多個選項，實現(xiàn)一種戶可以同時選擇任意多個選項，實現(xiàn)一種“不定項選擇不定項選擇”的的功能。選擇某一選項后，該控件將顯示功能。選擇某一選項后，該控件將顯示 , ,而清除此選項而清除此選項后后消失。消失。復(fù)選框被選中復(fù)選框被選中4.1 4.1 清單類控件清單類控件 復(fù)選框與單選按鈕復(fù)選框與單選按鈕Value Value 屬性的比較屬性的比較 復(fù)選框復(fù)選框0-Unchecked0-Unchecked：未被選定：未被選定1-Checked1-Checked：選定：選定2-Grayed2-Grayed：灰色，禁止選擇：灰色，禁止

9、選擇 單選鈕單選鈕True: True: 單選鈕被選定單選鈕被選定False: False: 單選鈕未被選定，單選鈕未被選定， 缺省設(shè)置缺省設(shè)置請大家注意，單選控件與復(fù)選控件的 Value 值是不同的，而這是初學(xué)者最容易混淆的。 2. 2. 重要屬性重要屬性 Caption、Alignment、Style與單選鈕相同與單選鈕相同 4.1 4.1 清單類控件清單類控件3.3.事件事件 ClickClick事件是復(fù)選框控件最基本的事件。用戶事件是復(fù)選框控件最基本的事件。用戶一般無需為復(fù)選框編寫一般無需為復(fù)選框編寫ClickClick事件過程，但其對事件過程，但其對ValueValue屬性值的改變遵

10、循以下規(guī)則：屬性值的改變遵循以下規(guī)則：單擊未選中的復(fù)選框時，單擊未選中的復(fù)選框時，ValueValue屬性值變?yōu)閷傩灾底優(yōu)? 1；單擊已選中的復(fù)選框時，單擊已選中的復(fù)選框時，ValueValue屬性值變?yōu)閷傩灾底優(yōu)? 0；單擊變灰的復(fù)選框時，單擊變灰的復(fù)選框時，ValueValue屬性屬性值變?yōu)橹底優(yōu)?2 2。 4 4 復(fù)選按鈕舉例：復(fù)選按鈕舉例： 4.1 4.1 清單類控件清單類控件文本框（文本框（Text1Text1）顯示預(yù)設(shè)的字樣；）顯示預(yù)設(shè)的字樣；復(fù)選按鈕一（復(fù)選按鈕一（Check1)Check1)可以將文本框里面的字變可以將文本框里面的字變 為粗體；為粗體；復(fù)選按鈕二（復(fù)選按鈕二（C

11、heck2Check2）可以將文本框里面的字變）可以將文本框里面的字變 為斜體；為斜體；復(fù)選按鈕三（復(fù)選按鈕三（Check3Check3）可以給文本框里面的文字）可以給文本框里面的文字 加上下劃線。加上下劃線。4 4 復(fù)選按鈕舉例：復(fù)選按鈕舉例： 4.1 4.1 清單類控件清單類控件復(fù)選按鈕一：Private Sub Check1_Click()If Check1.Value = 1 Then Text1.FontBold = TrueElse Text1.FontBold = FalseEnd IfEnd Sub4.1 4.1 清單類控件清單類控件 復(fù)選按鈕二： Private Sub Ch

12、eck2_Click()If Check1.Value = 1 Then Text1.FontItalic = TrueElse Text1.FontItalic = FalseEnd IfEnd Sub4.1 4.1 清單類控件清單類控件 復(fù)選按鈕三： Private Sub Check3_Click()If Check1.Value = 1 Then Text1.FontUnderline = TrueElse Text1.FontUnderline = FalseEnd IfEnd Sub4.1 4.1 清單類控件清單類控件聯(lián)想：聯(lián)想：復(fù)選按鈕是不是非得經(jīng)過這種選擇判斷？復(fù)選按鈕是不是非

13、得經(jīng)過這種選擇判斷？能不能如單選按鈕那樣直接使用呢？能不能如單選按鈕那樣直接使用呢？還是上面這個例子，假設(shè)復(fù)選按鈕一不經(jīng)過判斷，而直接在還是上面這個例子，假設(shè)復(fù)選按鈕一不經(jīng)過判斷，而直接在點擊事件中輸入代碼：點擊事件中輸入代碼：Private Sub Check1_Click()Text1.FontBold = TrueEnd Sub那么你會發(fā)現(xiàn)，復(fù)選按鈕一經(jīng)點擊就不能取消字體加粗的效那么你會發(fā)現(xiàn)，復(fù)選按鈕一經(jīng)點擊就不能取消字體加粗的效果了；而實際上，復(fù)選按鈕的功能是，點擊一次即選中時，果了；而實際上，復(fù)選按鈕的功能是，點擊一次即選中時，字體加粗；點擊第二次即取消選擇，字體不再加粗；以此類字體

14、加粗；點擊第二次即取消選擇，字體不再加粗；以此類推。推。 4.1 4.1 清單類控件清單類控件5 5：知識點：知識點：1 1、切記，單選按鈕與復(fù)選按鈕的、切記，單選按鈕與復(fù)選按鈕的 Value Value 值是不同的。值是不同的。單選按鈕：單選按鈕： 選中時，選中時，Value Value 值為值為 True True ； 未被選中時，未被選中時，Value Value 值為值為 False False 。復(fù)選按鈕：復(fù)選按鈕： 選中時，選中時，Value Value 值為值為 1 1 ； 未被選中時，未被選中時，Value Value 值為值為 0 ;0 ; 禁止選擇，禁止選擇，Value V

15、alue 值為值為 2 2 。 你可以試驗一下，將復(fù)選按鈕的你可以試驗一下，將復(fù)選按鈕的 Value Value 值分別用值分別用 True/False True/False 代替，看一下會出現(xiàn)什么問題。代替，看一下會出現(xiàn)什么問題。2 2、兩種選擇按鈕都針對、兩種選擇按鈕都針對 Click Click 事件做出反應(yīng)，但單選按鈕事件做出反應(yīng)，但單選按鈕 比較簡單，只需直接輸入代碼即可；復(fù)選按鈕比較復(fù)雜，比較簡單，只需直接輸入代碼即可；復(fù)選按鈕比較復(fù)雜， 需經(jīng)過條件判斷后再做出反應(yīng)。切記！需經(jīng)過條件判斷后再做出反應(yīng)。切記！4.1 4.1 清單類控件清單類控件4.1 4.1 清單類控件清單類控件4.

16、1.2 4.1.2 框架框架 (Frame)(Frame)Frame Frame 控件為控件提供可標識的分組。它是一個容器控件。控件為控件提供可標識的分組。它是一個容器控件。當需要在同一窗體內(nèi)建立幾組互獨立的單選鈕時，就需要用當需要在同一窗體內(nèi)建立幾組互獨立的單選鈕時，就需要用框架將每一組單選鈕框起來，把框架將每一組單選鈕框起來，把 OptionButton 控件分成控件分成幾組，如下形式幾組，如下形式。 設(shè)三個框架設(shè)三個框架設(shè)設(shè)CaptionCaption為為 “ “字形字形 4.1 4.1 清單類控件清單類控件重要屬性重要屬性1.1. CaptionCaption屬性：框架標題屬性：框架標

17、題EnabledEnabled屬性：屬性： 缺省為缺省為TrueTrueFalseFalse：標題呈灰色，不允許對框架內(nèi)的所有對象：標題呈灰色，不允許對框架內(nèi)的所有對象 進行操作進行操作 3.3. VisibleVisible屬性：屬性： TrueTrue：框架及其控件可見。：框架及其控件可見。 FalseFalse：框架及其控件被隱藏起來：框架及其控件被隱藏起來。4.1 4.1 清單類控件清單類控件事件：事件： 框架可以響應(yīng)的事件框架可以響應(yīng)的事件ClickClick、DblClick,DblClick,一般不需一般不需要有關(guān)框架的事件過程。要有關(guān)框架的事件過程。 為了將控件分組，首先需要繪

18、制為了將控件分組，首先需要繪制 Frame Frame 控件，然后控件，然后繪制繪制 Frame Frame 里面的控件。里面的控件。注意：注意：單選按鈕單選按鈕,復(fù)選框和框架控件綜合舉例復(fù)選框和框架控件綜合舉例例：設(shè)計個人資料輸入窗口，使用選項按鈕組輸入性別與例：設(shè)計個人資料輸入窗口，使用選項按鈕組輸入性別與 民族民族, 使用復(fù)選框輸入個人愛好。使用復(fù)選框輸入個人愛好。4.1 4.1 清單類控件清單類控件Private Sub Command1_Click()If Text1.Text = Then a = InputBox(您忘了輸入姓名！您忘了輸入姓名！, 注意注意, 請在此輸入姓名請在

19、此輸入姓名) If a = “” Or a = “請在此輸入姓名請在此輸入姓名” Then Exit Sub Text1.Text = aEnd Ifp1 = Text1.Text + ，程序如下：程序如下：4.1 4.1 清單類控件清單類控件 p2 = IIf(Option1, 男男, 女女) + ， p3 = IIf(Option3, 漢族漢族, 少數(shù)民族少數(shù)民族) p4 = ，喜歡：，喜歡：If Check1.Value = 1 Then p4 = p4 + Check1.Caption + ，If Check2.Value = 1 Then p4 = p4 + Check2.Capti

20、on + ，If Check3.Value = 1 Then p4 = p4 + Check3.Caption + ，If Check4.Value = 1 Then p4 = p4 + Check4.Caption + ，aa = p1 + p2 + p3 + IIf(p4 = ，喜歡，喜歡, ，無愛好，無愛好, p4)Label4.Caption = Left(aa, Len(aa) - 1) + 。Text1.SetFocusEnd Sub4.1 4.1 清單類控件清單類控件4.1 4.1 清單類控件清單類控件 例例4.14.1設(shè)計一個簡單小型的編輯器，用戶可以在文本框中輸入一設(shè)計一個簡

21、單小型的編輯器，用戶可以在文本框中輸入一 段文字，單擊復(fù)選框和單選框，可以改變文本的字體，字段文字，單擊復(fù)選框和單選框，可以改變文本的字體，字 型和顏色型和顏色 根據(jù)程序流程，應(yīng)該先對根據(jù)程序流程，應(yīng)該先對“開始開始”命令按鈕（命令按鈕（Command1Command1）編寫單擊事件）編寫單擊事件過程，代碼如下所示：過程，代碼如下所示：Private Sub Command1_Click()Private Sub Command1_Click()Image1.Visible = FalseImage1.Visible = FalseCommand1.Visible = FalseCommand

22、1.Visible = FalseCommand2.Visible = FalseCommand2.Visible = FalseText1.Visible = TrueText1.Visible = TrueOption1.Visible = TrueOption1.Visible = TrueOption2.Visible = TrueOption2.Visible = TrueCheck1.Visible = TrueCheck1.Visible = TrueCheck2.Visible = TrueCheck2.Visible = TrueEnd SubEnd Sub “ “退出退出”

23、命令按鈕（命令按鈕（Command2Command2）用于關(guān)閉應(yīng)用程序，因此使用）用于關(guān)閉應(yīng)用程序，因此使用EndEnd方法，方法，其代碼如下：其代碼如下： Private Sub Command2_Click()Private Sub Command2_Click() End End End Sub End Sub4.1 4.1 清單類控件清單類控件 進入圖進入圖4.34.3所示的用戶界面后，若選中復(fù)選框所示的用戶界面后，若選中復(fù)選框1 1使文本變成斜體，使文本變成斜體，則則Text1Text1的的FontItalicFontItalic屬性設(shè)為屬性設(shè)為TrueTrue；若選中復(fù)選框；若選中

24、復(fù)選框2 2使文本變成使文本變成紅色，則設(shè)紅色，則設(shè) Text1Text1的前景色為紅色。復(fù)選框單擊事件過程如下：的前景色為紅色。復(fù)選框單擊事件過程如下：Private Sub Check1_Click()Private Sub Check1_Click()Text1.FontItalic = TrueText1.FontItalic = TrueEnd SubEnd Sub Private Sub Check2_Click()Private Sub Check2_Click()Text1.ForeColor = vbRedText1.ForeColor = vbRedEnd SubEnd S

25、ub 單選框決定文本的字體是宋體還是隸書，如果選中單選框單選框決定文本的字體是宋體還是隸書，如果選中單選框1 1，則，則文本字體為宋體；若選中單選框文本字體為宋體；若選中單選框2 2，則文本字體為隸書。其代碼如下：，則文本字體為隸書。其代碼如下：Private Sub Option1_Click()Private Sub Option1_Click()Text1.FontName = Text1.FontName = 宋體宋體 End SubEnd SubPrivate Sub Option2_Click()Private Sub Option2_Click()Text1.FontName =

26、 Text1.FontName = 隸體隸體 End SubEnd Sub4.1 4.1 清單類控件清單類控件4.1 4.1 清單類控件清單類控件4.1.3 4.1.3 列表框與組合框列表框與組合框一、用途一、用途 列表框控件（列表框控件（ListBoxListBox）用于顯示項目列表，用戶可用于顯示項目列表，用戶可從中從中選擇一個或多個項目選擇一個或多個項目。如果項目總數(shù)超過了可顯示的項。如果項目總數(shù)超過了可顯示的項目數(shù)，目數(shù)， VBVB會自動加上滾動條。會自動加上滾動條。 列表框有兩種風(fēng)格：標準和復(fù)選列表框。通過它的列表框有兩種風(fēng)格：標準和復(fù)選列表框。通過它的StyleStyle屬性來設(shè)置

27、。如下圖：屬性來設(shè)置。如下圖： 4.1 4.1 清單類控件清單類控件組合框控件（組合框控件（ComboBoxComboBox）將文本框和列表框的功能結(jié)合將文本框和列表框的功能結(jié)合在一起，用戶可以在列表中選擇某項在一起，用戶可以在列表中選擇某項（只能選取一項）（只能選取一項）?；蚧蛟诰庉媴^(qū)域中直接輸入文本內(nèi)容來選定項目。在編輯區(qū)域中直接輸入文本內(nèi)容來選定項目。組合框共組合框共三種風(fēng)格三種風(fēng)格：下拉式組合框、簡單組合框和下拉式列：下拉式組合框、簡單組合框和下拉式列表框（見下圖）。表框（見下圖）。4.1 4.1 清單類控件清單類控件二、主要二、主要屬性屬性1 1StyleStyle屬性屬性 該值用來

28、指示控件的顯示類型和行為。該值用來指示控件的顯示類型和行為。在運行時是只讀的在運行時是只讀的。對于列表框控件或組合框控件都有對于列表框控件或組合框控件都有StyleStyle屬性，但它們的含義屬性，但它們的含義是不同的。是不同的。 例如：例如：在窗體上放置在窗體上放置2 2個列表框，將其個列表框，將其StyleStyle屬性分別設(shè)屬性分別設(shè)置為置為0 0和和1 1；放置；放置3 3個組合框，將它們個組合框，將它們StyleStyle屬性分別設(shè)置為屬性分別設(shè)置為0 0、1 1和和2 2。 4.1 4.1 清單類控件清單類控件2 2ListList、ListCountListCount和和List

29、IndexListIndex屬性屬性 List List： 字符型數(shù)組，存放列表框的項目數(shù)據(jù)，下標是從字符型數(shù)組，存放列表框的項目數(shù)據(jù)，下標是從0 0開始的。開始的。 例如：例如： List(0)List(0)表示第一項（表示第一項（Listindex=0Listindex=0）的內(nèi)容）的內(nèi)容 列表框項目可在設(shè)計模式下一項一項輸入。列表框項目可在設(shè)計模式下一項一項輸入。 ListIndexListIndex：為整型值，選中的項目的序號，如果列表為整型值，選中的項目的序號，如果列表框可多選，則為最后一次選中項目的序號，框可多選，則為最后一次選中項目的序號， 沒有項目選中時沒有項目選中時為為-1-

30、1。 ListCountListCount：為整型值，表示項目的數(shù)量，為整型值，表示項目的數(shù)量，ListCount-ListCount-1 1是最后一項的下標。是最后一項的下標。4.1 4.1 清單類控件清單類控件3 3MultiSelectMultiSelect屬性屬性 用于指示是否能夠在用于指示是否能夠在列表框控件中列表框控件中進行復(fù)選以及如何進行復(fù)進行復(fù)選以及如何進行復(fù)選，選，在運行時是只讀的。注意，在運行時是只讀的。注意，組合框控件無此屬性組合框控件無此屬性。 MultiSelect MultiSelect 屬性設(shè)置值及含義屬性設(shè)置值及含義 設(shè)置值設(shè)置值含含 義義0 0（缺省值）不允許

31、復(fù)選（缺省值）不允許復(fù)選1 1簡單復(fù)選。鼠標單擊或按下空格鍵在列表中選中或取消選中項。簡單復(fù)選。鼠標單擊或按下空格鍵在列表中選中或取消選中項。箭頭鍵移動焦點箭頭鍵移動焦點2 2擴展復(fù)選。按下擴展復(fù)選。按下 SHIFT SHIFT 并單擊鼠標將在以前選中項的基礎(chǔ)上擴展并單擊鼠標將在以前選中項的基礎(chǔ)上擴展選擇到當前選中項。按下選擇到當前選中項。按下 CTRL CTRL 并單擊鼠標來在列表中選中或取并單擊鼠標來在列表中選中或取消選中項消選中項4.1 4.1 清單類控件清單類控件4 4SelectedSelected屬性屬性 該屬性返回或設(shè)置列表框控件中的一個項目的選擇狀態(tài)。該屬性返回或設(shè)置列表框控件

32、中的一個項目的選擇狀態(tài)。該屬性是一個邏輯類型的數(shù)組，數(shù)組元素個數(shù)與列表框中的項該屬性是一個邏輯類型的數(shù)組，數(shù)組元素個數(shù)與列表框中的項目數(shù)相同，其下標的變化范圍與目數(shù)相同，其下標的變化范圍與ListList屬性相同。屬性相同。 例如：例如：List1.SelectedList1.Selected（0 0）=True=True表示列表框表示列表框List1List1的第的第一個項目被選中，此時一個項目被選中，此時ListIndexListIndex的值設(shè)置為的值設(shè)置為0 0。SelectedSelected屬性屬性在設(shè)計時是不可用的，即無法在屬性窗口中設(shè)置屬性值。在設(shè)計時是不可用的，即無法在屬性窗

33、口中設(shè)置屬性值。 5 5SortedSorted屬性屬性 返回一個邏輯值，當返回一個邏輯值，當SortedSorted屬性為屬性為TrueTrue時列表框控件或時列表框控件或組合框控件的項目自動按組合框控件的項目自動按字母表順序（升序）排序字母表順序（升序）排序，為，為FalseFalse時項目按加入的先后順序排列顯示。時項目按加入的先后順序排列顯示。該屬性只能在設(shè)計時設(shè)該屬性只能在設(shè)計時設(shè)置，不能在程序代碼中設(shè)置。置，不能在程序代碼中設(shè)置。4.1 4.1 清單類控件清單類控件6 6TextText屬性屬性 對于組合框：（對于組合框：（Combo1Combo1） 下拉式組合框與簡單組合框（下拉

34、式組合框與簡單組合框（Style=0Style=0和和1 1）：）： TextText屬性返回編輯區(qū)域中的文本。屬性返回編輯區(qū)域中的文本。 下拉列表框，下拉列表框，TextText屬性的返回當前被選中的項，值總與屬性的返回當前被選中的項，值總與combo1.Listcombo1.List（combo1.ListIndexcombo1.ListIndex）的值相同。）的值相同。 對于列表框?qū)τ诹斜砜颍海ǎ海↙ist1List1） TextText屬性選中的文本，屬性選中的文本，如果列表框可多選，則為最后一次如果列表框可多選，則為最后一次選中項目。選中項目。TextText屬性值總與屬性值總與Li

35、st1.ListList1.List（List1.ListIndexList1.ListIndex）的）的值相同。值相同。4.1 4.1 清單類控件清單類控件列表框、組合框各主要屬性的值：列表框、組合框各主要屬性的值：List1.List(List1.ListIndex)=“abc”List1.List(List1.ListIndex)=“abc” ListCount = 6ListCount = 6 ListIndex = 3 ( ListIndex = 3 (下標從下標從0 0開始的開始的) ) Selected(3) = True Selected(3) = True 其余為其余為Fal

36、seFalse。 Sorted = False Sorted = False 沒有排序。沒有排序。 Text = “abc” Text = “abc” Combo1.List(Combo1.ListIndex)=“abCombo1.List(Combo1.ListIndex)=“abc”c”4.1 4.1 清單類控件清單類控件方法方法1 1AddItemAddItem方法方法 用于將項目添加到列表框控件或組合框控件。用于將項目添加到列表框控件或組合框控件。 語法格式：語法格式：對象名對象名.AddItem item , index.AddItem item , index 其中：其中：item

37、: item: 為字符串表達式，表示要加入的項目。為字符串表達式，表示要加入的項目。 Index:Index:決定新增項目的位置，缺省，則添加在最后。決定新增項目的位置，缺省，則添加在最后。 2 2RemoveItemRemoveItem方法方法 用于從列表框控件或組合框控件中刪除一項。用于從列表框控件或組合框控件中刪除一項。 語法格式：語法格式：對象名對象名. RemoveItem index. RemoveItem index 對對indexindex參數(shù)的規(guī)定同參數(shù)的規(guī)定同AddItemAddItem方法。方法。4.1 4.1 清單類控件清單類控件 例如，要刪除列表框（例如，要刪除列表框

38、（List1List1）中所有選中的項目，可使）中所有選中的項目，可使用下面的程序段：用下面的程序段： i = 0i = 0Do While i = List1.ListCount - 1Do While i = List1.ListCount - 1 If List1.Selected(i) = True Then If List1.Selected(i) = True Then List1.RemoveItem I List1.RemoveItem I else else i = i + 1 i = i + 1 End If End Iflooploop4.1 4.1 清單類控件清單類控件

39、3 3ClearClear方法方法 用于清除列表框控件或組合框控件中的所有項目。用于清除列表框控件或組合框控件中的所有項目。語法格式：語法格式： 對象名對象名. Clear. Clear例如，刪除列表框（例如，刪除列表框（List1）中所有項目，可使用：）中所有項目，可使用： List1. Clear List1. Clear4.1 4.1 清單類控件清單類控件4 4、事件、事件（1 1）ClickClick事件事件 當單擊某一列表項目時，將觸發(fā)列表框與組合框控件的當單擊某一列表項目時，將觸發(fā)列表框與組合框控件的ClickClick事件。該事件發(fā)生時系統(tǒng)會自動改變列表框與組合框控事件。該事件發(fā)

40、生時系統(tǒng)會自動改變列表框與組合框控件的件的ListIndexListIndex、SelectedSelected、TextText等屬性，無需另行編寫代碼。等屬性，無需另行編寫代碼。（2 2）DblClickDblClick事件事件 當雙擊某一列表項目時，將觸發(fā)列表框與簡單組合框控件當雙擊某一列表項目時，將觸發(fā)列表框與簡單組合框控件的的DblClickDblClick事件。事件。（3 3）ChangeChange事件事件（列表框沒有此事件）（列表框沒有此事件） 當用戶通過鍵盤輸入改變下拉式組合框或簡單組合框控當用戶通過鍵盤輸入改變下拉式組合框或簡單組合框控件的文本框部分的正文，或者通過代碼改變

41、了件的文本框部分的正文，或者通過代碼改變了TextText屬性的設(shè)置屬性的設(shè)置時，將觸發(fā)其時，將觸發(fā)其ChangeChange事件。事件?！纠纠?.44.4】 設(shè)計一個星座與性格的水晶球設(shè)計一個星座與性格的水晶球。4.2 4.2 圖片類控件圖片類控件VBVB中與圖形有關(guān)的控件有：中與圖形有關(guān)的控件有：圖片框（圖片框（PictureBoxPictureBox）、圖像框（）、圖像框（ImageImage） 窗體、圖形框和圖像框可以顯示來自圖形文件的圖形窗體、圖形框和圖像框可以顯示來自圖形文件的圖形 1 1位圖位圖(bitmap)(bitmap)：位圖通常以：位圖通常以.bmp.bmp或或 .di

42、b.dib為文件擴展名。為文件擴展名。2 2圖標圖標(icon)(icon)：以：以.ico.ico為文件擴展名。為文件擴展名。3 3元文件元文件(metafile)(metafile)：元文件的類型有兩種，分別是標準型元文件的類型有兩種，分別是標準型（.wmf.wmf）和增強型（）和增強型（.emf.emf）。）。4 4JPEGJPEG文件：文件：JPEGJPEG是一種支持是一種支持 8 8 位和位和 24 24 位顏色的壓縮位位顏色的壓縮位圖格式。它是圖格式。它是 Internet Internet 上一種流行的文件格式。上一種流行的文件格式。5 5GIFGIF文件：文件：GIFGIF是一

43、種壓縮位圖格式。它可支持多達是一種壓縮位圖格式。它可支持多達 256 256 種的顏色，是種的顏色，是 Internet Internet 上一種流行的文件格式。上一種流行的文件格式。 4.2 4.2 圖片類控件圖片類控件4.2.1 4.2.1 圖像框控件圖像框控件ImageImage控件控件。 圖像框比圖形框占用更少的內(nèi)存快。圖像框內(nèi)不能保存圖像框比圖形框占用更少的內(nèi)存快。圖像框內(nèi)不能保存其他控件。其他控件。 ImageImage控件，不是容器控件?？丶?，不是容器控件。 ImageImage控件加載圖片、刪除圖片、保存圖片的方法：控件加載圖片、刪除圖片、保存圖片的方法： 與與PictureB

44、oxPictureBox控件相同控件相同 StretchStretch屬性：屬性：設(shè)置為設(shè)置為FalseFalse，圖像框可自動改變大小以適應(yīng)其中的圖形。，圖像框可自動改變大小以適應(yīng)其中的圖形。設(shè)設(shè)置設(shè)設(shè)置TrueTrue， 圖形可自動調(diào)整尺寸以適應(yīng)圖像框的大小。圖形可自動調(diào)整尺寸以適應(yīng)圖像框的大小。4.2 4.2 圖片類控件圖片類控件4.2.2 4.2.2 圖片框控件圖片框控件PictureBoxPictureBox 主要作用：顯示圖片、也可作為其他控件的容器。主要作用：顯示圖片、也可作為其他控件的容器。1 1、裝入圖形：、裝入圖形： 圖形框?qū)ο髨D形框?qū)ο?Picture = LoadPic

45、ture(“.Picture = LoadPicture(“圖形文件名圖形文件名”) )2 2、刪除圖形、刪除圖形 圖形框?qū)ο髨D形框?qū)ο?Picture = LoadPicture( ).Picture = LoadPicture( )3 3保存圖片保存圖片使用使用SavePictureSavePicture語句，其使用格式如下：語句，其使用格式如下：SavePicture Object.Picture|Image, FileName SavePicture Object.Picture|Image, FileName 注意：當注意：當AutosizeAutosize屬性設(shè)置為屬性設(shè)置為Tru

46、eTrue時，圖形框能自動調(diào)整時，圖形框能自動調(diào)整大小與顯示的圖片匹配大小與顯示的圖片匹配【例【例4.44.4】 設(shè)計一個簡單的設(shè)計一個簡單的“圖片縮放圖片縮放”器。器。 4.2 4.2 圖片類控件圖片類控件 在在Command1Command1控件上雙擊鼠標左鍵，調(diào)出代碼窗口，在控件上雙擊鼠標左鍵，調(diào)出代碼窗口，在Command1_Click ()Command1_Click ()事件代碼事件代碼窗口中輸入以下代碼。窗口中輸入以下代碼。Private Sub Command1_Click()Private Sub Command1_Click()Image1.Top = Image1.Top

47、 - 25Image1.Top = Image1.Top - 25Image1.Left = Image1.Left - 25Image1.Left = Image1.Left - 25Image1.Width = Image1.Width + 50Image1.Width = Image1.Width + 50Image1.Height = Image1.Height + 50Image1.Height = Image1.Height + 50End SubEnd Sub 重復(fù)步驟重復(fù)步驟2 2，在，在Command2_Click ()Command2_Click ()事件代碼窗口中輸入以下

48、代碼。事件代碼窗口中輸入以下代碼。Private Sub Command2_Click()Private Sub Command2_Click()Image1.Width = Image1.Width - 50Image1.Width = Image1.Width - 50Image1.Height = Image1.Height - 50Image1.Height = Image1.Height - 50Image1.Top = Image1.Top + 25Image1.Top = Image1.Top + 25Image1.Left = Image1.Left + 25Image1.Le

49、ft = Image1.Left + 25End SubEnd Sub4.2 4.2 圖片類控件圖片類控件【例【例4.64.6】 設(shè)計一個簡單的設(shè)計一個簡單的“看圖學(xué)英文看圖學(xué)英文”的少兒多媒體教學(xué)軟的少兒多媒體教學(xué)軟件。件。4.2 4.2 圖片類控件圖片類控件在在Picture 1Picture 1控件上雙擊鼠標左鍵，調(diào)出代碼窗口，選擇控件上雙擊鼠標左鍵，調(diào)出代碼窗口，選擇MouseMoveMouseMove事件，事件，MouseMoveMouseMove事件是指當鼠標在指定控件上移動時激活程序，事件是指當鼠標在指定控件上移動時激活程序，在在Picture 1_MouseMove()Pict

50、ure 1_MouseMove()事件代碼窗口中輸入以下代碼。事件代碼窗口中輸入以下代碼。Private Sub Picture 1_MouseMove(Button As Integer, Shift As Integer,Private Sub Picture 1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) X As Single, Y As Single)Label3.Caption = bearLabel3.Caption = bearEnd SubEnd Sub重復(fù)步驟重復(fù)步驟2 2

51、，輸入以下代碼：，輸入以下代碼：Private Sub Picture 2_MouseMove(Button As Integer, Shift As Integer,Private Sub Picture 2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) X As Single, Y As Single)Label3.Caption = monkeyLabel3.Caption = monkeyEnd SubEnd SubPrivate Sub Picture 3_MouseMove(Butt

52、on As Integer, Shift As Integer, Private Sub Picture 3_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)X As Single, Y As Single)Label3.Caption = horseLabel3.Caption = horse End SubEnd SubPrivate Sub Picture 4_MouseMove(Button As Integer, Shift As Integer, Private Sub Picture

53、4_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)X As Single, Y As Single)Label3.Caption = tigerLabel3.Caption = tigerEnd SubEnd Sub4.2 4.2 圖片類控件圖片類控件4.3 4.3 計時器計時器1.1.用途用途 計時器控件（計時器控件（TimerTimer）又稱時鐘、定時）又稱時鐘、定時器控件，用于器控件，用于有規(guī)律地定時執(zhí)行指定的工作有規(guī)律地定時執(zhí)行指定的工作，常常用于編寫不需要與用戶進行交互就可直常常用于編寫

54、不需要與用戶進行交互就可直接執(zhí)行的代碼，如接執(zhí)行的代碼，如計時、倒計時、動畫計時、倒計時、動畫等。等。 在程序運行階段，時鐘控件不可見。在程序運行階段，時鐘控件不可見。4.3 4.3 計時器計時器 2. 屬屬 性性（1）Interval屬性屬性 取值范圍在取值范圍在0 64767 ，單位：為，單位：為毫秒毫秒（0.001秒），表秒），表示計時間隔。若將示計時間隔。若將Interval屬性設(shè)置為屬性設(shè)置為0或負數(shù)，則計時器停止或負數(shù)，則計時器停止工作。工作。 缺省設(shè)置為缺省設(shè)置為 0（2）Enabled屬性屬性 設(shè)置為設(shè)置為True，而且，而且Interval屬性值大于屬性值大于0，則計時器，則

55、計時器開始開始工作工作（以以Interval屬性值為間隔，觸發(fā)屬性值為間隔，觸發(fā)Timer事件事件）。）。 設(shè)置為設(shè)置為False可使時鐘控件無效，即計時器停止工作可使時鐘控件無效，即計時器停止工作。 缺省設(shè)置為缺省設(shè)置為True（2）Enabled屬性屬性 4.3 4.3 計時器計時器4.3 4.3 計時器計時器3. 3. 方方 法法 TimerTimer控件沒有方法。控件沒有方法。4. 4. 事事 件件 時鐘控件只有時鐘控件只有TimerTimer事件事件 當當EnabledEnabled屬性值為屬性值為TrueTrue且且IntervalInterval屬性值大于屬性值大于0 0時，時，

56、 該事件以該事件以IntervalInterval屬性指定的時間間隔發(fā)生屬性指定的時間間隔發(fā)生 常常將需要定時執(zhí)行的操作放在常常將需要定時執(zhí)行的操作放在TimerTimer事件事件過程中過程中4.3 4.3 計時器計時器時鐘控件的應(yīng)用舉例時鐘控件的應(yīng)用舉例例例4.7 4.7 利用計時器和圖像控件設(shè)計一個簡單的動畫。利用計時器和圖像控件設(shè)計一個簡單的動畫。 在在Timer1Timer1控件上雙擊鼠標左鍵，調(diào)出代碼窗口，控件上雙擊鼠標左鍵，調(diào)出代碼窗口， Timer1_Timer ()Timer1_Timer ()事件過程中輸事件過程中輸入以下代碼。入以下代碼。Private Sub Timer1

57、_Timer()Private Sub Timer1_Timer()Dim s As IntegerDim s As Integers = Int(Rnd() s = Int(Rnd() * * (2 - 0 + 1) + 0 (2 - 0 + 1) + 0 利用利用Rnd()Rnd()產(chǎn)生產(chǎn)生0 0、1 1和和2 2三個亂數(shù)三個亂數(shù)Select Case sSelect Case sCase 0Case 0Image0.Visible = TrueImage0.Visible = TrueImage1.Visible = FalseImage1.Visible = FalseImage2.V

58、isible = FalseImage2.Visible = FalseCase 1Case 1Image1.Visible = TrueImage1.Visible = TrueImage0.Visible = FalseImage0.Visible = FalseImage2.Visible = FalseImage2.Visible = FalseCase 2Case 2Image2.Visible = TrueImage2.Visible = TrueImage1.Visible = FalseImage1.Visible = FalseImage0.Visible = FalseImage0.Visible = FalseEnd SelectEnd SelectEnd SubEnd Sub4.3 4.3 計時器計時器4.4 4.4 滾動條滾動條1. 1. 用用 途途 滾動條控件（滾動條控件（ScrollBarScrollBar）分為水平滾動條）分為水