VB程序設(shè)計(jì)第四章

1、第四章常用控件的應(yīng)用第2頁(yè)本章目標(biāo)熟練掌握框架(Frame)控件單選鈕(OptionButton)控件復(fù)選框(CheckBox)控件滾動(dòng)條(ScrollBar)控件列表框(ListBox)控件組合框(ComboBox)控件時(shí)鐘（Timer）控件進(jìn)度條（ProgressBar）控件第3頁(yè)任務(wù)1文字的簡(jiǎn)單格式化在文本框中顯示初始化時(shí)的文字（一首古詩(shī)），用戶可以通過(guò)復(fù)選框設(shè)置文字的字形，通過(guò)單選鈕設(shè)置文字的字體和顏色，通過(guò)水平滾動(dòng)條控制文字的大小，同時(shí)用戶可以隨時(shí)編輯文本框中的內(nèi)容。單擊“清除”按鈕后清除文本框中的內(nèi)容。第4頁(yè)任務(wù)分析該任務(wù)我們要研究以下內(nèi)容框架(Frame)控件單選鈕(Option

2、Button)控件復(fù)選框(CheckBox)控件滾動(dòng)條(ScrollBar)控件第5頁(yè)任務(wù)分析在 Visual Basic中，控件分為三類(lèi)：標(biāo)準(zhǔn)控件、ActiveX控件和可插入對(duì)象。標(biāo)準(zhǔn)控件也稱內(nèi)部控件，啟動(dòng)Visual Basic后，自動(dòng)加入到工具箱中，提供了20種控件。ActiveX控件 是對(duì)標(biāo)準(zhǔn)控件的擴(kuò)充。先將其添加到工具箱中，然后才能使用，使用方法與標(biāo)準(zhǔn)控件相同。可插入對(duì)象是Windows應(yīng)用程序的對(duì)象，如“Microsoft Word 文檔”、“Microsoft Excel 工作表”等。將其添加到工具箱中，然后再使用，使用方法與標(biāo)準(zhǔn)控件相似。第6頁(yè)任務(wù)分析框架 (Frame) 控件

3、框架是一個(gè)容器類(lèi)控件，它和窗體一樣可以容納其它控件。在 Visual Basic 程序中，通常將放置在同一容器中的控件看成一個(gè)組合，在一個(gè)組中，所有對(duì)象可隨容器移動(dòng)、刪除。 第7頁(yè)任務(wù)分析框架 (Frame) 控件屬性及事件1 Caption屬性框架上的標(biāo)題文本，如果Caption為空字符串，則框架為封閉的矩形框。2Enabled屬性決定對(duì)象是否可用，有兩個(gè)取值True / False，True為缺省設(shè)置。3Visible屬性框架及其控件是否可見(jiàn)，有兩個(gè)取值True / False 。4框架可以響應(yīng)Click和DoubleClick事件，但一般不需要編寫(xiě)事件過(guò)程。第8頁(yè)任務(wù)分析單選鈕(Opti

4、onButton)控件 單選鈕以成組形式出現(xiàn)，能提供“選中”和“未選中”兩種可選項(xiàng)。通常情況下，將一組單選鈕控件放入框架Frame控件、或圖片PictureBox控件、或窗體Form控件這樣的容器中，來(lái)實(shí)現(xiàn)分組。使用單選鈕組時(shí)，選中其中一個(gè)，其余就會(huì)自動(dòng)關(guān)閉。第9頁(yè)任務(wù)分析單選鈕(OptionButton)控件屬性及事件1Caption屬性設(shè)置單選鈕旁邊顯示的標(biāo)題文本。2Value屬性表示單選按鈕的狀態(tài)，有兩個(gè)取值為T(mén)rue / False ，F(xiàn)alse為缺省設(shè)置。3Enabled屬性是否響應(yīng)用戶生成的事件，有兩個(gè)取值為T(mén)rue / False ，True為缺省設(shè)置。 。4Alignment屬

