Visual-Basic語言程序的設(shè)計教程第4章-常用標準控件-精選課件

1、第4章 常用標準控件本章的學(xué)習(xí)要點標簽、文本框的常用屬性、事件、方法命令按鈕的常用屬性、事件和方法圖片框、圖像框的屬性、事件、方法；圖形文件的載入框架的屬性和功能復(fù)選框、單選按紐的常用屬性、事件、方法列表框、組合框的常用屬性、事件、方法滾動條、計時器的常用屬性、事件、方法1工具箱控件圖解4.1 概述指示器標簽框架復(fù)選框組合框水平滾動條時鐘目錄列表框形狀圖象框OLE圖片框文本框命令按鈕單選按鈕列表框垂直滾動條驅(qū)動器列表文件列表LINEData2控件是VB中預(yù)先定義好了的、程序中能夠直接使用的對象，每個控件都有自己的屬性、事件和方法。VB有三種控件：標準控件：存在于工具欄中，不可刪除。被封裝在VB

2、的 .exe文件中，不可以刪除。ActiveX控件：由第三方制造的，以獨立文件存在，擴展名為.ocx,使用前必須添加到工具欄中?？刹迦氲膶ο螅喝鏓xecl, Word等能添加到工具欄中，所以也是控件。向工具箱中添加控件的方法如果想使用標準工具箱中沒有的控件，則必須將該控件添加到工具箱中。 添加過程如下： 4.1 概述3向窗體上添加控件，有三種方法：方法一：單擊工具箱中的某控件圖標，該圖標反相顯示；移動鼠標至窗體上，光標變?yōu)椤?”，按下鼠標左鍵不放，向右下方拖動鼠標；當(dāng)控件為合適大小時松開鼠標，一個控件就添加好了。方法二：雙擊工具箱中的某控件圖標，在窗體中就添加了該控件，與第一種方法不同的是，所

3、添加控件大小、位置是固定的。方法三：按如下步驟操可以添加多個某種類型的控件：按住Ctrl鍵，不要松開；單擊工具箱中要畫的控件的圖標，然后松開Ctrl鍵；按第一種方法在窗體上畫出控件(可以畫一個或多個)；畫完控件后，單擊工具箱中的指針圖標(或其他圖標)。4.1 概述4標簽控件主要用于標注沒有Caption屬性的控件的用途或向用戶顯示運行結(jié)果的。標簽在運行時不具有交互性 ，不能響應(yīng)用戶事件。標簽控件的屬性Alignment：設(shè)置標簽中文本的對齊方式。語法格式：4.2 標簽(Label)對象名.Alignment=0 | 1 | 2屬性值說 明0(默認值)從左邊開始顯示標題，即左對齊1從右邊開始顯示

4、標題，即右對齊2從中間開始顯示標題，即居中對齊5標簽控件的屬性AutoSize：設(shè)置標簽是否能夠自動調(diào)整大小以顯示所有的內(nèi)容。 語法格式： 其中：屬性值為False(默認值)表示顯示控件的原始大小，屬性值為True表示根據(jù)控件中的內(nèi)容自動調(diào)整控件大小。BackStyle：設(shè)置標簽的背景樣式。語法格式： 其中：屬性值為1(默認值)表示背景是不透明的；屬性值為0表示背景是透明的。4.2 標簽(Label)對象名.AutoSize= True | False對象名.BackStyle= 0 | 16標簽控件的屬性BorderStyle：設(shè)置標簽的邊框樣式。語法格式： 其中：屬性值為0(默認值)表示無

5、邊框；屬性值為1表示單線邊框。Caption：設(shè)置標簽的文本內(nèi)容。 語法格式： 4.2 標簽(Label)對象名.Caption =字符串對象名.BorderStyle=0 | 17標簽控件的事件和方法 標簽具有Click(單擊)，DbClick(雙擊)等事件，但一般不需要編寫代碼。標簽的方法中常用的只有Move，其基本語法如下： 其中：left，top，width，height分別表示移動目的位置的坐標和大小。left為必要參數(shù)，其他三個為可選參數(shù)。 4.2 標簽(Label)對象名. Move left,top,width,height8例4.1設(shè)計一個界面說明標簽的基本屬性的使用 界面設(shè)

6、計屬性設(shè)置對象名屬性名屬性值Label1Caption默認值Label2Caption學(xué)習(xí)VBAutoSizeTrueBackStyle0(透明)BorderStyle1(單線邊框)運行結(jié)果9文本框是一個文本編輯區(qū)域，主要用于接收用戶的輸入、輸出、修改等信息，可以輸入單行文本，也可以輸入多行文本，在程序運行過程中具有良好的交互性。 文本框控件的屬性Name：設(shè)置文本框的名稱。Text：設(shè)置文本框中顯示的文本內(nèi)容。語法格式： 4.3 文本框(TextBox)對象名.Text=字符串10文本框控件的屬性Locked：設(shè)置文本框是否可以被編輯。語法格式： 其中：屬性值為False（默認值）表示文本內(nèi)

