常用控件與多窗體

關(guān)于常用控件與多窗體第1頁(yè)，課件共72頁(yè)，創(chuàng)作于2023年2月6.1圖片框與圖像框6.2定時(shí)器6.3單選鈕與復(fù)選框6.4容器與框架6.5列表框與組合框6.6滾動(dòng)條6.7焦點(diǎn)與Tab順序6.8多窗體第2頁(yè)，課件共72頁(yè)，創(chuàng)作于2023年2月6.1圖片框與圖像框

圖片框控件（PictureBox）和圖像框控件（ImageBox）主要用于在窗體的指定位置顯示圖形信息。VB6.0支持.bmp、.ico、.wmf、.emf、.jpg、.gif等格式的圖形文件。6.1.1圖片框、圖像框的常用屬性1．Picture屬性 圖片框和圖像框中顯示的圖片由Picture屬性決定。圖形文件可以在設(shè)計(jì)階段裝入，也可以在運(yùn)行期間裝入。第3頁(yè)，課件共72頁(yè)，創(chuàng)作于2023年2月

（1）在設(shè)計(jì)階段裝入 在設(shè)計(jì)階段，可以用屬性窗口中的Picture屬性裝入圖形文件。 （2）在運(yùn)行期間裝入 在運(yùn)行期間，可以用LoadPicture函數(shù)把圖形文件裝入圖片框或圖像框中。語(yǔ)句格式如下： 對(duì)象名.Picture=LoadPicture（[filename]）第4頁(yè)，課件共72頁(yè)，創(chuàng)作于2023年2月2．AutoSize屬性 該屬性用于圖片框。決定控件是否自動(dòng)改變大小以顯示圖像全部?jī)?nèi)容。缺省值為False，此時(shí)保持控件大小不變，超出控件區(qū)域的內(nèi)容被裁減掉；若值為T(mén)rue時(shí)，自動(dòng)改變控件大小以顯示圖片全部?jī)?nèi)容（注意：不是圖形改變大?。?。3．stretch屬性 用于圖像框。當(dāng)該屬性的取值為False時(shí)，圖像控件將自動(dòng)改變大小以與圖形的大小相適應(yīng)；當(dāng)其值為T(mén)rue時(shí)，顯示在控件中的圖像的大小將完全適合于控件的大小，這時(shí)，圖片可能會(huì)變形。第5頁(yè)，課件共72頁(yè)，創(chuàng)作于2023年2月 6.1.2圖片框、圖像框的區(qū)別 （1）圖片框控件可以作為其它控件的容器。 （2）圖片框可以通過(guò)Print方法接收文本，而圖像框則不能接收用Print方法輸入的信息。 （3）圖像框比圖片框占用的內(nèi)存少，顯示速度快。第6頁(yè)，課件共72頁(yè)，創(chuàng)作于2023年2月6.2定時(shí)器 VB提供了一種叫定時(shí)器（Timer）的控件。定時(shí)器每隔一定的時(shí)間間隔就產(chǎn)生一次Timer事件（可理解為報(bào)時(shí)），用戶可以根據(jù)這個(gè)特性設(shè)置時(shí)間間隔控制某些操作或用于計(jì)時(shí)。1．屬性 定時(shí)器控件的屬性不是很多，最常用的是Interval屬性，該屬性用來(lái)決定兩次調(diào)用定時(shí)器的間隔，以ms為單位，取值范圍為0～65535，所以最大時(shí)間間隔不能超過(guò)66s，該屬性的缺省值為0，即定時(shí)器控件不起作用。如果希望每秒產(chǎn)生n個(gè)事件，則應(yīng)設(shè)置屬性Interval的值為1000/n。第7頁(yè)，課件共72頁(yè)，創(chuàng)作于2023年2月2．事件 定時(shí)器只支持Timer事件。對(duì)于一個(gè)含有定時(shí)器控件的窗體，每經(jīng)過(guò)一段由屬性Interval指定的時(shí)間間隔，就產(chǎn)生一個(gè)Timer事件。

