第5章常用控件

1、學(xué)習(xí)內(nèi)容l常用控件及其基本屬性和常用的事件和方法 l鍵盤和鼠標(biāo)事件 l內(nèi)部控件內(nèi)部控件在默認(rèn)狀態(tài)下工具箱中顯示的控件都是內(nèi)部控件。在默認(rèn)狀態(tài)下工具箱中顯示的控件都是內(nèi)部控件。本章主要介紹的內(nèi)容。已介紹過窗體、標(biāo)簽、命本章主要介紹的內(nèi)容。已介紹過窗體、標(biāo)簽、命令按鈕和文本框。令按鈕和文本框。 lActiveXActiveX控件控件指可以重復(fù)使用的編程代碼和數(shù)據(jù)。指可以重復(fù)使用的編程代碼和數(shù)據(jù)。VbVb或第三方提供的或第三方提供的ActiveXActiveX控件，文件擴(kuò)展名控件，文件擴(kuò)展名ocxocx?？梢詫⑵涮砑拥焦ぞ呦渖?，然后像內(nèi)部控件一樣可以將其添加到工具箱上，然后像內(nèi)部控件一樣使用使用。

2、l可插入對象可插入對象 可插入對象是可插入對象是Window應(yīng)用程序的對象，如應(yīng)用程序的對象，如Excel工工作表對象、作表對象、PowerPoint幻燈片對象等。這些對象幻燈片對象等。這些對象也可以將其添加到工具箱上。也可以將其添加到工具箱上。5.2.1 單選鈕和復(fù)選框單選鈕和復(fù)選框 單選鈕(OptionButton)主要用于在多個選項中選擇一個選項的情況。復(fù)選框(CheckBox)主要用于在多個選項中選擇多個選項的情況。1 1常用屬性常用屬性 屬性名屬性名屬性值屬性值說明說明Caption標(biāo)題，單選鈕默認(rèn)為標(biāo)題，單選鈕默認(rèn)為Option1,復(fù)選框為復(fù)選框為Check1。Alignment0

3、、1標(biāo)題位置。標(biāo)題位置。0（默認(rèn)）：在右邊；（默認(rèn)）：在右邊；1：在左邊。：在左邊。Style0、10（默認(rèn)）：標(biāo)準(zhǔn)方式；（默認(rèn)）：標(biāo)準(zhǔn)方式；1：圖形方式。：圖形方式。ValueFalse、True單選鈕未選擇為單選鈕未選擇為False（默認(rèn)（默認(rèn))，選擇為，選擇為True。0、1、2復(fù)選框為選擇為復(fù)選框為選擇為0（默認(rèn)），選擇為（默認(rèn)），選擇為1，禁止選，禁止選擇為擇為2。2常用事件：常用事件：Click例例5-1用單選鈕設(shè)置文本框中的文字的顏色，用復(fù)選框設(shè)置文本框中的文字的格式。 程序代碼程序代碼框架(Frame)是一個容器對象，主要用于對窗體上的對象進(jìn)行分組。 例如單選題，每道題有四個選

4、項。多組單選項選取時，就必須使用框架將單選按鈕分組。主要屬性主要屬性Caption：框架標(biāo)題。若值為空，則框架成為一個封閉的矩形框。Enabled: 若為False，標(biāo)題呈灰色，不允許對框架內(nèi)的對象進(jìn)行操作。Visible： True-框架及其控件可見。False-框架及其控件被隱含起來。主要事件主要事件 Click、DblClick事件。一般不需要編寫框架的事件過程。例例5-2 設(shè)計一個簡單文本編輯器。用單選鈕和復(fù)選框設(shè)置文本設(shè)計一個簡單文本編輯器。用單選鈕和復(fù)選框設(shè)置文本框中被選中的文字的格式，用命令按鈕實現(xiàn)復(fù)制、粘貼框中被選中的文字的格式，用命令按鈕實現(xiàn)復(fù)制、粘貼等功能。等功能。分析分析

5、：1、TextBox沒有提供被選中的文字的格式設(shè)置相應(yīng)屬性2、用ActiveX控件RichTextBox實現(xiàn)，RichTextBox提供了設(shè)置被選中文字的各種格式的屬性項.3、對被選中的文字進(jìn)行復(fù)制、煎切、粘貼?？梢岳眉糍N板對象(Clipboard)提供的方法來實現(xiàn)。4、將ActiveX控件添加到工具箱上的方法：選擇“工程”菜單選擇“部件”菜單項在“部件”對話框選擇“控件”頁選擇要添加到工具箱上ActiveX控件，例如本例的RichTextBox，選擇Microsoft Rich TextBox Control 6.0。程序代碼程序代碼5.3.1 列表框列表框 列表框(ListBox)用于顯