5、性設(shè)置標(biāo)題的對(duì)齊方式，有兩個(gè)取值，分別為：0 單選鈕在左邊，標(biāo)題在右邊，缺省設(shè)置；1 單選鈕在右邊，標(biāo)題在左邊。第10頁(yè)任務(wù)分析單選鈕(OptionButton)控件屬性及事件5Style屬性 設(shè)置單選鈕的外觀，有兩個(gè)取值，分別為：0-Standard：標(biāo)準(zhǔn)方式，缺省設(shè)置；1-Graphical：圖形方式，此方式下的單選鈕的外觀與命令按鈕相似。Style是只讀屬性，只能在設(shè)計(jì)時(shí)設(shè)置。第11頁(yè)任務(wù)分析單選鈕(OptionButton)控件屬性及事件Click事件程序運(yùn)行時(shí)，單擊單選鈕后使其Value屬性值變?yōu)門(mén)rue（即選中狀態(tài)）。在應(yīng)用程序中可以創(chuàng)建一個(gè)事件過(guò)程，檢測(cè)控件對(duì)象Value屬性值，

6、再根據(jù)檢測(cè)結(jié)果執(zhí)行相應(yīng)的處理。第12頁(yè)任務(wù)分析復(fù)選框(CheckBox)控件復(fù)選框能提供“選中”和“未選中”兩種可選項(xiàng)。復(fù)選框組列出可供用戶選擇的選項(xiàng)，用戶根據(jù)需要選定其中的一項(xiàng)或多項(xiàng)。 第13頁(yè)任務(wù)分析復(fù)選框(CheckBox)控件屬性及事件1Caption屬性復(fù)選框旁邊顯示的標(biāo)題文本。2Value屬性表示復(fù)選框的狀態(tài)，有三個(gè)取值，分別為：0Unchecked，表示未選中，缺省設(shè)置；1Checked，表示選中，；2Grayed，不可用，即灰度顯示。3Enabled屬性4Alignment屬性5Style屬性均同單選鈕。第14頁(yè)任務(wù)分析復(fù)選框(CheckBox)控件屬性及事件Click事件程序

7、運(yùn)行時(shí)，單擊復(fù)選框后使其Value屬性值變?yōu)?（即選中狀態(tài)）。在應(yīng)用程序中可以創(chuàng)建一個(gè)事件過(guò)程，檢測(cè)控件對(duì)象Value屬性值，再根據(jù)檢測(cè)結(jié)果執(zhí)行相應(yīng)的處理。第15頁(yè)任務(wù)分析滾動(dòng)條(ScrollBar) 控件通常附在窗體上協(xié)助觀察數(shù)據(jù)或確定位置，也可作為數(shù)據(jù)輸入工具，或者速度、數(shù)量的指示器，可用鼠標(biāo)調(diào)整滾動(dòng)條中滑塊的位置來(lái)改變其值。滾動(dòng)條控件與文本框、列表框和組合框等控件內(nèi)置的滾動(dòng)條有所不同。滾動(dòng)條分為水平滾動(dòng)條和垂直滾動(dòng)條兩種。第16頁(yè)任務(wù)分析滾動(dòng)條(ScrollBar) 控件屬性與事件1Min和Max屬性返回和設(shè)置滾動(dòng)條所能代表的最小值、最大值，取值范圍為-3276832767。Min默認(rèn)值

8、為0，Max默認(rèn)值為32767。2Value屬性返回和設(shè)置滾動(dòng)條的滑塊當(dāng)前位置的值，其返回值介于Min和Min屬性值之間，缺省為0。3SmallChange屬性返回和設(shè)置當(dāng)用戶單擊滾動(dòng)箭頭時(shí)，滾動(dòng)條控件Value屬性值(滑塊位置)的所增加或減少的值。默認(rèn)值為1。第17頁(yè)任務(wù)分析滾動(dòng)條(ScrollBar) 控件屬性與事件Scroll事件當(dāng)拖動(dòng)滑塊時(shí)觸發(fā)。在實(shí)際編程時(shí)，經(jīng)常用Scroll事件過(guò)程來(lái)跟蹤滾動(dòng)條在拖動(dòng)時(shí)數(shù)值的動(dòng)態(tài)變化。Change事件改變Value屬性值時(shí)觸發(fā)。由于在單擊滾動(dòng)條或滾動(dòng)箭頭時(shí)，將產(chǎn)生Change事件，因此，在實(shí)際編程時(shí)，常利用Change事件來(lái)獲得滾動(dòng)條變化后的最終值。

