1、V B 程序設(shè)計 Visual Basic Programming,第四章 常用控件,1. 熟悉各常用控件的主要屬性、方法和事件,2. 掌握各常用控件的用法,3. 能使用各控件設(shè)計系統(tǒng)界面,本章學(xué)習(xí)目標,4.1單選按鈕和復(fù)選框,4.2 框架控件,4.3 圖形控件,4.4 列表框與組合框,4.5 滾動條控件,4.6 時鐘控件,4.1 單選按鈕和復(fù)選框,1. 控件功能,2. 控件屬性,3. 控件事件,單選按鈕用于從一組選項中選取其一。如果有一項被選中，則其他單選按鈕將自動變成未選中。 如果在一個窗體中要建立一個以上的選項組時，需添加框架(Frame)分組，置于同一框架中的單選按鈕組成一組。,單選按

2、鈕(OptionButton),復(fù)選框（Check）也稱作復(fù)選按鈕，被選中后方塊中會出現(xiàn)，用戶可通過復(fù)選框是否被選中控制操作。 在一組復(fù)選框選項中，用戶可以選擇一個或多個復(fù)選框選項，也可以一個選項也不選。,復(fù)選框(CheckBox),1. 控件功能,2. 控件屬性,3. 控件事件,4.1 單選按鈕和復(fù)選框,單選按鈕和復(fù)選框相同的屬性,1. 控件功能,2. 控件屬性,3. 控件事件,4.1 單選按鈕和復(fù)選框,單選按鈕和復(fù)選框的Value屬性,說明：當設(shè)置一個單選按鈕的Value屬性值為True時，則同一組內(nèi)的其他所有單選按鈕控件的Value屬性值自動被設(shè)置為False。,1. 控件功能,2. 控

3、件屬性,3. 控件事件,4.1 單選按鈕和復(fù)選框,單選按鈕和復(fù)選框的事件,單選按鈕和復(fù)選框的主要事件是Click，當用戶單擊單選按鈕或復(fù)選框時，它們會自動改變狀態(tài)。另外，單選按鈕支持DblClick事件，而復(fù)選框則不支持。,1. 控件功能,2. 控件屬性,3. 控件事件,4.1 單選按鈕和復(fù)選框,例 4-5,用單選按鈕控件來控制一個圖像框顯示的圖片。,代碼,1. 控件功能,2. 控件屬性,3. 控件事件,4.1 單選按鈕和復(fù)選框,例 4-51,用單選按鈕和復(fù)選框來控制文本框中文字的大小和字體樣式,代碼,1. 控件功能,2. 控件屬性,3. 控件事件,4.1 單選按鈕和復(fù)選框,例 4-6,利用圖

4、形復(fù)選框來控制文本的字體風(fēng)格。,代碼,1. 控件功能,2. 控件屬性,3. 控件事件,4.1 單選按鈕和復(fù)選框,例 4-6,請在窗體上畫二個復(fù)選框，名稱分別為Ch1、Ch2，標題分別為“程序設(shè)計”、“數(shù)據(jù)庫原理”，然后畫一個文本框，名稱為Text1，再畫一個命令按鈕，名稱為C1，標題為“確定”如圖所示，請編寫適當?shù)氖录^程，使得在運行時，選中復(fù)選框并單擊“確定”按鈕，就可以按照下表要求把結(jié)果顯示在文本框中。,代碼,1. 控件功能,2. 控件屬性,3. 控件事件,4.1 單選按鈕和復(fù)選框,不講,例 4-6,在名為Form1的窗體上畫一個名稱為Check1的復(fù)選框數(shù)組（Index屬性從0開始），含