6、示一個項目列表，用戶可以選擇列表中的一項或多項?？稍O(shè)置為單列和多列，缺省設(shè)置為單列。 1常用屬性常用屬性 Columns ：指定列表框可見列數(shù)，=1時允許顯示多列 ，0(默認(rèn))List ：設(shè)置或返回列表中的數(shù)據(jù)項，下標(biāo)從0開始 ，字符串?dāng)?shù)組 ListCount ：返回列表框中的數(shù)據(jù)項個數(shù) 。ListIndex ：返回被選中的數(shù)據(jù)項序號，如果沒有數(shù)據(jù)項被選中為-1MultiSelect ：設(shè)置是否可選多項，0-單選，1-簡單多項選擇，2-擴(kuò)展多項選擇 Selected ：設(shè)置選中的數(shù)據(jù)項Text ：設(shè)置或返回列表中的當(dāng)前數(shù)據(jù)項的值，等同于List(N)屬性 2常用事件常用事件 Click 、 D

7、blClick3常用方法常用方法 AddItem ：在列表中：在列表中添加數(shù)據(jù)項添加數(shù)據(jù)項 格式：格式：列表框?qū)ο竺斜砜驅(qū)ο竺? AddItem 數(shù)據(jù)項數(shù)據(jù)項 ,位置值位置值 數(shù)據(jù)項數(shù)據(jù)項：字符串表達(dá)式，是將要加入到列表框中的數(shù)據(jù)字符串表達(dá)式，是將要加入到列表框中的數(shù)據(jù)項。項。位置值位置值：數(shù)值表達(dá)式，是將要加入的數(shù)據(jù)項在列表框中數(shù)值表達(dá)式，是將要加入的數(shù)據(jù)項在列表框中的位置，如省略則加在最后。的位置，如省略則加在最后。 3常用方法常用方法RemoveItem RemoveItem ：在列表框中刪除數(shù)據(jù)項：在列表框中刪除數(shù)據(jù)項 格式：格式：列表框?qū)ο竺斜砜驅(qū)ο竺? RemoveItem .

8、 RemoveItem 位置值位置值 Clear Clear ：刪除列表框中的全部數(shù)據(jù)項：刪除列表框中的全部數(shù)據(jù)項 格式：格式：列表框?qū)ο竺斜砜驅(qū)ο竺? Clear. Clear 例例5-3設(shè)計如圖所示的程序，選擇左邊列表框中的水果項，單擊“選擇”命令按鈕，將選中的項目移至右邊的列表框，選擇右邊列表框中的水果項，單擊“刪除”命令按鈕，將選中的項目移至左邊的列表框。 程序代碼組合框(ComboBox)是綜合列表框和文本框功能的一個控件，有列表框又有編輯框。用戶可通過文本框輸入內(nèi)容，也可從列表框中選定項目。 組合框?qū)傩院头椒ㄅc列表框相似。 Style 屬性：決定組合框的類型和顯示方式類型類型St

9、yle輸入輸入下拉式組合框(文本框、列表框)有按鈕0文本框能輸入簡單組合框(文本框、列表框顯示)1文本框能輸入下拉式列表框(文本框、列表框)有按鈕2文本框不能輸入例例5-4用組合框?qū)崿F(xiàn)例5-2的功能，既用組合框設(shè)置文本框中被選中的文字的格式。 程序代碼程序代碼滾動條分水平滾動條(Hscrollbar)和垂直滾動條(Vscrollbar)。 5.4.1 常用屬性常用屬性 屬性名屬性值說明Value整型數(shù)據(jù)滾動塊的當(dāng)前值Min整型數(shù)據(jù)設(shè)置滾動條的最小值，在-3276832767之間Max整型數(shù)據(jù)設(shè)置滾動條的最大值，在-3276832767之間LargeChange 整型數(shù)據(jù) 設(shè)置單擊滾動塊和滾動按

10、鈕區(qū)域時Value變化值 SmallChange 整型數(shù)據(jù)設(shè)置單擊滾動按鈕時Value變化值 5.4.2 常用事件常用事件 Change ：當(dāng)滾動塊被移動到新的位置后或在程序執(zhí)行過程中當(dāng)滾動塊被移動到新的位置后或在程序執(zhí)行過程中Value發(fā)生變化時觸發(fā)發(fā)生變化時觸發(fā) Scroll事件：當(dāng)在滾動條內(nèi)拖動滾動塊時觸發(fā)事件：當(dāng)在滾動條內(nèi)拖動滾動塊時觸發(fā)例例5-55-5用滾動條設(shè)計實現(xiàn)一個簡單調(diào)色板，如圖所示。用三個滾動條用滾動條設(shè)計實現(xiàn)一個簡單調(diào)色板，如圖所示。用三個滾動條作為三種基本顏色的輸入工具，用作為三種基本顏色的輸入工具，用RGBRGB函數(shù)合成顏色，合成函數(shù)合成顏色，合成的顏色作為一個標(biāo)簽的