【例6.2】建立數(shù)字計(jì)時(shí)器，要求每秒鐘時(shí)間變化一次。 設(shè)計(jì)界面： 在窗體上添加一個(gè)定時(shí)器控件、一個(gè)標(biāo)簽，并按表6-1設(shè)置屬性。第8頁(yè)，課件共72頁(yè)，創(chuàng)作于2023年2月第9頁(yè)，課件共72頁(yè)，創(chuàng)作于2023年2月程序代碼如下：

PrivateSubTimer1_Timer（）

Label1.FontSize=48Label1.Caption=Time'將Time函數(shù)返回的系統(tǒng)時(shí)間顯示在標(biāo)簽中

EndSub執(zhí)行結(jié)果如下圖6-3所示，每隔1s鐘顯示一次時(shí)間。第10頁(yè)，課件共72頁(yè)，創(chuàng)作于2023年2月第11頁(yè)，課件共72頁(yè)，創(chuàng)作于2023年2月6.3單選鈕與復(fù)選框

有時(shí)希望在應(yīng)用程序的界面上提供一些項(xiàng)目，讓用戶從幾個(gè)選項(xiàng)中選擇其中之一，這就要用“單選鈕”控件。如果有多個(gè)選擇框，每個(gè)選擇框都是獨(dú)立的、互不影響的，用戶可以任意選擇它們的狀態(tài)組合，則可以用“復(fù)選框”控件。6.3.1單選鈕 單選鈕（OptionButton）通常成組出現(xiàn)，主要用于處理“多選一”的問(wèn)題。用戶在一組單選鈕中必須選擇一項(xiàng)，并且最多只能選擇一項(xiàng)。當(dāng)某一項(xiàng)被選定后，其左邊的圓圈中出現(xiàn)一個(gè)黑點(diǎn)。例如，圖6-4所示就是一組單選鈕，用戶只能在這3個(gè)單選鈕選項(xiàng)中選擇一個(gè)。第12頁(yè)，課件共72頁(yè)，創(chuàng)作于2023年2月第13頁(yè)，課件共72頁(yè)，創(chuàng)作于2023年2月1．屬性 （1）Value屬性 該屬性表示單選按鈕選中或不被選中的狀態(tài)。True為選中；False為不被選中。 （2）Caption屬性 該屬性顯示出現(xiàn)在單選鈕旁邊的文本。 （3）Style屬性 該屬性用來(lái)設(shè)置控件的外觀。值為0時(shí)，控件顯示如圖6-4所示標(biāo)準(zhǔn)樣式；值為1時(shí)，控件外觀類(lèi)似命令按鈕。 一般說(shuō)來(lái)，單選鈕總是作為一個(gè)組（單選鈕組）發(fā)揮作用的。圖6-4關(guān)于顏色的單選鈕就是一個(gè)按鈕組。第14頁(yè)，課件共72頁(yè)，創(chuàng)作于2023年2月2．事件 單選鈕常用事件是Click事件。

【例6.4】程序運(yùn)行后，單擊某個(gè)單選鈕，在標(biāo)簽中顯示相應(yīng)的字體。運(yùn)行結(jié)果如圖6-5所示。 分析：需要在窗體上建立一個(gè)標(biāo)簽和3個(gè)單選鈕，其主要屬性設(shè)置如表6-2所示。第15頁(yè)，課件共72頁(yè)，創(chuàng)作于2023年2月第16頁(yè)，課件共72頁(yè)，創(chuàng)作于2023年2月第17頁(yè)，課件共72頁(yè)，創(chuàng)作于2023年2月事件過(guò)程代碼如下：

PrivateSubkai_Click（）

Label1.FontName="楷體_gb2312"EndSub

PrivateSubli_Click（）

Label1.FontName="隸書(shū)"EndSubPrivateSubsong_Click（）