9、第18頁(yè)任務(wù)實(shí)施創(chuàng)建新工程從工具箱中選擇以下控件拖入窗體第19頁(yè)任務(wù)實(shí)施設(shè)置窗體及控件的屬性對(duì)象控件名屬性名屬性值LabelLabel1Caption字體大?。?-80）TextBoxText1MultilineTrueScrollBars3-BothLockedFalseFrameFrame1Caption字形Frame2Caption字體CheckBoxCheck1Caption粗體Check2Caption斜體OptionButtonOption1Caption宋體Option2Caption幼圓CommandButtonCommand1Caption清除Command2Caption退

10、出HscrollBarHscrollBar1Min8Max80第20頁(yè)任務(wù)實(shí)施在代碼窗口編寫(xiě)事件代碼并保存、運(yùn)行源代碼Private Sub HScroll1_Change() 得到滾動(dòng)條中最后的值 Text1.FontSize = HScroll1.ValueEnd SubPrivate Sub HScroll1_Scroll() 跟蹤滾動(dòng)條中的動(dòng)態(tài)變化 Text1.FontSize = HScroll1.ValueEnd SubText1.FontItalic = Check2.Value Text1.FontUnderline = Check3.ValueText1.FontStrike

11、thru = Check4.Value第21頁(yè)任務(wù)設(shè)計(jì)完成效果第22頁(yè)任務(wù)2項(xiàng)目選擇器 程序運(yùn)行時(shí)，單擊按鈕完成將左側(cè)或右側(cè)列表框中的選項(xiàng)全部或部分移動(dòng)到另一側(cè)的功能。第23頁(yè)任務(wù)分析該任務(wù)我們要研究以下內(nèi)容列表框(ListBox)控件第24頁(yè)任務(wù)分析列表框(ListBox)控件列表框用于在多個(gè)項(xiàng)目中做出選擇的操作。單擊某一項(xiàng)選擇自己需要的項(xiàng)目，但不能直接修改其中的內(nèi)容。如果項(xiàng)目總數(shù)超出了列表框設(shè)計(jì)時(shí)的長(zhǎng)度，則Visual Basic會(huì)自動(dòng)給列表框加上滾動(dòng)條。第25頁(yè)任務(wù)分析列表框(ListBox)控件屬性、方法和事件Columns屬性設(shè)置列表框中的項(xiàng)目是單列顯示（垂直滾動(dòng)）還是多列顯示（水平

12、滾動(dòng)），Columns屬性只能在屬性窗口設(shè)置。當(dāng)Columns屬性值為0（缺省設(shè)置）時(shí)呈單列顯示；大于0時(shí)呈多列顯示，顯示的列數(shù)由Columns屬性值決定。第26頁(yè)任務(wù)分析列表框(ListBox)控件屬性、方法和事件List 屬性List是一個(gè)字符型數(shù)組，用于存放列表框的表項(xiàng)，數(shù)組的下標(biāo)從0開(kāi)始。例如：將列表框List1中的第一項(xiàng)內(nèi)容顯示在文本框Text1中Text1.Text= List1.List(0) 例如：將列表框List1中的第四項(xiàng)的內(nèi)容設(shè)置為字符串“計(jì)算機(jī)世界”，程序代碼為：List1.List(3)= 計(jì)算機(jī)世界第27頁(yè)任務(wù)分析列表框(ListBox)控件屬性、方法和事件List

