第5章常用控件

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

2、l可插入對(duì)象可插入對(duì)象 可插入對(duì)象是可插入對(duì)象是Window應(yīng)用程序的對(duì)象，如應(yīng)用程序的對(duì)象，如Excel工工作表對(duì)象、作表對(duì)象、PowerPoint幻燈片對(duì)象等。這些對(duì)象幻燈片對(duì)象等。這些對(duì)象也可以將其添加到工具箱上。也可以將其添加到工具箱上。5.2.1 單選鈕和復(fù)選框單選鈕和復(fù)選框 單選鈕(OptionButton)主要用于在多個(gè)選項(xiàng)中選擇一個(gè)選項(xiàng)的情況。復(fù)選框(CheckBox)主要用于在多個(gè)選項(xiàng)中選擇多個(gè)選項(xiàng)的情況。1 1常用屬性常用屬性 屬性名屬性名屬性值屬性值說(shuō)明說(shuō)明Caption標(biāo)題，單選鈕默認(rèn)為標(biāo)題，單選鈕默認(rèn)為Option1,復(fù)選框?yàn)閺?fù)選框?yàn)镃heck1。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))，選擇為，選擇為T(mén)rue。0、1、2復(fù)選框?yàn)檫x擇為復(fù)選框?yàn)檫x擇為0（默認(rèn)），選擇為（默認(rèn)），選擇為1，禁止選，禁止選擇為擇為2。2常用事件：常用事件：Click例例5-1用單選鈕設(shè)置文本框中的文字的顏色，用復(fù)選框設(shè)置文本框中的文字的格式。 程序代碼程序代碼框架(Frame)是一個(gè)容器對(duì)象，主要用于對(duì)窗體上的對(duì)象進(jìn)行分組。 例如單選題，每道題有四個(gè)選

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

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

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

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

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

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

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

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

12、所示。在三個(gè)文本框中可以設(shè)定紅黃綠燈的時(shí)間，單擊標(biāo)題為“開(kāi)始”的命令按鈕，紅黃綠燈開(kāi)始工作，單擊標(biāo)題為“停止始”的命令按鈕，紅黃綠燈停止工作。5.6.1 鍵盤(pán)事件鍵盤(pán)事件 窗體和接受鍵盤(pán)輸入的控件能夠響應(yīng)三種鍵盤(pán)事件 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:是一個(gè)唯一標(biāo)識(shí)鍵盤(pán)按鍵的代碼是一個(gè)唯一標(biāo)識(shí)鍵盤(pán)按鍵的代碼 。字母以大寫(xiě)的的。字母以大寫(xiě)的的ASCIIASCII值。值。 1313：回車(chē)。：回車(chē)。 2727：EscEsc。 其它見(jiàn)表其它見(jiàn)表5-105-10（p79p79） ShiftShi

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

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