Label1.FontName="宋體"EndSub第18頁(yè)，課件共72頁(yè)，創(chuàng)作于2023年2月6.3.2復(fù)選框 復(fù)選框（CheckBox）也稱(chēng)檢查框，單擊復(fù)選框一次時(shí)被選中，左邊出現(xiàn)“√”號(hào)，再次單擊則取消選中，清除復(fù)選框中的“√”?？赏瑫r(shí)使多個(gè)復(fù)選框處于選中狀態(tài)，這一點(diǎn)和單選按鈕不同。如圖6-6所示，有四個(gè)復(fù)選框。第19頁(yè)，課件共72頁(yè)，創(chuàng)作于2023年2月第20頁(yè)，課件共72頁(yè)，創(chuàng)作于2023年2月1．屬性 （1）Value屬性決定復(fù)選框的狀態(tài)：0—未選中，1—已選中，2—變灰暗。 （2）Picture屬性 用來(lái)指定當(dāng)復(fù)選框被設(shè)計(jì)成圖形按鈕時(shí)的圖像。2．事件 復(fù)選框常用事件為Click事件。第21頁(yè)，課件共72頁(yè)，創(chuàng)作于2023年2月 【例6.5】用復(fù)選框控制文本是否加下劃線和斜體顯示。在程序執(zhí)行期間，如果選定“加下劃線”復(fù)選框，則文本框中的內(nèi)容就加上了下劃線，如果清除“加下劃線”復(fù)選框，則文本框中的內(nèi)容就沒(méi)有下劃線；如果選定“斜體”復(fù)選框，則文本框中的文字字形就變成斜體，如果清除“斜體”復(fù)選框，則文本框中的文字字形就不是斜體。運(yùn)行界面如圖6-7所示。第22頁(yè)，課件共72頁(yè)，創(chuàng)作于2023年2月第23頁(yè)，課件共72頁(yè)，創(chuàng)作于2023年2月

設(shè)計(jì)界面： 在窗體上建立一個(gè)文本框，兩個(gè)復(fù)選框。3個(gè)控件的屬性如表6-3所示。第24頁(yè)，課件共72頁(yè)，創(chuàng)作于2023年2月編寫(xiě)如下事件過(guò)程：

PrivateSubCheck1_Click（）

IfCheck1.Value=1ThenText1.FontUnderline=TrueElseText1.FontUnderline=FalseEndIfEndSub第25頁(yè)，課件共72頁(yè)，創(chuàng)作于2023年2月PrivateSubCheck2_Click（）

IfCheck2.Value=1ThenText1.FontItalic=TrueElseText1.FontItalic=FalseEndIfEndSubPrivateSubForm_Load（）

Text1.FontSize=20EndSub第26頁(yè)，課件共72頁(yè)，創(chuàng)作于2023年2月6.4容器與框架

所謂容器，就是可以在其上放置其它控件對(duì)象的一種對(duì)象。窗體、圖片框和框架都是容器。容器內(nèi)所有控件成為一個(gè)組合，隨容器一起移動(dòng)、顯示、消失和屏蔽。 在前一節(jié)例6.3中，是在一個(gè)窗體上建立一組單選按鈕，若要在同一窗體上建立幾組相互獨(dú)立的單選按鈕，通常用框架控件（Frame）將每一組單選鈕框起來(lái)，這樣在一個(gè)框架內(nèi)的單選鈕成為一組，對(duì)一組單選鈕的操作不會(huì)影響其它組的單選鈕。第27頁(yè)，課件共72頁(yè)，創(chuàng)作于2023年2月

在窗體上創(chuàng)建框架及其內(nèi)部控件時(shí)，應(yīng)先添加框架控件，然后單擊工具箱上的控件，用“+”指針在框架中以拖拽的方式添加控件，框架內(nèi)的控件不能被拖出框架外。不能用雙擊的方式向框架中添加控件，也不能先畫(huà)出控件再添加框架。如果要用框架將窗體上現(xiàn)有的控件進(jìn)行分組，可先選定控件，將它們剪切后粘貼到框架中。第28頁(yè)，課件共72頁(yè)，創(chuàng)作于2023年2月1．屬性 （1）Caption屬性 框架的標(biāo)題，位于框架的左上角，用于注明框架的用途。 （2）Enabled屬性 決定框架中的對(duì)象是否可用，通常把Enabled屬性設(shè)置為T(mén)rue，以使框架內(nèi)的控件成為可以操作的。2．事件