5、三個復(fù)選框，其標題分別為“語文”、“數(shù)學(xué)”、“體育”，利用屬性窗口設(shè)置適當?shù)膶傩?，使“語文”未選，“數(shù)學(xué)”選中，“體育”為灰色，再把窗體的標題設(shè)置為“選課”，如圖所示。,代碼,1. 控件功能,2. 控件屬性,3. 控件事件,4.1 單選按鈕和復(fù)選框,1. 常用屬性,2. 基本事件,4.2 框架Frame控件,框架（Frame）是一個容器類控件。它和窗體一樣可以容納其它控件，用于控件分組。,框架的常用屬性,框架內(nèi)控件的創(chuàng)建,首先需要創(chuàng)建Frame控件，然后再向Frame添加控件，添加控件的方法有以下兩種。 方法一： 單擊工具箱上的工具，然后將出現(xiàn)的“+”指針，放在框架中適當位置，并拖拉出適當大小

6、，再往框架中添加所需的控件。但不能使用雙擊工具箱上按鈕的方式，給框架添加控件。 方法二： 將控件“剪切”到剪貼板，然后選中框架，使用“粘貼”命令將其復(fù)制到框架內(nèi)。,1. 常用屬性,2. 基本事件,4.2 框架Frame控件,通過框架、單選按鈕和復(fù)選框設(shè)置文本框的字體。,例 4-7,1. 常用屬性,2. 基本事件,4.2 框架Frame控件,1. 圖片框PictureBox控件,2.圖像框Image控件,4.3 圖形控件,3.形狀Shape控件,VB包含四個圖形控件：PictureBox控件、Image控件、Shape控件和Line控件。 PictureBox控件稱為圖片框，Image控件稱為圖

7、像框。圖片框和圖像框可以顯示的圖像文件格式有位圖文件(.bmp)、圖標文件(.ico)、圖元文件(.wmf ) 、JPEG格式文件(.jpg)和GIF格式文件(.gif)。,4.線條 Line控件,1. 圖片框PictureBox控件,2.圖像框Image控件,3.形狀Shape控件,圖片框(PictureBox)是用來在窗體上顯示圖像，或作為容器放置其它控件的控件。,1)圖片框常用屬性,4.線條 Line控件,4.3 圖形控件,圖片框常用的方法有Print方法、Cls方法 此外，圖片框還有許多繪圖的方法。 如Line、Circle、Point及PSet等。,2)圖片框常用的事件,3)圖片框常

8、用的方法,圖片框可響應(yīng)Click、DblClick事件。,1. 圖片框PictureBox控件,2.圖像框Image控件,3.形狀Shape控件,4.線條 Line控件,4.3 圖形控件,4.3 圖形控件,例 4-1,在一窗體上通過命令改變圖片框的AutoSize屬性值，觀察所裝載圖片的顯示效果。,代碼,1. 圖片框PictureBox控件,2.圖像框Image控件,3.形狀Shape控件,4.線條 Line控件,4.3 圖形控件,Picture屬性說明,程序代碼中裝載圖片的格式為： Object.Picture=LoadPicture(圖片文件名) 刪除圖片的格式為： Object.Pict

9、ure=LoadPicture( ) 其中：Object為PictureBox控件或Image控件。,1. 圖片框PictureBox控件,2.圖像框Image控件,3.形狀Shape控件,4.線條 Line控件,4.3 圖形控件,在名稱為Form1的窗體上畫二個圖片框，名稱分別為P1、P2，高度均為1900，寬度為1800，通過屬性窗口把圖片文件Pic1.bmp放入P1中，把圖片pic2.bmp放入P2中，再畫一個命令按鈕，名稱為C1，標題為“交換圖片”（如圖所示），編寫適當?shù)氖录^程，使得在運行時，如果單擊命令按鈕，則交換兩個圖片框中的圖片，程序中不得使用任何變量。,1. 圖片框Pictu

10、reBox控件,2.圖像框Image控件,3.形狀Shape控件,4.線條 Line控件,例,4.3 圖形控件,例 4-2,用Print方法在PictureBox控件中打印九九乘法表，用Cls方法將PictureBox控件中的內(nèi)容清除。,看圖,1. 圖片框PictureBox控件,2.圖像框Image控件,3.形狀Shape控件,4.線條 Line控件,4.3 圖形控件,圖像框（Image）是用來在窗體上顯示圖像的控件。它比圖片框占用更少的內(nèi)存，因為圖像框不是容器類控件，所以圖像框內(nèi)不能保存其他控件。,1)圖像框常用屬性,1. 圖片框PictureBox控件,2.圖像框Image控件,3.形狀

