VB6教程第6章常用控件與多窗體.ppt

第6章常用控件與多窗體,第3章介紹了窗體的使用及最基本控件的屬性、事件和方法。本章介紹另外的幾個(gè)常用控件以及多窗體。主要內(nèi)容有：圖片框與圖像框、定時(shí)器、單選鈕與復(fù)選框、框架、列表框與組合框滾動(dòng)條、焦點(diǎn)與Tab順序、多窗體。,退出,6.1圖片框與圖像框6.2定時(shí)器6.3單選鈕與復(fù)選框6.4容器與框架6.5列表框與組合框6.6滾動(dòng)條6.7焦點(diǎn)與Tab順序6.8多窗體,6.1圖片框與圖像框,圖片框控件（PictureBox）和圖像框控件（ImageBox）主要用于在窗體的指定位置顯示圖形信息。VB6.0支持.bmp、.ico、.wmf、.emf、.jpg、.gif等格式的圖形文件。6.1.1圖片框、圖像框的常用屬性1Picture屬性圖片框和圖像框中顯示的圖片由Picture屬性決定。圖形文件可以在設(shè)計(jì)階段裝入，也可以在運(yùn)行期間裝入。,（1）在設(shè)計(jì)階段裝入在設(shè)計(jì)階段，可以用屬性窗口中的Picture屬性裝入圖形文件。（2）在運(yùn)行期間裝入在運(yùn)行期間，可以用LoadPicture函數(shù)把圖形文件裝入圖片框或圖像框中。語句格式如下：對(duì)象名.Picture=LoadPicture（filename）,2AutoSize屬性該屬性用于圖片框。決定控件是否自動(dòng)改變大小以顯示圖像全部?jī)?nèi)容。缺省值為False，此時(shí)保持控件大小不變，超出控件區(qū)域的內(nèi)容被裁減掉；若值為True時(shí)，自動(dòng)改變控件大小以顯示圖片全部?jī)?nèi)容（注意：不是圖形改變大?。?stretch屬性用于圖像框。當(dāng)該屬性的取值為False時(shí)，圖像控件將自動(dòng)改變大小以與圖形的大小相適應(yīng)；當(dāng)其值為True時(shí)，顯示在控件中的圖像的大小將完全適合于控件的大小，這時(shí)，圖片可能會(huì)變形。,6.1.2圖片框、圖像框的區(qū)別（1）圖片框控件可以作為其它控件的容器。（2）圖片框可以通過Print方法接收文本，而圖像框則不能接收用Print方法輸入的信息。（3）圖像框比圖片框占用的內(nèi)存少，顯示速度快。,6.2定時(shí)器,VB提供了一種叫定時(shí)器（Timer）的控件。定時(shí)器每隔一定的時(shí)間間隔就產(chǎn)生一次Timer事件（可理解為報(bào)時(shí)），用戶可以根據(jù)這個(gè)特性設(shè)置時(shí)間間隔控制某些操作或用于計(jì)時(shí)。1屬性定時(shí)器控件的屬性不是很多，最常用的是Interval屬性，該屬性用來決定兩次調(diào)用定時(shí)器的間隔，以ms為單位，取值范圍為065535，所以最大時(shí)間間隔不能超過66s，該屬性的缺省值為0，即定時(shí)器控件不起作用。如果希望每秒產(chǎn)生n個(gè)事件，則應(yīng)設(shè)置屬性Interval的值為1000/n。,2事件定時(shí)器只支持Timer事件。對(duì)于一個(gè)含有定時(shí)器控件的窗體，每經(jīng)過一段由屬性Interval指定的時(shí)間間隔，就產(chǎn)生一個(gè)Timer事件?！纠?.2】建立數(shù)字計(jì)時(shí)器，要求每秒鐘時(shí)間變化一次。設(shè)計(jì)界面：在窗體上添加一個(gè)定時(shí)器控件、一個(gè)標(biāo)簽，并按表6-1設(shè)置屬性。,程序代碼如下：PrivateSubTimer1_Timer（）Label1.FontSize=48Label1.Caption=Time將Time函數(shù)返回的系統(tǒng)時(shí)間顯示在標(biāo)簽中EndSub執(zhí)行結(jié)果如下圖6-3所示，每隔1s鐘顯示一次時(shí)間。,6.3單選鈕與復(fù)選框,有時(shí)希望在應(yīng)用程序的界面上提供一些項(xiàng)目，讓用戶從幾個(gè)選項(xiàng)中選擇其中之一，這就要用“單選鈕”控件。如果有多個(gè)選擇框，每個(gè)選擇框都是獨(dú)立的、互不影響的，用戶可以任意選擇它們的狀態(tài)組合，則可以用“復(fù)選框”控件。6.3.1單選鈕單選鈕（OptionButton）通常成組出現(xiàn)，主要用于處理“多選一”的問題。用戶在一組單選鈕中必須選擇一項(xiàng)，并且最多只能選擇一項(xiàng)。當(dāng)某一項(xiàng)被選定后，其左邊的圓圈中出現(xiàn)一個(gè)黑點(diǎn)。例如，圖6-4所示就是一組單選鈕，用戶只能在這3個(gè)單選鈕選項(xiàng)中選擇一個(gè)。,1屬性（1）Value屬性該屬性表示單選按鈕選中或不被選中的狀態(tài)。True為選中；False為不被選中。（2）Caption屬性該屬性顯示出現(xiàn)在單選鈕旁邊的文本。（3）Style屬性該屬性用來設(shè)置控件的外觀。值為0時(shí)，控件顯示如圖6-4所示標(biāo)準(zhǔn)樣式；值為1時(shí)，控件外觀類似命令按鈕。一般說來，單選鈕總是作為一個(gè)組（單選鈕組）發(fā)揮作用的。圖6-4關(guān)于顏色的單選鈕就是一個(gè)按鈕組。,2事件單選鈕常用事件是Click事件?！纠?.4】程序運(yùn)行后，單擊某個(gè)單選鈕，在標(biāo)簽中顯示相應(yīng)的字體。運(yùn)行結(jié)果如圖6-5所示。分析：需要在窗體上建立一個(gè)標(biāo)簽和3個(gè)單選鈕，其主要屬性設(shè)置如表6-2所示。,事件過程代碼如下：PrivateSubkai_Click（）Label1.FontName=楷體_gb2312EndSubPrivateSubli_Click（）Label1.FontName=隸書EndSubPrivateSubsong_Click（）Label1.FontName=宋體EndSub,6.3.2復(fù)選框復(fù)選框（CheckBox）也稱檢查框，單擊復(fù)選框一次時(shí)被選中，左邊出現(xiàn)“”號(hào)，再次單擊則取消選中，清除復(fù)選框中的“”?？赏瑫r(shí)使多個(gè)復(fù)選框處于選中狀態(tài)，這一點(diǎn)和單選按鈕不同。如圖6-6所示，有四個(gè)復(fù)選框。,1屬性（1）Value屬性決定復(fù)選框的狀態(tài)：0未選中，1已選中，2變灰暗。（2）Picture屬性用來指定當(dāng)復(fù)選框被設(shè)計(jì)成圖形按鈕時(shí)的圖像。2事件復(fù)選框常用事件為Click事件。,【例6.5】用復(fù)選框控制文本是否加下劃線和斜體顯示。在程序執(zhí)行期間，如果選定“加下劃線”復(fù)選框，則文本框中的內(nèi)容就加上了下劃線，如果清除“加下劃線”復(fù)選框，則文本框中的內(nèi)容就沒有下劃線；如果選定“斜體”復(fù)選框，則文本框中的文字字形就變成斜體，如果清除“斜體”復(fù)選框，則文本框中的文字字形就不是斜體。運(yùn)行界面如圖6-7所示。,設(shè)計(jì)界面：在窗體上建立一個(gè)文本框，兩個(gè)復(fù)選框。3個(gè)控件的屬性如表6-3所示。,編寫如下事件過程：PrivateSubCheck1_Click（）IfCheck1.Value=1ThenText1.FontUnderline=TrueElseText1.FontUnderline=FalseEndIfEndSub,PrivateSubCheck2_Click（）IfCheck2.Value=1ThenText1.FontItalic=TrueElseText1.FontItalic=FalseEndIfEndSubPrivateSubForm_Load（）Text1.FontSize=20EndSub,6.4容器與框架,所謂容器，就是可以在其上放置其它控件對(duì)象的一種對(duì)象。窗體、圖片框和框架都是容器。容器內(nèi)所有控件成為一個(gè)組合，隨容器一起移動(dòng)、顯示、消失和屏蔽。在前一節(jié)例6.3中，是在一個(gè)窗體上建立一組單選按鈕，若要在同一窗體上建立幾組相互獨(dú)立的單選按鈕，通常用框架控件（Frame）將每一組單選鈕框起來，這樣在一個(gè)框架內(nèi)的單選鈕成為一組，對(duì)一組單選鈕的操作不會(huì)影響其它組的單選鈕。,在窗體上創(chuàng)建框架及其內(nèi)部控件時(shí)，應(yīng)先添加框架控件，然后單擊工具箱上的控件，用“+”指針在框架中以拖拽的方式添加控件，框架內(nèi)的控件不能被拖出框架外。不能用雙擊的方式向框架中添加控件，也不能先畫出控件再添加框架。如果要用框架將窗體上現(xiàn)有的控件進(jìn)行分組，可先選定控件，將它們剪切后粘貼到框架中。,1屬性（1）Caption屬性框架的標(biāo)題，位于框架的左上角，用于注明框架的用途。（2）Enabled屬性決定框架中的對(duì)象是否可用，通常把Enabled屬性設(shè)置為True，以使框架內(nèi)的控件成為可以操作的。2事件Click和DblClick。在大多數(shù)情況下，我們用框架控件對(duì)控件進(jìn)行分組，沒有必要響應(yīng)它的事件。,【例6.6】使用兩個(gè)單選鈕組來改變文本框中文字的顏色和大小。運(yùn)行結(jié)果如圖6-8所示。設(shè)計(jì)界面：在窗體上添加一個(gè)標(biāo)簽控件，一個(gè)命令按鈕；添加一個(gè)框架控件，在框架控件上畫上3個(gè)單選鈕控件（顏色按鈕組）；再添加一個(gè)框架控件，在框架控件上畫上兩個(gè)單選鈕控件（字體大小按鈕組）。兩個(gè)框架的Caption屬性分別設(shè)置為“顏色”和“字體大小”，其它控件屬性的設(shè)置可以按照?qǐng)D6-8所示自己進(jìn)行。,編寫代碼如下：PrivateSubCommand1_Click（）endEndSubPrivateSubOption1_Click（）藍(lán)色單選鈕Label1.ForeColor=&HFF0000EndSubPrivateSubOption2_Click（）紅色單選鈕Label1.ForeColor=&HFF&EndSub,PrivateSubOption3_Click（）綠色單選鈕Label1.ForeColor=&HFF00&EndSubPrivateSubOption4_Click（）文字大小10單選鈕Label1.FontSize=10EndSubPrivateSubOption5_Click（）文字大小20單選鈕Label1.FontSize=20EndSub,6.5列表框與組合框,列表框（ListBox）控件將一系列的選項(xiàng)組合成一個(gè)列表，用戶可以選擇其中的一個(gè)或幾個(gè)選項(xiàng)，但不能向列表清單中輸入項(xiàng)目；組合框（ComboBox）控件是綜合文本框和列表框特性而形成的一種控件，用戶可通過在組合框中輸入文本來選定項(xiàng)目，也可從列表中選定項(xiàng)目。,6.5.1列表框列表框控件（ListBox）的主要用途在于提供列表式的多個(gè)數(shù)據(jù)項(xiàng)供用戶選擇。在列表框中放入若干個(gè)項(xiàng)的名字，用戶可以通過單擊某一項(xiàng)或多項(xiàng)來選擇自己所需要的項(xiàng)目。如果放入的項(xiàng)較多，超過了列表框設(shè)計(jì)時(shí)可顯示的項(xiàng)目數(shù)，則系統(tǒng)會(huì)自動(dòng)在列表框邊上加一個(gè)垂直滾動(dòng)條。,1屬性（1）List屬性該屬性是一個(gè)字符串?dāng)?shù)組，用來保存列表框中的各個(gè)數(shù)據(jù)項(xiàng)內(nèi)容。List數(shù)組的下標(biāo)從0開始，即List（0）保存表中的第一個(gè)數(shù)據(jù)項(xiàng)的內(nèi)容。List（1）保存第二個(gè)數(shù)據(jù)項(xiàng)的內(nèi)容，依次類推，List（ListCount-1）保存表中的最后一個(gè)數(shù)據(jù)項(xiàng)的內(nèi)容。在窗體上添加一個(gè)列表框，其外觀如圖6-9所示，圖上所顯示的“List1”是控件的名稱，而不是列表項(xiàng)中的數(shù)據(jù)項(xiàng)。,（2）ListCount屬性該屬性記錄了列表框中的數(shù)據(jù)項(xiàng)數(shù)，該屬性只能在程序中引用它。（3）Text屬性用于存放被選中列表項(xiàng)的文本內(nèi)容。該屬性是只讀的，不能在屬性窗口中設(shè)置，也不能在程序中設(shè)置，只用于獲取當(dāng)前選定的列表項(xiàng)的內(nèi)容?？稍诔绦蛑幸肨ext屬性值。,（4）ListIndex屬性該屬性是List數(shù)組中，被選中的列表項(xiàng)的下標(biāo)值（即索引號(hào)）。如果用戶選擇了多個(gè)列表項(xiàng)，則ListIndex是最近所選列表項(xiàng)的索引號(hào)；如果用戶沒有從列表框中選擇任何一項(xiàng)，則ListIndex為1。程序運(yùn)行時(shí)，可以使用ListIndex屬性判斷列表框中哪一項(xiàng)被選中。例如，在列表框List1中選中第2項(xiàng)，即List1.List數(shù)組的第2項(xiàng)，則ListIndex1（ListIndex從0開始）。ListIndex屬性不能在設(shè)計(jì)時(shí)設(shè)置，只有程序運(yùn)行時(shí)才起作用。,（5）Selected屬性該屬性是一個(gè)邏輯數(shù)組，其元素對(duì)應(yīng)列表框中相應(yīng)的項(xiàng)。表示相應(yīng)的項(xiàng)在程序運(yùn)行期間是否被選中。例如，Selected（0）的值為True，表示第一項(xiàng)被選中，如為False，表示未被選中。（6）MultiSelect（多選擇列表項(xiàng)）屬性該屬性值表明是否能夠在列表框控件中進(jìn)行復(fù)選以及如何進(jìn)行復(fù)選。它決定用戶是否可以在控件中做多重選擇，它必須在設(shè)計(jì)時(shí)設(shè)置，運(yùn)行時(shí)只能讀取該屬性。Multiselect屬性值的說明如表6-4所示。,（7）SelCount屬性其值表示在列表框控件中所選列表項(xiàng)的數(shù)目，只有在MultiSelect屬性值設(shè)置為1（Simple）或2（Extended）時(shí)起作用，通常與Selected數(shù)組一起使用，以處理控件中的所選項(xiàng)目。,2方法ListBox對(duì)應(yīng)的控件方法有：AddItem，Clear和RemoveItem（1）AddItem方法該方法向一個(gè)列表框中加入列表項(xiàng)，其語法是：Listname.AddItemitem，index（2）RemoveItem方法該方法用于刪除列表框中的列表項(xiàng)，其語法是：Listname.RemoveItemindex,（3）Clear方法該方法刪除列表框控件中的所有列表項(xiàng)。其語法是：Listname.Clear【例6.7】利用列表框和命令按鈕編程，要求程序能夠?qū)崿F(xiàn)添加項(xiàng)目、刪除項(xiàng)目、刪除全部項(xiàng)目的功能。設(shè)計(jì)界面：在窗體上添加一個(gè)列表框（ListBox）控件，3個(gè)命令按鈕。屬性設(shè)置如表6-5所示。,在程序中添加如下代碼：PrivateSubCommand1_Click（）Dimentryentry=InputBox（輸入添加內(nèi)容，添加）List1.AddItementry添加項(xiàng)目EndSub,PrivateSubCommand2_Click（）DimiAsIntegerFori=List1.ListCount-1To0Step-1IfList1.Selected（i）ThenList1.RemoveItemi刪除選中項(xiàng)目NextiEndSubPrivateSubCommand3_Click（）List1.Clear全部刪除EndSub運(yùn)行結(jié)果如圖6-12所示。,6.5.2組合框組合框（ComoBox）是一種兼有列表框和文本框的功能的控件。它可以像列表框一樣，讓用戶通過鼠標(biāo)選擇所需要的項(xiàng)目；也可以像文本框一樣，用鍵入的方式選擇項(xiàng)目。1屬性（l）Style屬性這是組合框的一個(gè)重要屬性，其取值為0，1，2，它決定了組合框3種不同的類型，分別為下拉式組合框、簡(jiǎn)單組合框和下拉式列表框。如圖6-13所示。,（2）Text屬性該屬性值是用戶所選擇的項(xiàng)目的文本或直接從編輯區(qū)輸入的文本。2事件組合框所響應(yīng)的事件依賴于其Style屬性。【例6.8】設(shè)計(jì)一個(gè)簡(jiǎn)單的報(bào)名窗口，要求界面如圖6-14所示，從文本框中輸入學(xué)生姓名，在“班級(jí)”旁邊的組合框中選擇其所屬班級(jí)（提供4種默認(rèn)班級(jí)：電氣991、微機(jī)991、網(wǎng)絡(luò)991、電子991，用戶可以輸入其它的班級(jí)名）。然后將學(xué)生姓名和班級(jí)添加到列表框中。用戶可以刪除列表框中所選擇的項(xiàng)目，也可以把整個(gè)列表框清空。,設(shè)計(jì)界面如下：在窗體上加入3個(gè)標(biāo)簽，一個(gè)文本框，一個(gè)組合框，一個(gè)列表框，以及3個(gè)命令按鈕。各控件屬性設(shè)置如表6-6所示。,程序如下：PrivateSubCommand1_Click（）If（Text1.Text）And（Combo1.Text）ThenList1.AddItemText1.Text+Combo1.TextElseMsgBox（請(qǐng)輸入添加內(nèi)容?。〦ndIfEndSub,PrivateSubCommand2_Click（）DimiAsIntegerIfList1.ListIndex=0ThenFori=List1.ListCount-1To0Step-1IfList1.Selected（i）ThenList1.RemoveItemi刪除被選中的項(xiàng)目NextiEndIfEndSub,PrivateSubCommand3_Click（）List1.Clear清空列表EndSubPrivateSubForm_Load（）Combo1.AddItem電氣991Combo1.AddItem微機(jī)991Combo1.AddItem網(wǎng)絡(luò)991Combo1.AddItem電子991Combo1.Text=Combo1.List（0）EndSub程序運(yùn)行界面如圖6-15所示。,6.6滾動(dòng)條,滾動(dòng)條通常用來附在窗體邊上幫助觀察數(shù)據(jù)或確定位置，作為速度、數(shù)量的指示器來使用，也可用來作為數(shù)據(jù)輸入的工具。滾動(dòng)條分為水平滾動(dòng)條（HscrollBar）和垂直滾動(dòng)條（VscrollBar），如圖6-16所示。除方向不一樣外，水平滾動(dòng)條和垂直滾動(dòng)條的結(jié)構(gòu)與操作是完全相同的。,滾動(dòng)條的兩端各有一個(gè)滾動(dòng)箭頭，在滾動(dòng)箭頭之間有一個(gè)滾動(dòng)塊。滾動(dòng)塊從一端移至另一端時(shí)，其值在不斷變化。垂直滾動(dòng)條的值由上往下遞增，水平滾動(dòng)條的值由左往右遞增。其值均以整數(shù)表示，取值范圍為3276832767。最小值和最大值分別在兩個(gè)端點(diǎn)，其坐標(biāo)系和滾動(dòng)條的長(zhǎng)度（高度）無關(guān)。1屬性（1）Max屬性滾動(dòng)條所能表示的最大值。（2）Min屬性滾動(dòng)條所能表示的最小值。,（3）Value屬性表示當(dāng)前滾動(dòng)條所代表的值，范圍在Max與Min之間。（4）LargeChang屬性當(dāng)用戶單擊滾動(dòng)塊和滾動(dòng)箭頭之間的區(qū)域時(shí)，滾動(dòng)條控件（HScrollBar或VScrollBar）的Value屬性值的改變量，默認(rèn)值為1。（5）SmallChange屬性表示當(dāng)用戶單擊滾動(dòng)條兩端的箭頭時(shí)，Value屬性值的增加或減小的量，默認(rèn)值為1。,2事件滾動(dòng)條的最常用的是Change事件和Scroll事件?！纠?.9】利用滾動(dòng)條改變文本框中所顯示文本的字號(hào)大小。要求程序運(yùn)行效果如圖6-17所示。,程序代碼如下：PrivateSubHScroll1_Change（）Label1.Caption=HScroll1.ValueText1.FontSize=HScroll1.ValueEndSub,6.7焦點(diǎn)與Tab順序,焦點(diǎn)與Tab順序是和控件接受用戶輸入有關(guān)的兩個(gè)概念。6.7.1焦點(diǎn)焦點(diǎn)是對(duì)象鼠標(biāo)或鍵盤輸入的能力。當(dāng)對(duì)象具有焦點(diǎn)時(shí)，就可以接受用戶的輸入。當(dāng)對(duì)象得到焦點(diǎn)時(shí)發(fā)生GetFocus事件，當(dāng)對(duì)象失去焦點(diǎn)時(shí)發(fā)生LostFocus事件。,可用以下方法將焦點(diǎn)賦給對(duì)象：（1）用鼠標(biāo)選擇對(duì)象，用Tab鍵移動(dòng)，或用快捷鍵；（2）程序代碼中用SetFocus方法可以設(shè)置焦點(diǎn)。例如，可以在Form1窗體的Load事件中添加如下代碼，使得程序開始時(shí)光標(biāo)（焦點(diǎn)）位于文本框Text3中。PrivateSubForm_Load（）Form1.show顯示Form1窗體Text3.Setfocus使焦點(diǎn)位于文本框Text3中EndSub,使用以下方法可以使對(duì)象失去焦點(diǎn)：（1）用鼠標(biāo)單擊選擇另一個(gè)對(duì)象