Click和DblClick。在大多數(shù)情況下，我們用框架控件對(duì)控件進(jìn)行分組，沒(méi)有必要響應(yīng)它的事件。第29頁(yè)，課件共72頁(yè)，創(chuàng)作于2023年2月 【例6.6】使用兩個(gè)單選鈕組來(lái)改變文本框中文字的顏色和大小。運(yùn)行結(jié)果如圖6-8所示。 設(shè)計(jì)界面： 在窗體上添加一個(gè)標(biāo)簽控件，一個(gè)命令按鈕；添加一個(gè)框架控件，在框架控件上畫(huà)上3個(gè)單選鈕控件（顏色按鈕組）；再添加一個(gè)框架控件，在框架控件上畫(huà)上兩個(gè)單選鈕控件（字體大小按鈕組）。兩個(gè)框架的Caption屬性分別設(shè)置為“顏色”和“字體大小”，其它控件屬性的設(shè)置可以按照?qǐng)D6-8所示自己進(jìn)行。第30頁(yè)，課件共72頁(yè)，創(chuàng)作于2023年2月第31頁(yè)，課件共72頁(yè)，創(chuàng)作于2023年2月編寫(xiě)代碼如下：

PrivateSubCommand1_Click（）

endEndSubPrivateSubOption1_Click（）

'藍(lán)色單選鈕

Label1.ForeColor=&HFF0000EndSubPrivateSubOption2_Click（）

'紅色單選鈕

Label1.ForeColor=&HFF&EndSub第32頁(yè)，課件共72頁(yè)，創(chuàng)作于2023年2月PrivateSubOption3_Click（）

'綠色單選鈕

Label1.ForeColor=&HFF00&EndSubPrivateSubOption4_Click（）

'文字大小10單選鈕

Label1.FontSize=10EndSubPrivateSubOption5_Click（）

'文字大小20單選鈕

Label1.FontSize=20EndSub第33頁(yè)，課件共72頁(yè)，創(chuàng)作于2023年2月6.5列表框與組合框

列表框（ListBox）控件將一系列的選項(xiàng)組合成一個(gè)列表，用戶可以選擇其中的一個(gè)或幾個(gè)選項(xiàng)，但不能向列表清單中輸入項(xiàng)目；組合框（ComboBox）控件是綜合文本框和列表框特性而形成的一種控件，用戶可通過(guò)在組合框中輸入文本來(lái)選定項(xiàng)目，也可從列表中選定項(xiàng)目。第34頁(yè)，課件共72頁(yè)，創(chuàng)作于2023年2月6.5.1列表框 列表框控件（ListBox）的主要用途在于提供列表式的多個(gè)數(shù)據(jù)項(xiàng)供用戶選擇。在列表框中放入若干個(gè)項(xiàng)的名字，用戶可以通過(guò)單擊某一項(xiàng)或多項(xiàng)來(lái)選擇自己所需要的項(xiàng)目。如果放入的項(xiàng)較多，超過(guò)了列表框設(shè)計(jì)時(shí)可顯示的項(xiàng)目數(shù)，則系統(tǒng)會(huì)自動(dòng)在列表框邊上加一個(gè)垂直滾動(dòng)條。第35頁(yè)，課件共72頁(yè)，創(chuàng)作于2023年2月1．屬性 （1）List屬性 該屬性是一個(gè)字符串?dāng)?shù)組，用來(lái)保存列表框中的各個(gè)數(shù)據(jù)項(xiàng)內(nèi)容。List數(shù)組的下標(biāo)從0開(kāi)始，即List（0）保存表中的第一個(gè)數(shù)據(jù)項(xiàng)的內(nèi)容。List（1）保存第二個(gè)數(shù)據(jù)項(xiàng)的內(nèi)容，依次類(lèi)推，List（ListCount-1）保存表中的最后一個(gè)數(shù)據(jù)項(xiàng)的內(nèi)容。 在窗體上添加一個(gè)列表框，其外觀如圖6-9所示，圖上所顯示的“List1”是控件的名稱(chēng)，而不是列表項(xiàng)中的數(shù)據(jù)項(xiàng)。第36頁(yè)，課件共72頁(yè)，創(chuàng)作于2023年2月第37頁(yè)，課件共72頁(yè)，創(chuàng)作于2023年2月