11、背景色顯示出來的顏色作為一個標(biāo)簽的背景色顯示出來 程序代碼程序代碼l計時器(Timer)也叫定時器，能以一定的時間間隔激發(fā)其Timer事件，從而執(zhí)行相應(yīng)的Timer事件過程代碼。 l計時器是一個不可視控件。在設(shè)計階段可以看見其圖標(biāo)(但不能改變其大小)，在運(yùn)行階段不可見。 5.5.1 常用屬性常用屬性1 1、 Interval 單位：ms(0.001s)，0.5秒是500。 取值范圍在064767 Interval0，表示計時器停止工作。2、 Enabled True：啟動計時False：停止時鐘工作5.5.2 常用事件常用事件 Timer例例5-6 程序代碼程序代碼設(shè)計一個紅綠燈仿真程序，如圖

12、所示。在三個文本框中可以設(shè)定紅黃綠燈的時間，單擊標(biāo)題為“開始”的命令按鈕，紅黃綠燈開始工作，單擊標(biāo)題為“停止始”的命令按鈕，紅黃綠燈停止工作。5.6.1 鍵盤事件鍵盤事件 窗體和接受鍵盤輸入的控件能夠響應(yīng)三種鍵盤事件 1KeyPress事件事件 Private Sub 控件名_KeyPress(KeyAscii As Integer) Private Sub Form_KeyPress(KeyAscii As Integer) KeyAscii：按下ASCII字符按鍵的ASCII碼值。 KeyAscii=0，將接收不到字符。 2KeyDown和和KeyUp事件事件 Private Sub Pr

13、ivate Sub 控件名控件名_KeyDown(KeyCode As Integer, Shift As Integer)_KeyDown(KeyCode As Integer, Shift As Integer) Private Sub Private Sub 控件名控件名_KeyUp(KeyCode As Integer, Shift As Integer)_KeyUp(KeyCode As Integer, Shift As Integer) Private Sub Private Sub Form_KeyDown(KeyCode As Integer, Shift As Intege

14、r)_KeyDown(KeyCode As Integer, Shift As Integer) Private Sub Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)_KeyUp(KeyCode As Integer, Shift As Integer)KeyCode:KeyCode:是一個唯一標(biāo)識鍵盤按鍵的代碼是一個唯一標(biāo)識鍵盤按鍵的代碼 。字母以大寫的的。字母以大寫的的ASCIIASCII值。值。 1313：回車。：回車。 2727：EscEsc。 其它見表其它見表5-105-10（p79p79） ShiftShi

15、ft：是一個整數(shù)，記錄了：是一個整數(shù)，記錄了ShiftShift、CtrlCtrl、AltAlt轉(zhuǎn)換鍵的按鍵狀態(tài)。轉(zhuǎn)換鍵的按鍵狀態(tài)。l只有獲得焦點的控件，才會觸發(fā)其只有獲得焦點的控件，才會觸發(fā)其KeyPress、KeyDown和和KeyUp事件。事件。 l如果窗體的如果窗體的KeyPreview屬性設(shè)置為屬性設(shè)置為True，則首先是觸發(fā)窗體的，則首先是觸發(fā)窗體的KeyPress、KeyDown和和KeyUp事件，然后才是當(dāng)前具有焦點的事件，然后才是當(dāng)前具有焦點的控件接收鍵盤事件?？丶邮真I盤事件。b2b1b0B0為1：按下了ShiftShift鍵；B1為1：按下了CtrlCtrl鍵；B2為1：

16、按下了AltAlt鍵。有8種組合狀態(tài)：0(000)7(111)例例5-7設(shè)計一程序，界面如圖所示。在文本框中只能輸入數(shù)字或字母，按組合鍵Ctrl+Alt+C退出程序的運(yùn)行。 分析分析：1在文本框中只能輸入數(shù)字或字 母 ， 可 以 在 文 本 框 的KeyPress事件過程中在非數(shù)字或字母情況下將KeyAscii的值設(shè)置為0。2窗體的KeyPreview屬性被設(shè)置為True，則首先是觸發(fā)窗體的KeyDown事件，以實現(xiàn)按組合鍵Ctrl+Alt+C退出程序的運(yùn)行。 程序代碼程序代碼鼠標(biāo)事件：MouseDown(按下)、MouseUp(松開)、MouseMove(移動) 控件：控件：控件名控件名_M

17、ouseDown(Button As Integer, Shift As Integer, X As _MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)Single, Y As Single)控件名控件名_MouseUp(Button As Integer, Shift As Integer, X As Single, _MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)Y As Single)控件名控件名_M

18、ouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) 窗體：窗體：Form_MouseDown(Button As Integer, Shift As Integer, X As Single, _MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)Y As Single)Form_MouseUp(Button As Integer, Shift As Integer, X As Single, _MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)Y As Single)Form_MouseMove(Button As Integer, Shift As