7、容可以編輯；屬性值為True表示文本內(nèi)容只能讀但不能修改。MaxLength：設(shè)置文本框中輸入的字符串最大長度。 其中：屬性值為0（默認值）表示文本框中字符串的長度為任意值，只受操作系統(tǒng)內(nèi)存的限制；屬性值為大于0的整數(shù)，該整數(shù)表示能夠輸入的最大字符數(shù)目。4.3 文本框(TextBox)對象名. Locked = True | False11文本框控件的屬性MultiLine：設(shè)置文本框是否可以輸入多行文本。 語法格式： 其中：屬性值為False（默認值）表示只能單行顯示，不能顯示多行；屬性值設(shè)置為True，表示可以多行顯示文本，若文本行數(shù)超過文本框?qū)挾?，系統(tǒng)會自動為文本框添加滾動條。 Pass

8、wordChar：設(shè)置是否在文本框中顯示用戶所輸入的字符串。語法格式為： 其中：該屬性如被設(shè)置為某一字符，如“*”，則無論在Text屬性值中輸入什么，在文本框中都只顯示“*”。 4.3 文本框(TextBox)對象名.MultiLine = True | False 對象名. PasswordChar= * 注意：該屬性有效的前提是MultiLine屬性必須設(shè)置為False。12文本框控件的屬性ScrollBars：設(shè)置文本框滾動條的模式。語法格式： 4.3 文本框(TextBox)對象名.ScrollBars=0 | 1 | 2 | 3屬性值說 明0（默認值）表示沒有滾動條1表示只有水平滾動

9、條2表示只有垂直滾動條3表示既有水平滾動條又有垂直滾動條13文本框控件的屬性SelLength、SelStart和SelText：控制文本框中的插入點和文本選定操作，這些屬性僅能在運行時使用。語法格式： 其中：SelLength設(shè)置選定文本的長度，只能在代碼中使用，若值為0，表示未選中任何內(nèi)容。SelStart設(shè)置選定文本的起始點，只能在代碼中使用，第一個字符位置是0。SelText設(shè)置當(dāng)前選定文本的內(nèi)容，只能在代碼中使用4.3 文本框(TextBox) 對象名. SelLength =數(shù)值 對象名. SelStart =數(shù)值 對象名. SelText =字符串Text1.SelStart =

10、 1Text1.SelLength = 3Text2.Text = Text1.SelText14文本框控件的事件Change：當(dāng)用戶改變文本框的內(nèi)容時，該文本框的Change事件被觸發(fā)，該事件對應(yīng)的代碼結(jié)構(gòu)如下：4.3 文本框(TextBox) Private Sub Text1_Change() End Sub154.3 文本框(TextBox)例：程序運行時，通過用戶輸入，同步設(shè)置窗體的標題，即用戶輸入什么，窗體標題就同步顯示什么。分析：接收用戶輸入用戶輸入的內(nèi)容保存在文本框的什么屬性中窗體的標題與文本框內(nèi)容一致賦值將文本框內(nèi)容Text賦予窗體的標題屬性Caption同步顯示代碼：文本框

11、textForm1.caption=text1.text文本框Change事件Private Sub Text1_Change() Form1.Caption = Text1.TextEnd Sub164.3 文本框(TextBox)例：程序運行時，用戶輸入密碼時，在另一個文本框中顯示用戶輸入的密碼。分析：接收用戶輸入用戶輸入的內(nèi)容保存在文本框的什么屬性中文本框2與文本框1內(nèi)容一致同步顯示代碼：文本框TextText2.text=text1.text文本框Change事件Private Sub Text1_Change() End SubText2.Text = Text1.Text17文本框

12、控件的事件KeyPress：當(dāng)文本框被選中時，按任意鍵該文本框的KeyPress事件被觸發(fā)，該事件對應(yīng)的代碼結(jié)構(gòu)如下： 其中：KeyAscii是按鍵事件的參數(shù)，反映了按鍵對應(yīng)鍵名的ASCII碼值，輸入數(shù)據(jù)時，通過KeyPress事件過程來識別輸入字符是否正確，達到判斷檢查的功能。 一般經(jīng)常用以上兩個事件過程中設(shè)置代碼，來實現(xiàn)對輸入文本框中的內(nèi)容進行檢查、驗證和確認4.3 文本框(TextBox) Private Sub Text_KeyPress(KeyAscii As Integer) End Sub184.3 文本框(TextBox)例：判斷文本框中輸入的內(nèi)容是否為數(shù)字 按鍵盤上某鍵，如果