（2）ListCount屬性 該屬性記錄了列表框中的數(shù)據(jù)項(xiàng)數(shù)，該屬性只能在程序中引用它。 （3）Text屬性 用于存放被選中列表項(xiàng)的文本內(nèi)容。該屬性是只讀的，不能在屬性窗口中設(shè)置，也不能在程序中設(shè)置，只用于獲取當(dāng)前選定的列表項(xiàng)的內(nèi)容。可在程序中引用Text屬性值。第38頁(yè)，課件共72頁(yè)，創(chuàng)作于2023年2月

（4）ListIndex屬性 該屬性是List數(shù)組中，被選中的列表項(xiàng)的下標(biāo)值（即索引號(hào)）。如果用戶選擇了多個(gè)列表項(xiàng)，則ListIndex是最近所選列表項(xiàng)的索引號(hào)；如果用戶沒(méi)有從列表框中選擇任何一項(xiàng)，則ListIndex為－1。程序運(yùn)行時(shí)，可以使用ListIndex屬性判斷列表框中哪一項(xiàng)被選中。 例如，在列表框List1中選中第2項(xiàng)，即List1.List數(shù)組的第2項(xiàng)，則ListIndex＝1（ListIndex從0開(kāi)始）。

ListIndex屬性不能在設(shè)計(jì)時(shí)設(shè)置，只有程序運(yùn)行時(shí)才起作用。第39頁(yè)，課件共72頁(yè)，創(chuàng)作于2023年2月

（5）Selected屬性 該屬性是一個(gè)邏輯數(shù)組，其元素對(duì)應(yīng)列表框中相應(yīng)的項(xiàng)。表示相應(yīng)的項(xiàng)在程序運(yùn)行期間是否被選中。例如，Selected（0）的值為T(mén)rue，表示第一項(xiàng)被選中，如為False，表示未被選中。 （6）MultiSelect（多選擇列表項(xiàng)）屬性 該屬性值表明是否能夠在列表框控件中進(jìn)行復(fù)選以及如何進(jìn)行復(fù)選。它決定用戶是否可以在控件中做多重選擇，它必須在設(shè)計(jì)時(shí)設(shè)置，運(yùn)行時(shí)只能讀取該屬性。Multiselect屬性值的說(shuō)明如表6-4所示。第40頁(yè)，課件共72頁(yè)，創(chuàng)作于2023年2月

（7）SelCount屬性 其值表示在列表框控件中所選列表項(xiàng)的數(shù)目，只有在MultiSelect屬性值設(shè)置為1（Simple）或2（Extended）時(shí)起作用，通常與Selected數(shù)組一起使用，以處理控件中的所選項(xiàng)目。第41頁(yè)，課件共72頁(yè)，創(chuàng)作于2023年2月2．方法

ListBox對(duì)應(yīng)的控件方法有：AddItem，Clear和RemoveItem

（1）AddItem方法 該方法向一個(gè)列表框中加入列表項(xiàng)，其語(yǔ)法是：

Listname.AddItemitem［，index］ （2）RemoveItem方法 該方法用于刪除列表框中的列表項(xiàng)，其語(yǔ)法是：

Listname.RemoveItemindex第42頁(yè)，課件共72頁(yè)，創(chuàng)作于2023年2月