13、Index屬性返回已選定的項(xiàng)目的順序號(hào)(索引)，若未選定任何項(xiàng)，則ListIndex的值為-1，ListIndex屬性只能在程序中設(shè)置和引用。ListCount屬性返回列表框中項(xiàng)目的總數(shù)，項(xiàng)目下標(biāo)為0ListCount-1，ListCount屬性只能在程序中設(shè)置和引用。第28頁(yè)任務(wù)分析列表框(ListBox)控件屬性、方法和事件Sorted屬性列表框中各表項(xiàng)在運(yùn)行時(shí)是否按字母順序排列，Sorted屬性只能在屬性窗口設(shè)置，有兩個(gè)取值，分別為：True：表示按字母順序排序；False：表示不排序，按加入的先后順序排列。Text屬性返回被選定項(xiàng)目的文本內(nèi)容。Text屬性只能在程序中設(shè)置和引用。例如：

14、List1.Text的值與List1.List(List1.ListIndex)的值相同第29頁(yè)任務(wù)分析列表框(ListBox)控件屬性、方法和事件Selected屬性測(cè)試列表框中某一表項(xiàng)是否被選中，Selected屬性只能在程序中設(shè)置和引用，有兩個(gè)取值，分別為：True：列表框中某一項(xiàng)被選中。False：列表框中某一項(xiàng)沒(méi)有被選中。第30頁(yè)任務(wù)分析列表框(ListBox)控件屬性、方法和事件MultiSelect屬性設(shè)置列表框是否允許同時(shí)選擇多個(gè)表項(xiàng)，有三個(gè)取值，分別為：0 None：只能選擇一項(xiàng)，不能多選，默認(rèn)值；1 Simple：簡(jiǎn)單多項(xiàng)選擇，表示可用鼠標(biāo)單擊或按空格鍵在列表框中選中或取消

15、多項(xiàng)；2 Extended：擴(kuò)展多項(xiàng)選擇，按住Ctrl鍵，同時(shí)用鼠標(biāo)逐個(gè)單擊所需表項(xiàng)，可以實(shí)現(xiàn)多選；按住Shift鍵，同時(shí)用鼠標(biāo)單擊所需要的項(xiàng)目區(qū)域中的首項(xiàng)和尾項(xiàng)，可以選定多個(gè)連續(xù)項(xiàng)。第31頁(yè)任務(wù)分析列表框(ListBox)控件屬性、方法和事件Style屬性確定是否將復(fù)選框顯示在ListBox中，有兩個(gè)取值，分別為：0 Standard：不顯示復(fù)選框1 Checkbox：顯示復(fù)選框SelCount屬性如果MultiSelect屬性設(shè)置為1（Simple）或2（Extended），則該屬性返回列表框中所選項(xiàng)目的數(shù)目。第32頁(yè)任務(wù)分析列表框(ListBox)控件屬性、方法和事件AddItem方法把

16、一個(gè)項(xiàng)目加入列表框。格式 對(duì)象名.AddItem item , index其中：item：為字符串表達(dá)式，表示要加入的項(xiàng)目；Index:決定新增項(xiàng)目的位置，如果缺省，則添加在列表框的末尾。例如：List1.AddItem “高等數(shù)學(xué)”,2 插入第3項(xiàng)List1.AddItem “VB程序設(shè)計(jì)” 插入末項(xiàng)第33頁(yè)任務(wù)分析列表框(ListBox)控件屬性、方法和事件RemoveItem方法刪除列表框中指定項(xiàng)目，該方法每次只能刪除一個(gè)項(xiàng)目。格式 對(duì)象名. RemoveItem index 其中Index決定要?jiǎng)h除的項(xiàng)目的索引，是必選項(xiàng)。List1.RemoveItem 2 List1.RemoveI

17、tem list1.listindex Clear方法清除列表框中所有項(xiàng)目。第34頁(yè)任務(wù)分析列表框(ListBox)控件屬性、方法和事件Click事件單擊鼠標(biāo)時(shí)觸發(fā)。DblClick事件雙擊鼠標(biāo)時(shí)觸發(fā)。第35頁(yè)任務(wù)實(shí)施創(chuàng)建新工程從工具箱中選擇控件拖入窗體設(shè)置窗體及控件的屬性對(duì)象控件名屬性名屬性值ListBoxList1StyleCheckboxList2MultiSelectExtendedCommandButtonCommand1CaptionCommand2CaptionCommand3CaptionCommand4Caption第36頁(yè)任務(wù)實(shí)施在代碼窗口編寫(xiě)事件代碼并保存、運(yùn)行源代碼Li