13、輸入的值不是09之間的數(shù)字，則在窗體上顯示相關(guān)的提示信息，否則沒有任何提示。Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii Asc(9) Then Print 你輸入的不是數(shù)字 End IfEnd Sub19文本框控件的方法SetFocus：可以設(shè)置焦點，其獲得焦點的顯示效果是焦點（光標）在文本框中閃動。語法格式：讓指定的對象獲得焦點。設(shè)置焦點，本方法可使指定的文本框(或其他有聚焦能力的對象)成為焦點，也就是當(dāng)前文本框，成為焦點的文本框中具有閃動的光標.4.3 文本框(TextBox)對象名. SetFocus20口令口令

14、口令例 設(shè)計一個程序可檢查密碼是否正確，密碼為“12345”口令口令4.3 文本框控件 (TextBox)Private Sub Command1_Click() pass= Text1.Text If pass = 12345 Then Label2.Caption = “口令正確！ Else Label2.Caption = “口令錯，重新輸入！ End IfEnd Sub21命令按鈕通常在Click事件中編寫一段程序，當(dāng)用戶用鼠標單擊這個按鈕時，就會啟動這段程序，執(zhí)行某一特定的功能。命令按鈕控件的屬性Caption：設(shè)置命令按鈕的標題。Default：設(shè)置命令按鈕是否為默認按鈕，即當(dāng)運行

15、程序時，用戶按回車鍵時，就激活它。語法格式： 其中，屬性值為False（默認值）表示該按鈕不響應(yīng)Default事件；屬性值為True表示該命令響應(yīng)Default事件，即當(dāng)用戶按Enter鍵時，與單擊該按鈕效果相同。Cancel：設(shè)置命令按鈕是否為Cancel按鈕，即當(dāng)用戶按Esc鍵時，是否觸發(fā)它的Click事件。語法格式： 4.4 命令按鈕 (CommandButton)對象名.Cancel= True | False對象名.Default=True | False注意：在一個窗體內(nèi)，只能有一個Default命令按鈕,也只能有一個Cancel命令按鈕;22命令按鈕控件的屬性Enabled：設(shè)置

16、命令按鈕是否能被按下。語法格式： 其中:屬性值為True（默認值）表示該按鈕能被響應(yīng)；屬性值為False表示該按鈕不能被響應(yīng)，以灰色顯示。Picture：設(shè)置命令按鈕上顯示的圖形。語法格式： 4.4 命令按鈕 (CommandButton)對象名.Enabled=True | False對象名.Picture=LoadPicture(圖形文件名)23命令按鈕控件的屬性Style：設(shè)置命令按鈕的類型。語法格式： ToolTipText：設(shè)置當(dāng)鼠標在命令按鈕上暫停時顯示的文本。 4.4 命令按鈕 (CommandButton)對象名.Style=0 | 1屬性值說 明0(默認值)表示為標準按鈕，只

17、顯示Caption屬性設(shè)置的文本1表示為圖形風(fēng)格，只顯示由Picture屬性指定的圖片對象名. ToolTipText=字符串24命令按鈕控件的事件Click、MouseDown、MouseUp：當(dāng)單擊鼠標時就會觸發(fā)該三個事件。他們觸發(fā)的順序為MouseDown、 Click、 MouseUp 事件。 4.4 命令按鈕 (CommandButton)對象名.Default=True | False注意：MouseDown和MouseUp只能通過單擊鼠標觸發(fā)；而Click既可通過單擊鼠標觸發(fā)，還可以在按鈕獲得焦點時按空格或回車鍵觸發(fā)。254.4 命令按鈕(CommandButton) 命令按鈕的

18、主要方法SetFocus：設(shè)置焦點。設(shè)置為焦點的按鈕在其表面有一個虛邊框 注意： 命令按鈕不支持雙擊事件。 BackColor屬性和Picture屬性在Style屬性值為1（圖形方式）下，才能顯示出來。264.4 命令按鈕(CommandButton) Private Sub Command1_Click() Form1.Move Left + 500, Top - 500, Width + 500, Height + 500End SubPrivate Sub Command2_Click() Form1.Move Left - 500, Top + 500, Width - 500, He

19、ight - 500End SubPrivate Sub Command3_Click() EndEnd Sub27例：設(shè)計一個窗體，說明命令按鈕的基本屬性、事件、方法的使用。4.4 命令按鈕(CommandButton) 界面設(shè)計屬性設(shè)置見課本P52運行結(jié)果28代碼如下：Private Sub Command1_Click() Label4.Caption = + Text3.Text = Val(Text1.Text) + Val(Text2.Text)End SubPrivate Sub Command2_Click() Label4.Caption = - Text3.Text = V

20、al(Text1.Text) - Val(Text2.Text)End SubPrivate Sub Command3_Click() Label4.Caption = * Text3.Text = Val(Text1.Text) * Val(Text2.Text)End SubPrivate Sub Command4_Click() Label4.Caption = / Text3.Text = Val(Text1.Text) / Val(Text2.Text)End Sub294.5 圖形控件VB中的圖形控件分為圖片框(PictureBox)、圖像框(Image)、直線控件和形狀控件。圖形