（3）Clear方法 該方法刪除列表框控件中的所有列表項(xiàng)。其語(yǔ)法是：

Listname.Clear 【例6.7】利用列表框和命令按鈕編程，要求程序能夠?qū)崿F(xiàn)添加項(xiàng)目、刪除項(xiàng)目、刪除全部項(xiàng)目的功能。 設(shè)計(jì)界面： 在窗體上添加一個(gè)列表框（ListBox）控件，3個(gè)命令按鈕。屬性設(shè)置如表6-5所示。第43頁(yè)，課件共72頁(yè)，創(chuàng)作于2023年2月第44頁(yè)，課件共72頁(yè)，創(chuàng)作于2023年2月在程序中添加如下代碼：

PrivateSubCommand1_Click（）

Dimentryentry=InputBox（"輸入添加內(nèi)容"，"添加"）

List1.AddItementry'添加項(xiàng)目

EndSub

第45頁(yè)，課件共72頁(yè)，創(chuàng)作于2023年2月PrivateSubCommand2_Click（）

DimiAsIntegerFori=List1.ListCount-1To0Step-1IfList1.Selected（i）ThenList1.RemoveItemi'刪除選中項(xiàng)目

NextiEndSub

PrivateSubCommand3_Click（）

List1.Clear'全部刪除

EndSub運(yùn)行結(jié)果如圖6-12所示。第46頁(yè)，課件共72頁(yè)，創(chuàng)作于2023年2月第47頁(yè)，課件共72頁(yè)，創(chuàng)作于2023年2月6.5.2組合框 組合框（ComoBox）是一種兼有列表框和文本框的功能的控件。它可以像列表框一樣，讓用戶通過(guò)鼠標(biāo)選擇所需要的項(xiàng)目；也可以像文本框一樣，用鍵入的方式選擇項(xiàng)目。1．屬性 （l）Style屬性 這是組合框的一個(gè)重要屬性，其取值為0，1，2，它決定了組合框3種不同的類(lèi)型，分別為下拉式組合框、簡(jiǎn)單組合框和下拉式列表框。如圖6-13所示。第48頁(yè)，課件共72頁(yè)，創(chuàng)作于2023年2月第49頁(yè)，課件共72頁(yè)，創(chuàng)作于2023年2月

（2）Text屬性 該屬性值是用戶所選擇的項(xiàng)目的文本或直接從編輯區(qū)輸入的文本。2．事件 組合框所響應(yīng)的事件依賴(lài)于其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è)列表框清空。第50頁(yè)，課件共72頁(yè)，創(chuàng)作于2023年2月第51頁(yè)，課件共72頁(yè)，創(chuàng)作于2023年2月

設(shè)計(jì)界面如下： 在窗體上加入3個(gè)標(biāo)簽，一個(gè)文本框，一個(gè)組合框，一個(gè)列表框，以及3個(gè)命令按鈕。各控件屬性設(shè)置如表6-6所示。第52頁(yè)，課件共72頁(yè)，創(chuàng)作于2023年2月第53頁(yè)，課件共72頁(yè)，創(chuàng)作于2023年2月程序如下：

PrivateSubCommand1_Click（）

If（（Text1.Text<>""）And（Combo1.Text<>""））ThenList1.AddItemText1.Text+""+Combo1.TextElseMsgBox（"請(qǐng)輸入添加內(nèi)容！"）

EndIfEndSub

第54頁(yè)，課件共72頁(yè)，創(chuàng)作于2023年2月PrivateSubCommand2_Click（）

DimiAsIntegerIfList1.ListIndex>=0ThenFori=List1.ListCount-1To0Step-1IfList1.Selected（i）ThenList1.RemoveItemi'刪除被選中的項(xiàng)目

NextiEndIfEndSub

第55頁(yè)，課件共72頁(yè)，創(chuàng)作于2023年2月PrivateSubCommand3_Click（）

List1.Clear'清空列表

EndSubPrivateSubForm_Load（）