11、Shape控件,4.線條 Line控件,4.3 圖形控件,例 4-3,在窗體上添加兩個圖像框，都載入同一圖片文件，編寫程序代碼使得運行時通過代碼改變圖像框的大小尺寸，再改變其中一個圖像框的Stretch屬性值為True，另一圖像框的Stretch屬性值為False。,1. 圖片框PictureBox控件,2.圖像框Image控件,3.形狀Shape控件,4.線條 Line控件,4.3 圖形控件,Shape屬性取值及功能說明,1. 圖片框PictureBox控件,2.圖像框Image控件,3.形狀Shape控件,4.線條 Line控件,4.3 圖形控件,Shape屬性取值及功能說明,1. 圖片框

12、PictureBox控件,2.圖像框Image控件,3.形狀Shape控件,4.線條 Line控件,Fillcolor, bordercolor, borderstyle,4.3 圖形控件,例 4-4,編程在窗體上通過命令按鈕讓Shape控件根據(jù)其不同的Shape屬性值顯示不同的圖形，并利用FillStyle屬性填充各種線型。,代碼,1. 圖片框PictureBox控件,2.圖像框Image控件,3.形狀Shape控件,4.線條 Line控件,4.3 圖形控件,Line控件主要用來畫線條，在設(shè)計狀態(tài)下，Line最重要的屬性是BorderWidth和BorderStyle屬性，BorderWid

13、th屬性用于確定線條的寬度，BorderStyle屬性用于確定線條的類型。程序運行時Line最重要的屬性是x1、y1和x2、y2屬性，它們分別控制線條的兩個端點的坐標位置。 利用線與形狀控件，用戶可以迅速地顯示簡單的線與形狀或?qū)⒅蛴≥敵觯c其他大部分控件不同的是，這兩種控件不會響應(yīng)任何事件，它們只用來顯示或打印,1. 圖片框PictureBox控件,2.圖像框Image控件,3.形狀Shape控件,4.線條 Line控件,4.4 列表框和組合框,列表框通過顯示多個選項，供用戶選擇。 默認情況下，選項以垂直單列方式顯示，也可以設(shè)置成多列方式。 如果列表項數(shù)量超過列表框所能顯示的數(shù)目， VB會自

14、動為列表框加上滾動條。 列表框只能從其中選擇，而不能直接修改其中的內(nèi)容。,1. 控件功能,2. 基本事件,3. 基本方法,1) 列表框( ListBox),4.4 列表框和組合框,參賽組隊。設(shè)計一個窗體，該窗體含2個標簽和2個列表框，標簽框用來顯示提示信息。運行程序時，單擊列表框中的學(xué)員，該學(xué)員將從一個列表框移動到另一個列表框中。,列表引例,1. 控件功能,2. 基本事件,3. 基本方法,4.4 列表框和組合框,組合框( ComboBox),組合框結(jié)合了文本框和列表框的特性。 用戶可以從文本框中輸入文本，也可以從列表框中選擇列表項。 列表框中列出可供用戶選擇的選項，當用戶選定某項后，該項內(nèi)容自

15、動裝入文本框中。 除下拉式列表框(其Style屬性值為2)之外都允許在文本框中用鍵盤輸入,但輸入的內(nèi)容不會自動添加到列表框中。,1. 控件功能,2. 基本事件,3. 基本方法,4.4 列表框和組合框,購物程序。設(shè)計一個窗體，該窗體含3個標簽、1個下拉式組合框、2個列表框和1個命令按鈕。標簽框用來顯示提示信息。運行程序時，從下拉式組合框選擇商品類別，從列表框中選擇商品名稱，被選擇的商品增加到購物清單中，單擊清除購物，將清除購物清單的所有內(nèi)容。,組合框引例,代碼,1. 控件功能,2. 基本事件,3. 基本方法,4.4 列表框和組合框,列表框和組合框共有的屬性,1. 控件功能,2. 基本事件,3.