21、控件的使用能美化界面和增加界面的趣味性。圖片框圖片框控件可以用來顯示.bmp、.ico、.jpeg 、.jpg 、.gif等圖片類型的文件，且可以繪制圖形、顯示文本或計算結(jié)果，還可以作為容器放置其它控件。 304.5 圖形控件圖片框常用屬性Align：設(shè)置圖片框在窗體中的顯示方式，語法格式： 對象名. Align =0 | 1 | 2 | 3 | 4 屬性值說 明0-None默認值，表示無特殊顯示1-Align Top表示圖片框?？吭诖绑w上端并與窗體一樣寬2-Align Bottom表示圖片框?？吭诖绑w底部并與窗體一樣寬3-Align Left表示圖片框?？吭诖绑w左端并與窗體一樣高4-Alig

22、n Right表示圖片框?？吭诖绑w右端并與窗體一樣高314.5 圖形控件圖片框常用屬性AutoSize：設(shè)置控件是否能自動調(diào)整大小以適應(yīng)圖片內(nèi)容。 語法格式： 其中:屬性值為False（默認值）表示圖片框不能自動改變大小以適應(yīng)其中的圖形，保持原始尺寸，如果圖形比圖片框大，則超出的部分將被剪切掉；屬性值為True表示圖片框可以自動調(diào)整圖片框大小以顯示圖片的全部內(nèi)容。對象名. AutoSize =True | False324.5 圖形控件圖片框常用屬性Picture：設(shè)置圖片框控件中顯示的圖片。 在界面設(shè)計時，可直接利用屬性窗口中的Picture屬性設(shè)置相應(yīng)圖片的目錄裝入圖片；在程序運行時，可使

23、用LoadPicture函數(shù)裝載圖片，語法格式為：對象名.Picture = LoadPicture(圖形文件名)334.5 圖形控件圖片框圖片框控件的事件圖片框常用的事件是Click和DblClick，分別是單擊和雙擊圖片框時發(fā)生的事件。圖片框控件的方法圖片框常用的方法有Print、Cls、Move和SetFocus。同時，圖片框支持Pset、Point、Circle和Line等繪圖方法 。裝載圖片裝載圖片有三種方法： 方法1：在界面設(shè)計時，通過Picture屬性裝載圖片，在Picture屬性中選擇需要裝入的圖形文件名。方法2：在程序運行期間，用LoadPicture函數(shù)裝載。方法3：在界面

24、設(shè)計時，利用菜單中的“編輯”“粘貼”功能，將剪貼板中的圖片粘貼到圖形控件中。344.5 圖形控件圖片框卸載圖片語法格式：保存圖片SavePicture函數(shù)的功能是用來保存在圖片框中處理過的圖像。語法格式： 例如： SavePicture Picture1.Image,aa.bmp 對象.Picture=LoadPicture(“ ”)SavePicture 對象名.Image, 保存文件名35例：設(shè)計一個窗體，通過命令按鈕單擊實現(xiàn)兩個圖片框控件中圖片之間的切換。4.5 圖形控件界面設(shè)計和運行結(jié)果364.5 圖形控件對象屬性屬性值CommandButtonNameCommand1Caption交

25、換PictureBoxNamePicture1Pictured:6.jpgPictureBoxNamePicture2Pictured:7.jpg屬性設(shè)置如下表：374.5 圖形控件代碼編寫如下Private Sub Command1_Click() Picture1.Picture = Picture2.Picture Picture2.Picture = LoadPicture(d:6.jpg)End Sub384.5 圖形控件圖像框圖像框也是用來顯形圖片，如.bmp、.ico、.jpeg 、.jpg 圖片格式。其裝載顯示圖片的速度較圖片框快。常用屬性Appearance:設(shè)置圖像框在運行

26、時是否以3D效果顯示.Picture：設(shè)置圖像框控件中顯示的圖形。圖像框的Picture屬性與圖片框使用方法相同，既可以通過屬性窗口設(shè)置圖像框的Picture屬性來添加圖片，也可以通過LoadPicture函數(shù)來裝載圖片。 394.5 圖形控件圖像框常用屬性Stretch：設(shè)置是否調(diào)整圖形的大小以適應(yīng)圖像框控件。圖像框沒有Autosize屬性，但可以使用Stretch屬性來拉伸圖像大小，使其適應(yīng)圖像框的大小。 其中: 屬性值為False（默認值）表示當(dāng)圖形載入時，圖像框本身調(diào)整大小，使得圖形可以填滿圖像框； 屬性值為True表示當(dāng)圖形載入時，圖形自動按照圖像框的大小來調(diào)整大小，使圖形填滿整個圖