18、st1.AddItem 鄧小平理論 :List1.AddItem 大學(xué)英語(yǔ)List1.AddItem 高等數(shù)學(xué) :List1.AddItem 信息技術(shù)導(dǎo)論List1.AddItem VB程序設(shè)計(jì) :List1.AddItem 網(wǎng)站開(kāi)發(fā)技術(shù)Do While i List1.ListCount If List1.Selected(i) = True Then 選中預(yù)選課程 List2.AddItem List1.List(i) 追加到List2中 List1.RemoveItem i 從List1中移除 Else i = i + 1 下一項(xiàng) End IfLoop第37頁(yè)任務(wù)設(shè)計(jì)完成效果第38頁(yè)任務(wù)

19、3跳動(dòng)的小球操作者可以設(shè)置小球跳動(dòng)的時(shí)間長(zhǎng)度，單擊“開(kāi)始”按鈕后，小球在規(guī)定區(qū)域上下跳動(dòng)，同時(shí)在窗口上顯示倒計(jì)時(shí)信息，時(shí)間用完后自動(dòng)彈出一個(gè)“時(shí)間到”提示框 第39頁(yè)任務(wù)分析該任務(wù)我們要研究以下內(nèi)容組合框(ComboBox)控件時(shí)鐘（Timer）控件第40頁(yè)任務(wù)分析組合框(ComboBox)控件組合框?qū)嶋H上是列表框和文本框的組合。它可以像列表框一樣，讓用戶通過(guò)單擊鼠標(biāo)選擇所需的項(xiàng)目，也可以像文本框一樣，用鍵入的方式選擇項(xiàng)目（下拉式組合框除外），但輸入的內(nèi)容不能自動(dòng)添加到列表框中。第41頁(yè)任務(wù)分析組合框(ComboBox)控件屬性、方法和事件List、ListCount、ListIndex、Te

20、xt、Sorted、Selected、MultiSelect屬性與列表框相同。Style屬性用來(lái)指示控件的顯示類(lèi)型和行為。該屬性取值為0，1或2，分別決定了組合框的三種不同類(lèi)型：下拉組合框(Dropdown Combo)、簡(jiǎn)單組合框(Simple Combo)、下拉列表框(Dropdown List)。第42頁(yè)任務(wù)分析組合框(ComboBox)控件屬性、方法和事件AddItem、RemoveItem和Clear方法與列表框相同。Click、DblClick事件與列表框同。第43頁(yè)任務(wù)分析時(shí)鐘（Timer）控件又稱計(jì)時(shí)器或定時(shí)器控件，用于按指定的時(shí)間間隔、有規(guī)律地執(zhí)行程序代碼。Timer控件在設(shè)

21、計(jì)時(shí)顯示為一個(gè)小時(shí)鐘圖標(biāo)，在運(yùn)行時(shí)并不顯示在屏幕上。時(shí)鐘控件每隔一定的時(shí)間間隔就產(chǎn)生一次Timer事件，用戶可以根據(jù)這個(gè)特性設(shè)置時(shí)間間隔控制某些操作或用于計(jì)時(shí)。第44頁(yè)任務(wù)分析時(shí)鐘（Timer）控件屬性與事件Interval屬性用于設(shè)置兩個(gè)Timer事件之間的時(shí)間間隔。設(shè)置時(shí)以毫秒為單位，設(shè)置的范圍是065535毫秒。該屬性的缺省值為0，即時(shí)鐘控件不起作用。如果將Interval屬性值設(shè)置為1000毫秒，則每隔一秒就觸發(fā)一次Timer事件。Enabled屬性決定Timer控件是否開(kāi)始使用，有兩個(gè)取值： 當(dāng)Enabled屬性被設(shè)置為T(mén)rue，而且Interval屬性值大于0，則計(jì)時(shí)器開(kāi)始工作（以