16、基本方法,圖1,4.4 列表框和組合框,列表框舉例,列表框各主要屬性的值： List1.ListIndex = 3 (下標從0開始的) List1. ListCount = 5 List1. Selected(3) = True， 其余為False。 List1. Sorted = False，沒有排序。 List1. Text 為 “cox” ， 與List1. List(List1. ListIndex)相等,List1,1. 控件功能,2. 基本事件,3. 基本方法,4.4 列表框和組合框,組合框舉例,Combo1,下拉式組合框 Style=0,簡單組合框 Style=1,下拉式列表框

17、Style=2,組合框各主要屬性的值： combo1.ListIndex = 0 combo1. ListCount = 8 combo1. Selected(0) = True 其余為False。 combo1. Sorted = False combo1. Text 為 “李寧”,1. 控件功能,2. 基本事件,3. 基本方法,4.4 列表框和組合框,1. 控件功能,2. 基本事件,3. 基本方法,編一程序,向列表框中添加如下內(nèi)容: 當在列表框中選擇某一學(xué)院時,在各文本框中顯示所選擇的學(xué)院名稱,所在的行號,列表框中總的項目數(shù).,例 4-8,代碼,分析,分析：要得到“選中學(xué)院”，用列表框的T

18、ext屬性或List(ListIndex) 要得到選中學(xué)院所在行號，用ListIndex屬性 要等到列表框項目的總數(shù)，用ListCount屬性,4.4 列表框和組合框,列表框特有的屬性,1. 控件功能,2. 基本事件,3. 基本方法,Selected(1),看圖,4.4 列表框和組合框,列表框MultiSelect 和Style屬性舉例,1. 控件功能,2. 基本事件,3. 基本方法,4.4 列表框和組合框,設(shè)計一飯店顧客點菜單，要求在“飯店菜譜”中顧客可以選定一項或多項菜名，然后通過“添加”按鈕一次性添加到“顧客點菜”中，也可以將顧客已選定的一項或多項菜名通過“刪除”按鈕一次性刪除到“飯店菜

19、譜”中。,例 4-8,1. 控件功能,2. 基本事件,3. 基本方法,4.4 列表框和組合框,組合框特有的重要屬性,1. 控件功能,2. 基本事件,3. 基本方法,4.4 列表框和組合框,Style設(shè)置為0、1、2時運行效果,1. 控件功能,2. 基本事件,3. 基本方法,4.4 列表框和組合框,列表框：Click、DblClick。 組合框：Click，只有簡單組合框才有DblClick事件。,1. 控件功能,2. 基本事件,3. 基本方法,例 列表框舉例,用三個列表框修飾文本框的文本,代碼,4.4 列表框和組合框,1)AddItem方法 格式：Object.AddItem 列表項 ,索引

20、功能：AddItem方法用于在程序代碼中添加列表項。 說明：默認索引時，在列表框的最后插入新列表項，有索引時，則在索引指定的位置插入。 例如：在城市名稱列表框(List1)的第一個位置前插入“鞍山市”： List1.AddItem “鞍山市, 0,1. 控件功能,2. 基本事件,3. 基本方法,4.4 列表框和組合框,格式：Object. RemoveItem 索引 功能：RemoveItem方法用于刪除指定的列表項。 例如：在城市名稱列表框(List1)中刪除“重慶市”列表項： List1.RemoveItem 2,2)RemoveItem方法,1. 控件功能,2. 基本事件,3. 基本方法

21、,4.4 列表框和組合框,格式：Object.Clear 功能：用于刪除所有列表項。 例如：從List1中刪除所有列表項： List1.Clear,3)Clear方法,1. 控件功能,2. 基本事件,3. 基本方法,4.4 列表框和組合框,編寫計算機配置選擇程序，要求通過組合框選擇不同的品牌、CPU型號、內(nèi)存大小、硬盤大小及顯示器類型。對于組合框中沒有的參數(shù)應(yīng)可以通過鍵盤輸入，并添加到組合框列表項中，當都選定后，點擊“確定”按鈕，就可以在圖片框中輸出配置的選擇。,例 4-9,1. 控件功能,2. 基本事件,3. 基本方法,不講,4.4 列表框和組合框,例 4-91,1. 控件功能,2. 基本事