27、像框。404.5 圖片控件 圖像框圖像框控件的事件和方法圖像框常用的事件和方法都不多。常用的事件有：DbClick、Click、MouseDown、MouseMove、MouseUp。常用的方法有：Move方法。圖片框和圖像框的區(qū)別：圖片框可以作為“容器”，可以存放其他控件，圖像框不可以；圖片框可以通過Print方法輸出文本也可以用繪圖方法繪制圖形，圖像框不可以；圖像框比圖片框占用內(nèi)存少，顯示速度快，如只顯示圖片則優(yōu)先使用圖像框；圖片框有Autosize屬性，而圖像框有Stretch屬性41例：設(shè)計一個窗體，說明圖像框中Stretch屬性的應(yīng)用。4.5 圖片控件界面設(shè)計424.5 圖片控件屬性

28、設(shè)置如下:對象屬性屬性值CommandButtonNameCommand1Caption交換PictureBoxNamePicture1PictureBoxNamePicture2VisibleFalseImageNameImage1StretchTrue434.5 圖片控件代碼編寫如下Private Sub Form_Load()Picture1.Picture = LoadPicture(C:JadeVista.jpg)Image1.Picture = LoadPicture(C:風(fēng)景06.jpg)End SubPrivate Sub Command1_Click()Picture2.Pi

29、cture = Picture1.PicturePicture1.Picture = Image1.PictureImage1.Picture = Picture2.PictureEnd Sub444.6 框架和選擇控件框架（Frame）在VB中，可以作為其他對象容器的有窗體、圖片框和框架?？蚣艿闹饕饔檬菍⒋绑w上的控件進行分組，讓窗體界面整齊。框架控件的屬性Caption：設(shè)置框架的標題，說明框架的功能。Enabled：設(shè)置框架及框架內(nèi)控件是否可用。屬性值為True（默認值）表示框架可用，屬性值為False則表示框架和其上的控件不可用。Visible：設(shè)置框架及框架內(nèi)控件是否可見。 454.

30、6 框架和選擇控件框架（Frame）框架控件的事件 框架的常用事件是Click，在框架上單擊鼠標時觸發(fā)。 向框架添加控件的方法 先框架后控件：先添加一個框架，在框架處于激活狀態(tài)時，在工具欄中選擇要添加的控件添加到框架中。先控件后框架：即添加窗體中已存在的控件到框架中。先添加一個框架，然后將窗體中要添加的控件剪貼到框架中。 判斷一個控件是否已添加到框架上，主要是看移動框架時該控件是否也跟隨一起移動。464.6 框架和選擇控件單選按鈕（OptionButton） 單選按鈕控件是多選一控件，只能從多個選項中選擇一個，各選項間的關(guān)系是互斥的，同一時刻只能選擇同一組中的一個單選按鈕。單選按鈕控件的屬性C

31、aption：設(shè)置單選按鈕的標題。Alignment：設(shè)置單選按鈕中文字的對齊方式。 其中：屬性值為0（默認值）表示靠左對齊，圓形按鈕位于控件的左邊，文字顯示在右邊；屬性值為1表示靠右對齊。對象名.Alignment=0 | 1474.6 框架和選擇控件單選按鈕（OptionButton） 單選按鈕控件的屬性Value：設(shè)置單選按鈕在執(zhí)行時是否被選中。語法格式： 其中： 屬性值為False（默認值）表示單選按鈕處于未選中狀態(tài)；為True表示單選按鈕被選中。在一組單選按鈕控件中，有且只有一個單選按鈕能被選中，該控件的Value值變成True的同時，其他控件的Value屬性將自動變成False。

32、對象名. Value=True | False484.6 框架和選擇控件單選按鈕（OptionButton） 單選按鈕控件的屬性Style：設(shè)置單選按鈕的顯示方式。 語法格式： 其中： 屬性值為0（默認值）表示單選按鈕用標準方式（Standard）顯示；為1表示單選按鈕用圖形方式（Graphical）顯示。此屬性與命令按鈕的Style屬性相似。 對象名. Style=0 | 1494.6 框架和選擇控件單選按鈕（OptionButton） 單選按鈕控件的屬性Picture：給單選按鈕裝載圖形。 注意：只有在Style屬性設(shè)置為圖形方式時Picture屬性才有效。504.6 框架和選擇控件單選按

33、鈕（OptionButton） 單選按鈕控件的事件單選按鈕的常用事件為Click，當(dāng)用戶在一個單選按鈕上單擊時觸發(fā)。514.6 框架和選擇控件例4.9 設(shè)計一個窗體選擇不同字體、不同字號的選項，文本框的文字會產(chǎn)生相應(yīng)的變化。界面設(shè)計屬性設(shè)置見書P60524.6 框架和選擇控件代碼設(shè)計：Private Sub Option1_Click() If Option1.Value = True Then Label1.FontName = 宋體End SubPrivate Sub Option2_Click() If Option2.Value = True Then Label1.FontName

34、= 隸書End SubPrivate Sub Option3_Click() If Option3.Value = True Then Label1.FontName = 黑體End Sub534.6 框架和選擇控件代碼設(shè)計：Private Sub Option4_Click() If Option4.Value = True Then Label1.FontSize =30End SubPrivate Sub Option5_Click() If Option5.Value = True Then Label1.FontSize = 40End SubPrivate Sub Option6_