Combo1.AddItem"電氣991"Combo1.AddItem"微機(jī)991"Combo1.AddItem"網(wǎng)絡(luò)991"Combo1.AddItem"電子991"Combo1.Text=Combo1.List（0）

EndSub程序運(yùn)行界面如圖6-15所示。第56頁(yè)，課件共72頁(yè)，創(chuàng)作于2023年2月第57頁(yè)，課件共72頁(yè)，創(chuàng)作于2023年2月6.6滾動(dòng)條

滾動(dòng)條通常用來(lái)附在窗體邊上幫助觀察數(shù)據(jù)或確定位置，作為速度、數(shù)量的指示器來(lái)使用，也可用來(lái)作為數(shù)據(jù)輸入的工具。 滾動(dòng)條分為水平滾動(dòng)條（HscrollBar）和垂直滾動(dòng)條（VscrollBar），如圖6-16所示。除方向不一樣外，水平滾動(dòng)條和垂直滾動(dòng)條的結(jié)構(gòu)與操作是完全相同的。第58頁(yè)，課件共72頁(yè)，創(chuàng)作于2023年2月第59頁(yè)，課件共72頁(yè)，創(chuàng)作于2023年2月

滾動(dòng)條的兩端各有一個(gè)滾動(dòng)箭頭，在滾動(dòng)箭頭之間有一個(gè)滾動(dòng)塊。滾動(dòng)塊從一端移至另一端時(shí)，其值在不斷變化。垂直滾動(dòng)條的值由上往下遞增，水平滾動(dòng)條的值由左往右遞增。其值均以整數(shù)表示，取值范圍為－32768～32767。最小值和最大值分別在兩個(gè)端點(diǎn)，其坐標(biāo)系和滾動(dòng)條的長(zhǎng)度（高度）無(wú)關(guān)。1．屬性 （1）Max屬性 滾動(dòng)條所能表示的最大值。 （2）Min屬性 滾動(dòng)條所能表示的最小值。第60頁(yè)，課件共72頁(yè)，創(chuàng)作于2023年2月

（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。第61頁(yè)，課件共72頁(yè)，創(chuàng)作于2023年2月2．事件 滾動(dòng)條的最常用的是Change事件和Scroll事件。

【例6.9】利用滾動(dòng)條改變文本框中所顯示文本的字號(hào)大小。要求程序運(yùn)行效果如圖6-17所示。第62頁(yè)，課件共72頁(yè)，創(chuàng)作于2023年2月第63頁(yè)，課件共72頁(yè)，創(chuàng)作于2023年2月程序代碼如下：

PrivateSubHScroll1_Change（）

Label1.Caption=HScroll1.ValueText1.FontSize=HScroll1.ValueEndSub第64頁(yè)，課件共72頁(yè)，創(chuàng)作于2023年2月6.7焦點(diǎn)與Tab順序

焦點(diǎn)與Tab順序是和控件接受用戶輸入有關(guān)的兩個(gè)概念。6.7.1焦點(diǎn) 焦點(diǎn)是對(duì)象鼠標(biāo)或鍵盤(pán)輸入的能力。當(dāng)對(duì)象具有焦點(diǎn)時(shí)，就可以接受用戶的輸入。 當(dāng)對(duì)象得到焦點(diǎn)時(shí)發(fā)生GetFocus事件，當(dāng)對(duì)象失去焦點(diǎn)時(shí)發(fā)生LostFocus事件。第65頁(yè)，課件共72頁(yè)，創(chuàng)作于2023年2月

可用以下方法將焦點(diǎn)賦給對(duì)象： （1）用鼠標(biāo)選擇對(duì)象，用[Tab]鍵移動(dòng)，或用快捷鍵； （2）程序代碼中用SetFocus方法可以設(shè)置焦點(diǎn)。 例如，可以在Form1窗體的Load事件中添加如下代碼，使得程序開(kāi)始時(shí)光標(biāo)（焦點(diǎn)）位于文本框Text3中。

PrivateSubForm_Load（）

Form1.show'顯示Form1窗體