22、Interval屬性值為間隔，觸發(fā)Timer事件）。當(dāng)Enabled屬性被設(shè)置為False時(shí)，Timer控件無(wú)效，即計(jì)時(shí)器停止工作。第45頁(yè)任務(wù)分析時(shí)鐘（Timer）控件屬性與事件Timer事件時(shí)鐘控件只支持Timer事件。對(duì)于一個(gè)含有時(shí)鐘控件的窗體，當(dāng)計(jì)時(shí)器的Enabled屬性值為T(mén)rue且Interval屬性值大于0時(shí)，每經(jīng)過(guò)一段由屬性Interval指定的時(shí)間間隔，就產(chǎn)生一個(gè)Timer事件。所以，需要定時(shí)執(zhí)行的操作放在該事件過(guò)程中來(lái)完成。第46頁(yè)任務(wù)實(shí)施創(chuàng)建新工程從工具箱中選擇控件拖入窗體第47頁(yè)任務(wù)實(shí)施設(shè)置窗體及控件的屬性對(duì)象控件名屬性名屬性值ComboBoxCombo1Text空Fr

23、ame Frame1Caption跳動(dòng)區(qū)域ShapeShape1 、Shape2VisibleTrueBackColor&H80000002&BackStyleOpaqueShapeCircleCommandButtonCommand1Caption開(kāi)始Command2Caption退出第48頁(yè)任務(wù)實(shí)施在代碼窗口編寫(xiě)事件代碼并保存、運(yùn)行源代碼Private Sub Command1_Click() t = Val(Combo1.Text) Timer1.Enabled = True Timer1.Interval = 200End Subt = t - 1Label1.Caption = 倒計(jì)

24、時(shí): & t & 秒If t Mod 2 = 0 Then Shape1.Visible = True Shape2.Visible = FalseElse Shape1.Visible = False Shape2.Visible = TrueEnd If第49頁(yè)任務(wù)設(shè)計(jì)完成效果第50頁(yè)任務(wù)4進(jìn)度條的應(yīng)用 單擊“初始化數(shù)組”按鈕，開(kāi)始對(duì)大數(shù)組進(jìn)行初始化，并通過(guò)進(jìn)度條來(lái)指示執(zhí)行進(jìn)度，同時(shí)在進(jìn)度條右側(cè)顯示已完成工作的百分比。 第51頁(yè)任務(wù)分析該任務(wù)我們要研究以下內(nèi)容進(jìn)度條（ProgressBar）控件第52頁(yè)任務(wù)分析進(jìn)度條（ProgressBar）控件ProgressBar控件通過(guò)從左至右用小方

25、塊填充一個(gè)矩形來(lái)顯示較長(zhǎng)操作的進(jìn)度。事先將ProgressBar控件添加到控件工具箱中。第53頁(yè)任務(wù)分析進(jìn)度條（ProgressBar）控件屬性與事件Align屬性決定控件在窗體上的位置，有五個(gè)取值，分別為：0 vbAlignNone：位于設(shè)計(jì)時(shí)所畫(huà)的位置；1 vbAlignTop：位于窗體的頂部；2 vbAlignBottom：位于窗體的底部；3 vbAlignLeft：位于窗體的左邊；4 vbAlignRight：位于窗體的右邊。 Min 、Max屬性設(shè)置進(jìn)度條的下界和上界。第54頁(yè)任務(wù)分析進(jìn)度條（ProgressBar）控件屬性與事件Value屬性返回進(jìn)度條的當(dāng)前值，即決定控件被填充了多少。運(yùn)行時(shí)Value屬性將持續(xù)增長(zhǎng)，直到達(dá)到了由Max屬性定義的最大值。該控件顯示的填充塊的數(shù)目總是Value屬性與Min 和Max屬性之間的比值。Height、Width屬性確定填充控件的小方塊的高度