35、Click() If Option6.Value = True Then Label1.FontSize = 50End Sub544.6 框架和選擇控件運行結(jié)果554.6 框架和選擇控件復(fù)選框（CheckBox）復(fù)選框的功能類似于單選按鈕，不同的是：一組單選按鈕中只允許選定其中的一個；而在組復(fù)選框中卻可以選擇多個，即復(fù)選框的功能是獨立的，各選項間不互斥。復(fù)選框控件的屬性Caption：設(shè)置復(fù)選框標題。Value：設(shè)置復(fù)選框在執(zhí)行時的狀態(tài)。語法格式： 對象名. Value=0 | 1 | 2屬性值說 明0(默認值)未選中，此時復(fù)選框前面小方塊沒有“”標志1選中狀態(tài)，此時復(fù)選框前面小方塊帶有“”

36、標志2處于禁止選擇狀態(tài)，復(fù)選框呈現(xiàn)“”標志但以灰色顯示。564.6 框架和選擇控件復(fù)選框（CheckBox）復(fù)選框控件的屬性Style：設(shè)置復(fù)選框的顯示方式。Picture：用于給圖形復(fù)選框裝載圖形。 注意：只有在Style屬性設(shè)置為圖形方式時Picture屬性才有效。574.6 框架和選擇控件復(fù)選框（CheckBox）復(fù)選框控件的事件和方法復(fù)選框的常用事件為Click，當(dāng)用戶在一個復(fù)選框上單擊鼠標按鈕時發(fā)生。復(fù)選框不支持鼠標雙擊事件，系統(tǒng)把一次雙擊解釋為兩次單擊事件。復(fù)選框支持的方法較少，常用的主要有：SetFoucs、Move。 58復(fù)選框應(yīng)用設(shè)計一個窗體，說明復(fù)選框的基本應(yīng)用方法。 界面

37、設(shè)計59對象屬性屬性值LabelNameLabel1Caption我的愛好是CheckBoxNameCheck1Caption音樂CheckBoxNameCheck2Caption足球CheckBoxNameCheck3Caption看書CheckBoxNameCheck4Caption購物CommandButtonNameCommand1Caption確定CommandButtonNameCommand2Caption清除604.6 框架和選擇控件代碼設(shè)計： Private Sub Command1_Click() a = Check1.Caption b = Check2.Caption

38、c = Check3.Caption d = Check4.Caption If Check1.Value = 1 Then Label1.Caption = Label1.Caption & & a If Check2.Value = 1 Then Label1.Caption = Label1.Caption & & b If Check3.Value = 1 Then Label1.Caption = Label1.Caption & & c If Check4.Value = 1 Then Label1.Caption = Label1.Caption & & dEnd SubPriv

39、ate Sub Command2_Click() a = b = c = d = Label1.Caption = 我的愛好是：End Sub614.7 列表框和組合框列表框和組合框都是通過列表的形式顯示多個選項，供用戶來選擇。列表框是一個為用戶提供選擇的列表，用戶可從中單擊選取自己所需的一個或多個選項。如果選項太多，超出列表框設(shè)計的大小時，不能一次全部顯示，VB會自動加上垂直滾動條。組合框的功能與列表框相近，其主要特點是它綜合了列表框和文本框的特性。在程序運行時，用戶既可以在組合框中選擇已有的選項，選中的內(nèi)容自動放入文本框中；又能夠在文本框中直接輸入所需的內(nèi)容。列表框控件組合框控件624.7

40、 列表框和組合框列表框控件列表框控件的屬性List：設(shè)置列表框中列表項的內(nèi)容。List屬性值是一個一維數(shù)組，每個數(shù)組元素是列表框中的一個選項。 其中：該屬性既可以在設(shè)計時通過屬性窗口設(shè)置，又可在代碼窗口中設(shè)置；屬性窗口設(shè)置時，每添加一個列表項，按Ctrl+Enter鍵可以換行繼續(xù)添加下一個列表項，直接按Enter鍵表示添加結(jié)束；代碼窗口設(shè)置時，采用如下格式： 例如： List1.list(0)= 武漢 列表框的第一項 List1.list(2)= 北京 列表框的第三項對象名.list(下標) = 字符串注意：List數(shù)組的第一個元素的下標是0，即List(0)為第一個元素，往后依次為List(

41、1)、List(2)、List(3)，如果List數(shù)組中有n個元素，則最后一個列表項對應(yīng)的數(shù)組元素為List(n-1)。634.7 列表框和組合框列表框控件列表框控件的屬性ListCount：表示當(dāng)前列表框中選項的總數(shù)。 注意：任何列表框中的選項從0開始，到ListCount-1結(jié)束，通常和List屬性一起使用，此屬性只能在程序中引用。644.7 列表框和組合框列表框控件列表框控件的屬性ListIndex：設(shè)置和返回選中的選項，即下標序號。如果沒有任何選項選中，其值為-1。 Sorted：設(shè)置列表框中的選項是否按字母表順序排序。語法格式： 其中：屬性值為True表示列表框中的選項按字母表順序排