22、件,3. 基本方法,設(shè)計一個偶數(shù)遷移程序。運行界面下圖所示。要求如下 (1)單擊“產(chǎn)生”按鈕，隨機產(chǎn)生10個兩位正整數(shù)，并添加到左邊的列表框(List1)中。 (2)單擊“”按鈕，或雙擊List1，將List1的所有偶數(shù)遷移到List2中。 (3)單擊“”按鈕，或雙擊List2，將List2的所有偶數(shù)遷移到List1中。 (4)單擊“清除”按鈕，清除List1和List2中的所有項目。,代碼1,分析：單擊“”按鈕時，要將偶數(shù)遷移到List2中，在List1中可能有多個偶數(shù)，所以要用到循環(huán)，但能不能用For循環(huán)呢？ 怎樣判斷那項是偶數(shù)呢？ 可以用List1.List(i) Mod 2 =0來判斷

23、 怎樣移到List2中呢？ 用List2.Additem List1.List(i)完成,分析,綜合性思考題,4.4 列表框和組合框,例 4-92,1. 控件功能,2. 基本事件,3. 基本方法,利用屬性窗口向列表框（List1）添加四個項目：Visual Basic，Turbo C，C+，Java；請編寫適當?shù)某绦蛲瓿梢韵鹿δ埽寒斶x擇列表框中的一項和單選按鈕OP1，然后單擊“確定”命令按鈕，則文本框中顯示“XXX筆試”；當選擇列表框中的一項和單選按鈕OP2，然后單擊“確定”命令按鈕，則文本框中顯示“XXX上機”。其中“XXX”是在列表框中選擇的項目。,不講,4.5 滾動條控件,1. 控件功能

24、,2. 控件屬性,3. 控件事件,主要是為那些不能自動支持滾動的控件提供滾動功能，協(xié)助觀察數(shù)據(jù)的變化或確定位置; 可用作數(shù)據(jù)輸入的工具; 滾動條是VB的標準控件，可直接從工具箱中選擇。,滾動條(ScrollBar)：,滾動條的重要屬性 ：,1. 控件功能,2. 控件屬性,3. 控件事件,4.5 滾動條控件,滾動條控件響應(yīng)的主要事件 ：,Scroll： 拖動滑塊時會觸發(fā)Scroll事件，單擊滾動箭頭或滾動條時不會觸發(fā)。 Change： 當Value屬性發(fā)生改變時(如移動滑塊、單擊滾動箭頭等滑塊位置改變)會觸發(fā)Change事件。,1. 控件功能,2. 控件屬性,3. 控件事件,4.5 滾動條控件,

25、在一個窗體上建立一個水平滾動條和垂直滾動條的使用示例，用二個文本框分別顯示二個滾動條的值，移動滑塊或單擊滾動箭頭，觀察值的變化。,例 4-10,代碼,1. 控件功能,2. 控件屬性,3. 控件事件,4.5 滾動條控件,用三個滾動條作為三種基本顏色的輸入工具，設(shè)計一個調(diào)色板的應(yīng)用程序，合成的顏色顯示在右邊的顏色區(qū)，分別以不同的合成顏色設(shè)置文本框中文字的前景色和背景色。,例 4-11,代碼,1. 控件功能,2. 控件屬性,3. 控件事件,4.5 滾動條控件,在窗體上畫一個列表框、一個文本框一個滾動條。要求： 利用屬性窗口設(shè)置適當?shù)膶傩?為List1列表框添加3個項目：宋體、黑體、楷體_BG2312；Text1文本框設(shè)置初值為“計算機”；Hscroll1水平滾動條設(shè)置值和最大值分別為10和50。 如果在列表框中選擇一種字體，然后移動滾動條中的滾動框，則可使文本框中的文