42、序；屬性值為False則表示列表框中的選項不按字母表順序排序。Sorted屬性必須在屬性窗口時設(shè)置，在運行時是只讀的。 list1.sorted=true 按字母順序排列 list1.sorted=false按加入時的順序排列 如果選中列表框的第五個元素，則ListIndex值為多少？對象名.Sorted=True | False654.7 列表框和組合框列表框控件列表框控件的屬性Text：返回或設(shè)置最后選中的列表項的文本內(nèi)容。只讀屬性，不能直接修改其值，用于獲取選定列表項的內(nèi)容。MultiSelect：設(shè)置該列表框是否能選擇多項。語法格式： 對象名. MultiSelect =0 | 1 |

43、 2屬性值說 明0 (None)單選，一次只能選擇一個選項1 (Simple)簡單多選，鼠標單擊或按Space鍵選取或取消選項2(Extended)高級多選，用Ctrl鍵與鼠標單擊來選中或取消不連續(xù)的選項；用Shift鍵與鼠標單擊來選中或取消連續(xù)的選項注意：若選擇多項，則ListIndex和Text的屬性只表示最后一次所選擇的選項值。664.7 列表框和組合框列表框控件列表框控件的屬性SelCount：表示列表框中所選擇的選項的數(shù)目。通常與Selected一起使用，以處理控件中所選的選項。 注意：注意：SelCount屬性使用的前提是MultiSelect屬性設(shè)置為1或2。674.7 列表框和

44、組合框列表框控件列表框控件的屬性Selected：與List數(shù)組中的各個元素相對應(yīng)的一個數(shù)組，記錄List數(shù)組中每個選項是否被選取。例如，如果List(1)被選取，則Selected(1)的值為True，如果List(1)未被選取，則Selected(1)的值為False。 如：list1.selected(0)=true表示選中第一項684.7 列表框和組合框列表框控件列表框控件的屬性Style：設(shè)置列表框控件的外觀。語法格式： 屬性值說 明0(標準樣式)不帶復(fù)選框1(復(fù)選框樣式)當(dāng)復(fù)選框中出現(xiàn)“”時表示選中該選項對象名. Style =0 | 1 694.7 列表框和組合框列表框控件列表框

45、控件的事件Click事件：在列表框獲得焦點時用戶單擊某個選項，或按下方向鍵，或按下選項的第一個英文字母，會觸發(fā)該事件。DblClick事件：雙擊某個選項會觸發(fā)該事件。列表框控件的方法AddItem：向列表框中添加列表項。語法格式： 對象名.AddItem 選項字符串 ,索引值其中：選項字符串是要添加到列表框中的字符表達式；索引值是可選參數(shù)，用來指定新選項在列表框中的插入位置。若索引值為0，則插入到第一個選項位置；若索引值省略，當(dāng)Sorted屬性設(shè)置為True時，新選項將添加到恰當(dāng)?shù)呐判蛭恢茫?dāng)Sorted屬性設(shè)置為False時，新選項將添加到現(xiàn)有列表項的末尾。 例如: list1.addite

46、m 中國 list1.additem 美國,2704.7 列表框和組合框列表框控件列表框控件的方法RemoveItem：從列表框中刪除指定選項。語法格式： 例如:list1. RemoveItem,0其中：索引值用來指定要刪除的選項在列表框中的位置，每次只能刪除一個選項。 Clear：清除列表框中的全部選項。語法格式：對象名. RemoveItem 索引值對象名.Clear714.7 列表框和組合框例4.11 設(shè)計一個窗體，要求：可以通過在列表框List1中選擇，然后單擊中間的命令按鈕在列表框List2中執(zhí)行相應(yīng)的操作。界面如圖所示 ：其屬性設(shè)置見書67面 ：724.7 列表框和組合框代碼設(shè)計

47、： Private Sub Form_Load() List1.AddItem 蘋果 List1.AddItem 香蕉 List1.AddItem 芒果 List1.AddItem 西瓜 List1.AddItem 哈密瓜 List1.AddItem 葡萄 List1.AddItem 椰子 List1.AddItem 榴蓮 List1.AddItem 菠蘿 List1.AddItem 蟠桃End SubPrivate Sub Command1_Click()End SubPrivate Sub Command2_Click() End SubPrivate Sub Command3_Click

48、() End SubPrivate Sub Command4_Click() End SubList2.AddItem List1.TextList2.RemoveItem List2.ListIndexList2.ClearEnd734.7 列表框和組合框組合框組合框(ComboBox)是由文本框(TextBox)與列表框(listBox) “組合”而成的控件。用戶可以通過在文本框輸入新文本內(nèi)容或在列表框中單擊列表選項選擇已有內(nèi)容。組合框的形式有三種：下拉組合框(默認方式)；簡單組合框；下拉列表框。組合框控件的屬性Style：功能是設(shè)置組合框的顯示類型，在運行時為只讀的。對象名. Style

49、=0 | 1 | 2屬性值說 明0（默認值）下拉式組合框，包括一個下拉式列表和一個文本框，可以輸入文本或從下拉列表中選擇列表項1簡單組合框，包括一個文本框和一個無法下拉的列表，可以輸入文本或選擇列表項。2下拉式列表框，包括一個下拉式列表和一個文本框，但只能選擇列表項，不能在文本框中輸入744.7 列表框和組合框組合框組合框控件的事件Change：當(dāng)組合框內(nèi)容改變時發(fā)生。Click：當(dāng)用戶在一個組合框上單擊鼠標按鈕時發(fā)生。組合框控件的方法AddItem：用來向組合框中添加選項。RemoveItem：從組合框中刪除一個選項。Clear：清除組合框的所有內(nèi)容。754.7 列表框和組合框例4.12單擊

50、中間的命令按鈕在文本框中顯示選擇的內(nèi)容，如果需要的城市組合框中沒有列出，可以通過組合框來進行添加界面如圖所示 ：764.7 列表框和組合框代碼設(shè)計： Private Sub Form_Load() Combo1.AddItem 武漢 Combo1.AddItem 北京 Combo1.AddItem 西安 Combo1.AddItem 重慶 Combo1.AddItem 長沙 Combo1.AddItem 海南 Combo1.AddItem 天津 Combo1.AddItem 南京 Combo1.AddItem 杭州End SubPrivate Sub Combo1_Change() End S

51、ubPrivate Sub Combo1_Click() End SubCombo1.AddItem Combo1.TextText1.Text = Combo1.Text774.8 滾動條滾動條通常用來瀏覽內(nèi)容或確定位置，也可以作為數(shù)據(jù)輸入的工具。在實際應(yīng)用中，滾動條也常用作數(shù)量、速度的指示器，如在一些多媒體應(yīng)用中用來控制音量、畫面的滾動速度等。滾動條分為水平滾動條（HScroll）和垂直滾動（VScroll）兩種類型。滾動條的結(jié)構(gòu)兩端各有一個滾動箭頭，在滾動條上有一個能夠移動的小方塊，叫做滾動滑塊；水平滾動條的最小值在最左邊，最大值在最右邊，從左向右移動時，值依次遞增；垂直滾動條的最小值在

52、最上邊，最大值在最下邊，從上向下移動時，值依次遞增。784.8 滾動條滾動條控件的屬性Max：設(shè)置滾動條的最大值。最大值為滾動滑塊在右（或下）端時的值，其值介于-32768到32767之間，Max的默認值為32767。Min：設(shè)置滾動條的最小值。最小值為滾動滑塊在左（或上）端時的值，Min的默認值為0。Value：表示滾動滑塊所在位置對應(yīng)的值。如果用戶拖動滑動塊，Value屬性值隨之改變，它是滾動滑塊的位置與最大值、最小值換算而得的結(jié)果，取值范圍為MinMax。LargeChange：設(shè)置鼠標單擊滾動條中間的空白處時，每次增加和減少的數(shù)值。系統(tǒng)默認的數(shù)值為1，取值范圍為132767，用戶可以自

53、己修改SmallChange：設(shè)置鼠標單擊滾動條兩邊的箭頭時，每次增加和減少的數(shù)值。系統(tǒng)默認的數(shù)值為1，取值范圍為132767，用戶可以自己修改。794.8 滾動條滾動條控件的事件 滾動條控件的常用事件有Scroll事件和Change事件。Scroll（滑動）事件單擊滾動箭頭或單擊滾動條均不能觸發(fā)該事件，僅在移動滾動滑塊時被觸發(fā)。一般可用該事件來跟蹤滾動條的動態(tài)變化。Change（變化）事件單擊滾動箭頭、單擊滾動條或移動滾動滑塊時均可觸發(fā)該事件。一般可用該事件來獲得移動后滾動條的最后值。804.8 滾動條例4.12 利用水平滾動條和垂直滾動條的滾動，分別改變標簽中文字的字體和顏色。 對象屬性屬

54、性值LabelNameLabel1Caption滴水穿石HScrollBarNameHScroll1Max48Min8VScrollBarNameVScroll1Max3Min1LabelNameLabel2Caption字體顏色LabelNameLabel3Caption黑體LabelNameLabel4Caption宋體LabelNameLabel5Caption隸書界面設(shè)計 ：814.8 滾動條Private Sub HScroll1_Change() Label1.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)End SubPrivate Sub VScroll1_Change() Select Case VScroll1.Value Case 1 Label1.Font = 黑體 Case 2 Label1.Font = 宋體 Case 3 Label1