主講：馮元VisualBasic程序設(shè)計(jì)1第八章內(nèi)部控件8.1圖形與圖像類控件8.2滾動(dòng)條、框架與定時(shí)器8.3提供選項(xiàng)的控件8.4鼠標(biāo)與鍵盤事件8.5控件數(shù)組8.6菜單28.1圖形與圖像類控件本節(jié)知識(shí)點(diǎn)：直線控件(Line)形狀控件(Shape)圖像控件(Image)圖片框控件(PictureBox)

38.1圖形與圖像類控件已學(xué)過(guò)的內(nèi)部控件：窗體(Form)、文本框(TextBox)、標(biāo)簽(Label)、命令按鈕(CommandButton)。本章將要學(xué)習(xí)的新內(nèi)部控件：直線(Line)、形狀(Shape)、圖像(Image)、圖片框(PictureBox)。滾動(dòng)條(HScrollBar、VScrollBar)、框架(Frame)、定時(shí)器(Timer)。復(fù)選框(CheckBox)、單選框(OptionButton)、列表框(ListBox)、組合框(ComboBox)。48.1圖形與圖像類控件控件的學(xué)習(xí)方法：控件的功能。屬性、方法、事件。熟悉內(nèi)部控件的常用屬性、方法、事件。知道如何查找內(nèi)部控件的文檔。注意內(nèi)部控件事件如何發(fā)生及發(fā)生的順序。Name、Left、Top、Width、Height、Visible、Enabled、Move、Click、DbClick。58.1圖形與圖像類控件1、直線控件(Line)功能：在窗體上顯示一條直線，用來(lái)將窗體上的控件進(jìn)行視覺(jué)上的分組。由于該控件只起裝飾作用，所以沒(méi)有方法和事件，也沒(méi)有Enable屬性。Name屬性：對(duì)象名。X1、Y1、X2、Y2：這四個(gè)屬性決定了直線控件的兩個(gè)端點(diǎn)在窗體上的坐標(biāo)值?？墒褂盟鼈儊?lái)調(diào)整直線控件的長(zhǎng)短與位置。68.1圖形與圖像類控件Visible屬性：決定直線控件是否可見(jiàn)。該屬性取值為“True”時(shí)可見(jiàn)，為“False”時(shí)不可見(jiàn)。BorderStyle屬性：該屬性決定了直線的線型。取值范圍0-6，整型。不同屬性值的意義見(jiàn)表8.1。BorderWidth屬性：線條寬度，單位像素。取值范圍：不小于1的整數(shù)。

注意：除了“實(shí)線”和“透明”線型外，對(duì)于其他線型該屬性值一定要設(shè)為“1”。也就是說(shuō)不可能有粗點(diǎn)劃線、粗虛線等。78.1圖形與圖像類控件2、形狀控件(Shape)功能：顯示多種不同的形狀，用來(lái)裝飾窗體。形狀控件有Move方法、無(wú)事件。Name屬性：對(duì)象名。Left、Top、Width、Height、Visible屬性：這些屬性決定形狀控件的大小、位置與可見(jiàn)性，用法與其他控件相同，形狀控件無(wú)Enabled屬性。88.1圖形與圖像類控件Shape屬性：決定控件以什么形狀顯示。取值范圍：0-5，整型。取不同值時(shí)對(duì)應(yīng)的形狀見(jiàn)表8.2。注意控件實(shí)際大小與顯示形狀大小的不同。BorderStyle屬性：決定形狀控件的邊框樣式，取值與直線控件的BorderStyle屬性相同。BorderWidth屬性：決定形狀控件的邊框?qū)挾龋瑔挝粸橄袼亍Ｅc直線控件相似。FillStyle屬性：決定形狀控件內(nèi)部的填充樣式。取值范圍：0-7，整數(shù)。取不同值時(shí)對(duì)應(yīng)的樣式見(jiàn)表8.3。98.1圖形與圖像類控件例8.1

窗體上有一個(gè)形狀控件和一個(gè)命令按鈕。編寫按鈕的Click事件過(guò)程，要求：連續(xù)單擊按鈕，形狀控件的形狀與填充樣式會(huì)交替循環(huán)改變.PrivateSubCommand1_Click()StaticintShapeAsIntegerStaticintStyleAsIntegerStaticbAsBooleanIfbThen

intShape=intShape+1IfintShape>5Then

intShape=0EndIfb=NotbShape1.Shape=intShape

'改變形狀

Else

intStyle=intStyle+1IfintStyle>7Then

intStyle=0EndIfb=NotbShape1.FillStyle=intStyle

'改變填充樣式

EndIfEndSub108.1圖形與圖像類控件3、圖像控件(Image)功能：用來(lái)在窗體上顯示保存在圖形文件中的圖像。支持的圖形文件格式有：位圖文件(.bmp)Windows元文件(.wmf)增強(qiáng)型元文件(.emf)圖標(biāo)文件(.ico)以.jpg、.Gif為擴(kuò)展名的圖形文件。118.1圖形與圖像類控件Name屬性：對(duì)象名。Left、Top、Width、Height、Visible屬性：用法與其他控件相同。Enabled屬性：屬性值為“False”時(shí)，圖形控件的外觀與屬性值為“True”時(shí)相同，只是不能響應(yīng)Click和DblClick事件。BorderStyle屬性：此屬性值為“0”時(shí)，無(wú)邊框；為“1”時(shí)有邊框。128.1圖形與圖像類控件Picture屬性：決定圖像控件顯示圖像的來(lái)源。如果不給此屬性賦值，則圖像控件不會(huì)顯示任何圖形。為Picture屬性賦值的方法：在設(shè)計(jì)時(shí)：在屬性窗口中點(diǎn)擊Picture屬性欄中的按紐，打開(kāi)“加載圖片”對(duì)話框，選取所要的圖片，按確定按紐。在程序中，可使用內(nèi)部函數(shù)LoadPicture()把一個(gè)圖像文件賦給該屬性。如：

img1.Picture=LoadPicture(“c:\windows\setup.bmp”)138.1圖形與圖像類控件Stretch屬性：如果此屬性值為“True”，則當(dāng)所顯示圖像的原始大小與控件大小不同時(shí)，會(huì)自動(dòng)縮放圖像填充整個(gè)控件.如果此屬性值為“False”，圖像會(huì)以原始大小顯示，如果控件比圖像小，會(huì)使圖像顯示不完整。Move方法：用法與其他控件相同。Click事件、DblClick事件：用法和其他控件一樣。148.1圖形與圖像類控件4、圖片框控件(PictureBox)功能：圖片框除具有圖像控件的所有功能外，還有如下功能：可作控件的容器。支持繪圖方法，可繪圖。通過(guò)Align屬性定位于窗體的一側(cè)。158.1圖形與圖像類控件Name屬性：對(duì)象名。Left、Top、Width、Height、Visible、Enabled屬性：這些屬性與其他控件的意義相同。BorderStyle屬性：值為“0”時(shí)無(wú)邊框，為“1”有。Picture屬性：與圖像控件的該屬性相同。AutoSize屬性：屬性值為“True”時(shí)，控件會(huì)自動(dòng)適應(yīng)圖片的大小；為“False”時(shí)，控件大小固定不變。168.1圖形與圖像類控件Align屬性：決定圖片框在窗體上的位置。取值范圍：0-4，整型。取不同值時(shí)的含義見(jiàn)表8.4。 由于圖片框可自動(dòng)位于窗體的某條邊上，所以可用來(lái)制作工具欄和狀態(tài)欄。Move方法：用法與其他控件相同。除此之外，圖片框還支持多個(gè)繪圖方法。Click事件、DblClick事件：用法與其他控件一樣。Change事件：當(dāng)圖片框的Picture屬性值變化時(shí)，引發(fā)這個(gè)事件。178.1圖形與圖像類控件5、使用圖片框控件作控件容器圖片框可以作為控件容器，像窗體一樣容納其他控件。具有這種功能的控件還有框架(Frame)。圖片框和框架可以進(jìn)行多層嵌套。也就是說(shuō)，一個(gè)容器內(nèi)即可以包含其他控件，也可以包含圖片框和框架等容器控件。如果一個(gè)控件被放置在容器控件中，無(wú)論嵌套多深在程序中對(duì)它進(jìn)行操作時(shí)，與直接放置在窗體上時(shí)是一樣的。188.1圖形與圖像類控件控件容器的作用和特點(diǎn)：移動(dòng)容器控件，被包容的控件會(huì)跟隨移動(dòng)。隱藏容器控件，被包容的控件也不可見(jiàn)。被包容的控件的Left和Top屬性值是其所在容器控件內(nèi)部的坐標(biāo)。198.1圖形與圖像類控件例子：使用圖片框來(lái)創(chuàng)建一個(gè)工具欄。在窗體上放置一個(gè)圖片框，然后將Align屬性置為1，這時(shí)圖片框會(huì)自動(dòng)地附著在窗體標(biāo)題欄下面。單擊工具箱中的命令按紐圖標(biāo)，然后在圖片框中拖動(dòng)添加一個(gè)按紐控件。這樣添加的按紐是不能通過(guò)拖動(dòng)方法移出圖片框的。在圖片框中添加多個(gè)按紐控件，調(diào)整控件的大小和位置，設(shè)置相關(guān)屬性，然后編寫事件過(guò)程。208.1圖形與圖像類控件在按紐控件上添加圖標(biāo)：將按紐對(duì)象的Style屬性置“1”，將Caption屬性值清空，然后使用Picture屬性添加圖標(biāo)文件。為控件設(shè)置提示信息：即在運(yùn)行時(shí)，當(dāng)鼠標(biāo)指針停留在控件上片刻后，會(huì)顯示一個(gè)簡(jiǎn)要介紹控件功能的提示窗口。方法：將控件的TooltipText屬性值設(shè)置為要顯示的信息。21作業(yè)：制作教材182頁(yè)圖8.4中的工具條，并在窗體上添加圖像控件，點(diǎn)擊不同按鈕時(shí)，在圖像控件中顯示不同的圖像。228.2滾動(dòng)條、框架與定時(shí)器本節(jié)知識(shí)點(diǎn)：滾動(dòng)條控件(HScrollBar、VScrollBar)框架控件(Frame)定時(shí)器控件(Timer)238.2滾動(dòng)條、框架與定時(shí)器1、滾動(dòng)條控件(HScrollBar、VScrollBar)滾動(dòng)條控件分為水平滾動(dòng)條(HScrollBar)和垂直滾動(dòng)條(VScrollBar)。兩者除了稱呼和放置方向不同外，其他都一樣。因此，下面介紹的所有屬性、方法和事件對(duì)兩者都適用。滾動(dòng)條由兩端帶有箭頭的滾動(dòng)按紐、中間的滾動(dòng)塊和空白區(qū)域組成。用途：滾動(dòng)條一般用來(lái)上下、左右地滾動(dòng)文字和圖形，也可以用來(lái)進(jìn)行其他內(nèi)容的輸入輸出。248.2滾動(dòng)條、框架與定時(shí)器Name屬性：對(duì)象名。Left、Top、Width、Height、Visible、Enabled屬性：這些屬性與其他控件的意義相同。Value屬性：反映滾動(dòng)條的當(dāng)前值。滾動(dòng)塊的位置大體上可以反映這個(gè)屬性的值，單擊滾動(dòng)按紐、單擊空白區(qū)域、拖動(dòng)滾動(dòng)塊，都會(huì)改變這個(gè)屬性的值。Min屬性：決定了當(dāng)滾動(dòng)塊處于頂端或最左端位置時(shí)，滾動(dòng)條Value屬性的值。即滾動(dòng)范圍的下限。258.2滾動(dòng)條、框架與定時(shí)器Max屬性：決定了當(dāng)滾動(dòng)塊處于底端或最右端位置時(shí)，滾動(dòng)條Value屬性的值。即滾動(dòng)范圍的上限。Min屬性和Max屬性取值范圍：-32768～32768。SmallChange屬性：該屬性值是當(dāng)用戶單擊滾動(dòng)箭頭按紐時(shí)，Value屬性值的變化量。LargeChange屬性：該屬性值是當(dāng)用戶單擊滾動(dòng)箭頭之間的空白區(qū)域時(shí)，Value屬性值的變化量。上述兩個(gè)屬性的取值范圍：1-32768，整數(shù)。 通常，LargeChange屬性的值要大于SmallChange屬性的值。268.2滾動(dòng)條、框架與定時(shí)器Change事件：滾動(dòng)條不支持Click和DblClick事件。當(dāng)滾動(dòng)條的Value屬性值發(fā)生變化時(shí)，引發(fā)Change事件。能夠引起Value屬性值改變的原因有：?jiǎn)螕魸L動(dòng)條箭頭按紐。單擊空白區(qū)域。拖動(dòng)滾動(dòng)塊。在程序中重設(shè)了Value屬性的值。Scroll事件：在滾動(dòng)條的滾動(dòng)塊被拖動(dòng)的過(guò)程中，引發(fā)此事件。在使用鼠標(biāo)拖動(dòng)滾動(dòng)條滾動(dòng)塊的過(guò)程中，會(huì)連續(xù)地引發(fā)多個(gè)Scroll事件。278.2滾動(dòng)條、框架與定時(shí)器例子：設(shè)計(jì)如下界面，當(dāng)滾動(dòng)條Value屬性值變化時(shí)顯示在文本框中。288.2滾動(dòng)條、框架與定時(shí)器 PrivateSubHScroll1_Change() Text1.Text=HScroll1.Value EndSub

PrivateSubHScroll1_Scroll() Text1.Text=HScroll1.Value EndSub 屬性設(shè)置：Min=1；Max=1000 SmallChange=10；LargeChange=10029作業(yè)：在窗體上放置2個(gè)文本框和一個(gè)垂直滾動(dòng)條，當(dāng)單擊滾動(dòng)箭頭或拖動(dòng)滾動(dòng)塊時(shí)，2個(gè)文本框可以同時(shí)上下移動(dòng)。308.2滾動(dòng)條、框架與定時(shí)器2、框架控件(Frame)框架是一個(gè)左上角有標(biāo)題文字的方框。功能：對(duì)窗體上的控件進(jìn)行視覺(jué)上的分組，使窗體上的內(nèi)容更有條理。希望被框架圍起來(lái)的控件可以疊放在框架控件上面，產(chǎn)生一種被框架圍起來(lái)的視覺(jué)效果。與圖片框一樣，框架也可以作為控件容器。318.2滾動(dòng)條、框架與定時(shí)器Name屬性：對(duì)象名。Left、Top、Width、Height、Visible、Enabled屬性：這些屬性與其他控件的意義相同。

注意：如容器控件的Enabled屬性值為“False”，則置于其內(nèi)部的控件都不能響應(yīng)用戶的鼠標(biāo)和鍵盤操作.Caption屬性：該屬性的值就是框架左上角的標(biāo)題文字。與標(biāo)簽控件相似，可在這個(gè)屬性值中使用“&”設(shè)置快捷鍵。BorderStyle屬性：該屬性值為“0”時(shí)，框架不顯示邊框與標(biāo)題文字；值為“1”時(shí)，顯示邊框和文字。328.2滾動(dòng)條、框架與定時(shí)器3、定時(shí)器控件(Timer)功能：定時(shí)器控件又稱為“計(jì)時(shí)器”，在程序運(yùn)行過(guò)程中它會(huì)像時(shí)鐘一樣不停地計(jì)時(shí)，當(dāng)?shù)竭_(dá)預(yù)先設(shè)定的時(shí)間，就會(huì)自動(dòng)引發(fā)一個(gè)名為Timer的事件。一個(gè)窗體可使用多個(gè)定時(shí)器，它們的時(shí)間相互獨(dú)立.定時(shí)器運(yùn)行時(shí)不可見(jiàn)，因此沒(méi)有Visible屬性。定時(shí)器大小固定，沒(méi)有Width和Height屬性。定時(shí)器沒(méi)有任何方法。338.2滾動(dòng)條、框架與定時(shí)器Name屬性：對(duì)象名。Left屬性、Top屬性：定時(shí)器在窗體上的位置。Enabled屬性：相當(dāng)于定時(shí)器的開(kāi)關(guān)。當(dāng)屬性值為“True”時(shí)，打開(kāi)定時(shí)器；為“False”時(shí)，關(guān)閉定時(shí)器。Interval屬性：該屬性值為一整數(shù)，取值范圍：1～65535，表示以毫秒為單位的時(shí)間間隔。 初始設(shè)定一個(gè)Interval屬性值并打開(kāi)定時(shí)器后，便開(kāi)始計(jì)時(shí)，以后每隔這個(gè)時(shí)間間隔都會(huì)引發(fā)一次Timer事件。348.2滾動(dòng)條、框架與定時(shí)器Timer事件：當(dāng)計(jì)時(shí)時(shí)間間隔到達(dá)時(shí)，定時(shí)器自動(dòng)觸發(fā)這個(gè)事件。是定時(shí)器控件支持的唯一事件。例子：窗體上自動(dòng)移動(dòng)的按鈕。358.3提供選項(xiàng)的控件本節(jié)知識(shí)點(diǎn)：復(fù)選框控件(CheckBox)單選框控件(OptionButton)列表框控件(ListBox)組合框控件(ComboBox)368.3提供選項(xiàng)的控件1、復(fù)選框控件(CheckBox)功能：復(fù)選框控件是提供選擇項(xiàng)的控件。其外觀是一個(gè)小方框后接一串文字。復(fù)選框控件的選擇狀態(tài)：方框中有對(duì)勾，表示該項(xiàng)被選中。方框中空白，表示未被選中。方框中為灰色并有對(duì)勾，表示此選項(xiàng)暫時(shí)無(wú)效。通常情況下，窗體上的復(fù)選框會(huì)按功能進(jìn)行分組。在同一組中，可以選擇多個(gè)，也可一個(gè)不選。378.3提供選項(xiàng)的控件用戶可以通過(guò)下列方法使復(fù)選框在選與不選之間切換:直接用鼠標(biāo)點(diǎn)擊。使用復(fù)選框標(biāo)題文字中的快捷鍵(Alt+字母)。將焦點(diǎn)移至復(fù)選框控件上，然后按空格鍵。388.3提供選項(xiàng)的控件Name屬性：對(duì)象名。Left、Top、Width、Height、Visible、Enabled屬性：這些屬性與其他控件的意義相同。Caption屬性：屬性的值是復(fù)選框旁邊的標(biāo)題文字?？稍谶@個(gè)屬性值中使用“&”設(shè)置快捷鍵。Style屬性：該屬性值為“0”時(shí)，復(fù)選框以標(biāo)準(zhǔn)樣式顯示；值為“1”時(shí)，以命令按紐樣式顯示，按下表示選中，彈起表示未選中。Alignment屬性：該屬性值為“0”時(shí)，標(biāo)題文字在方框的右邊；值為“1”時(shí)，標(biāo)題文字在方框的左邊。398.3提供選項(xiàng)的控件Value屬性：該屬性值決定復(fù)選框的選中狀態(tài)。取值范圍：0-2，整型。取不同值時(shí)的含義見(jiàn)表8.6。這里有兩點(diǎn)需要注意：只能通過(guò)程序?qū)⒅?賦給Value屬性，用戶的操作不會(huì)導(dǎo)致復(fù)選框變?yōu)榛疑?。Value屬性為2時(shí)復(fù)選框變?yōu)榛疑cEnabled屬性為False時(shí)變?yōu)榛疑暮x是完全不同的。Move方法：用法與其他控件相同。Click事件：除了用戶鼠標(biāo)單擊動(dòng)作外，其他任何可改變Value屬性的動(dòng)作或程序語(yǔ)句都會(huì)引發(fā)此事件。408.3提供選項(xiàng)的控件2、單選框控件(OptionButton)功能：與復(fù)選框相似，單選框也是成組地排列在窗體上供用戶從中進(jìn)行選擇。由圓形框和標(biāo)題文字組成。選擇狀態(tài)：圓形框中空白，表示未選中；圓形框中有黑點(diǎn)表示選中。單選框與復(fù)選框的本質(zhì)區(qū)別：在同一組單選框中，只能有一個(gè)并且必須有一個(gè)單選框被選中。選中一個(gè)單選框，則原來(lái)被選中的單選框會(huì)自動(dòng)變?yōu)槲催x定狀態(tài)。418.3提供選項(xiàng)的控件單選框的分組：直接放置在窗體上的所有控件被認(rèn)為是屬于同一組無(wú)論它們之間的相互位置如何。要在窗體上建立多組單選框，就要使用控件容器：圖片框或框架，其中框架用的最多。將作為一組的單選框放在控件容器中，就形成一組單選框。428.3提供選項(xiàng)的控件Name屬性：對(duì)象名。Left、Top、Width、Height、Visible、Enabled屬性：這些屬性與其他控件的意義相同。Caption屬性、Style屬性、Alignment屬性：這三個(gè)屬性與復(fù)選框的用法相同。Value屬性：與復(fù)選框不同，單選框的Value屬性為邏輯型，表示單選框的選擇狀態(tài)。該屬性值為True時(shí)表示選中；為False時(shí)，未選中。438.3提供選項(xiàng)的控件Move方法：用法與其他控件相同。Click事件、DblClick事件：與復(fù)選框不同，單選框支持Click事件和DblClick事件。一般很少編寫這些事件過(guò)程。作業(yè)：實(shí)現(xiàn)例子8.4。448.3提供選項(xiàng)的控件3、列表框控件(ListBox)功能：列表框是用來(lái)提供選項(xiàng)的控件。其特點(diǎn)是在有限的空間中提供許多的選項(xiàng)。當(dāng)列表框不能同時(shí)顯示所有的選項(xiàng)時(shí)，會(huì)提供滾動(dòng)條對(duì)控件中的選項(xiàng)進(jìn)行滾動(dòng)瀏覽、選擇。列表框中的選擇項(xiàng)稱為“條目(Item)”458.3提供選項(xiàng)的控件列表框控件的特點(diǎn)：在一個(gè)矩形區(qū)域內(nèi)，以有限的面積提供大量的可選項(xiàng)(通過(guò)滾動(dòng)操作)。可以顯示單列，也可以顯示多列?？梢詥芜x，也可以多選。支持自動(dòng)排序。運(yùn)行過(guò)程中，方便地添加、刪除條目?？纱鎯?chǔ)與條目相關(guān)的數(shù)據(jù)。468.3提供選項(xiàng)的控件列表框與文本框的區(qū)別：它們的外觀很相似，但文本框中的文本是作為一個(gè)整體進(jìn)行輸入輸出的，而列表框中的每一個(gè)條目對(duì)程序來(lái)說(shuō)都是可識(shí)別的。在程序運(yùn)行時(shí)，用戶不能在窗口中直接修改列表框中的內(nèi)容，而文本框則可以。478.3提供選項(xiàng)的控件Name屬性：對(duì)象名。Left、Top、Width、Height、Visible、Enabled屬性：這些屬性與其他控件的意義相同。Columns屬性：決定列表框中顯示條目的列數(shù)。為“0”時(shí)，顯示一列，條目多時(shí)自動(dòng)添加垂直滾動(dòng)條.為“1”時(shí)，仍顯示一列，條目多時(shí)自動(dòng)添加水平滾動(dòng)條，此時(shí)變?yōu)槎嗔?。值大?時(shí)，條目的顯示列數(shù)視列表框的寬度而定，滾動(dòng)條為水平。488.3提供選項(xiàng)的控件ListCount屬性：該屬性的值是列表框中的條目數(shù)。此屬性是只讀，設(shè)計(jì)階段不可用。List屬性：該屬性實(shí)質(zhì)上是一個(gè)一維數(shù)組，類型為字符串。數(shù)組下標(biāo)的下界為0，上界為L(zhǎng)istCount屬性值減1。每個(gè)數(shù)組元素順序?qū)?yīng)列表框中的一個(gè)條目。

列表框添加條目的方法：設(shè)計(jì)階段：在屬性窗口中的List屬性處為列表框添加初始條目。程序運(yùn)行時(shí)：可使用List屬性來(lái)改變列表框中的現(xiàn)有條目。如語(yǔ)句：List1.List(m)=“新值”498.3提供選項(xiàng)的控件ListIndex屬性：該屬性的值是當(dāng)前被選中條目的序號(hào)(也就是該條目的數(shù)組下標(biāo)值)。若列表框支持多選，則ListIndex屬性的值是最后一個(gè)被選中條目的序號(hào)。ItemData屬性：列表框控件還為每個(gè)條目預(yù)留了一個(gè)長(zhǎng)整型數(shù)值空間，用來(lái)保存與條目相關(guān)的信息。ItemData屬性就是這樣一個(gè)一維數(shù)組，類型為長(zhǎng)整型不像List屬性數(shù)組，該數(shù)組不被顯示出來(lái)。List屬性數(shù)組中的元素與ItemData屬性數(shù)組中的元素按順序一一對(duì)應(yīng)。508.3提供選項(xiàng)的控件List1.list(0)List1.list(1)List1.list(2)List1.list(3)List1.list(4)List1.list(5)List1.list(6)List1.list(7)List1.list(8)List1.list(9)List1.ItemData(0)List1.ItemData(1)List1.ItemData(2)List1.ItemData(3)List1.ItemData(4)List1.ItemData(7)List1.ItemData(6)List1.ItemData(5)List1.ItemData(9)List1.ItemData(8)顯示的列表框List屬性數(shù)組ItemData屬性數(shù)組518.3提供選項(xiàng)的控件MultiSelect屬性：該屬性決定列表框是否支持多選。取值范圍：0-2，整型。取不同值時(shí)的含義見(jiàn)表8.8。Style屬性：該屬性值為“0”時(shí)，標(biāo)準(zhǔn)樣式；為“1”時(shí)，復(fù)選框樣式。運(yùn)行時(shí)為只讀。

注意：無(wú)論MultiSelect屬性為何值，如果Style屬性為“1”，列表框都支持多選。SelCount屬性：該屬性表明列表框中當(dāng)前被選中的條目數(shù)。如沒(méi)有條目被選中，該屬性值為“0”。運(yùn)行時(shí)只讀，設(shè)計(jì)時(shí)不可用。528.3提供選項(xiàng)的控件Selected屬性：該屬性是一個(gè)邏輯型數(shù)組。數(shù)組元素個(gè)數(shù)與列表框中的條目數(shù)相同，即每個(gè)數(shù)組元素對(duì)應(yīng)一個(gè)條目。數(shù)組元素值為“True”時(shí)，表示對(duì)應(yīng)的條目被選中，值為“False”表示未被選中。該屬性設(shè)計(jì)時(shí)不可用。TopIndex屬性：是列表框中可見(jiàn)的第一個(gè)條目的序號(hào)。設(shè)計(jì)時(shí)不可用。Text屬性：該屬性保存了列表框當(dāng)前所選條目的文字。如沒(méi)有條目被選中，該屬性值為空字符串。538.3提供選項(xiàng)的控件Sorted屬性：該屬性決定列表框中的條目是否排序。屬性值為“True”時(shí)，條目按ASCII碼和漢字國(guó)標(biāo)碼的順序遞增排序；為“False”時(shí)不排序。運(yùn)行時(shí)只讀。NewIndex屬性：該屬性的值是最新添加到列表框中條目的序號(hào)。只讀。548.3提供選項(xiàng)的控件AddItem方法：在程序運(yùn)行時(shí)，可以使用AddItem方法往列表框中添加新條目。語(yǔ)法格式為：

列表框?qū)ο竺?AddItem

字符串表達(dá)式

[，序號(hào)]說(shuō)明：AddItem方法將“字符串”插入到列表框中“序號(hào)”指定的位置上。序號(hào)的取值范圍：大于或等于0，小于或等列表框中的當(dāng)前條目數(shù)。如果列表框已經(jīng)排序，使用該方法插入條目時(shí)，不要帶“序號(hào)”，以免引起混亂。558.3提供選項(xiàng)的控件RemoveItem方法：用于從列表框中刪除指定序號(hào)位置上的條目。格式： 列表框?qū)ο竺?RemoveItem

序號(hào)說(shuō)明：“序號(hào)”指定的條目被刪除后，與該條目相關(guān)聯(lián)的所有數(shù)據(jù)都會(huì)被刪除(ItemData屬性值、Selected屬性值等)。Clear方法：清除列表框中的所有條目。格式： 列表框?qū)ο竺?ClearMove方法：用法與其他控件相同。568.3提供選項(xiàng)的控件Click、DblClick事件：意義與用法與其他控件相同.

注意：只有點(diǎn)擊列表框中的條目時(shí)，才會(huì)引發(fā)這兩個(gè)事件。點(diǎn)擊列表框的空白區(qū)域無(wú)效。Scroll事件：列表框的滾動(dòng)條滾動(dòng)時(shí)，引發(fā)此事件。用法同滾動(dòng)條控件的該方法。ItemCheck事件：列表框條目的復(fù)選框被選定或取消時(shí)引發(fā)該事件。事件過(guò)程的語(yǔ)法：

PrivateSub列表框?qū)ο竺?ItemCheck(ItemasInteger)

Item參數(shù)反映被操作條目的序號(hào)。57作業(yè)：實(shí)現(xiàn)【例8.5】588.3提供選項(xiàng)的控件4、組合框控件(ComboBox)組合框可以看作是由一個(gè)文本框和一個(gè)列表框構(gòu)成的組合體。所以組合框具有文本框和列表框大多數(shù)常用屬性、方法事件。Name屬性：對(duì)象名。Left、Top、Width、Height、Visible、Enabled屬性：這些屬性與其他控件的意義相同。Style屬性：決定組合框的樣式。取值0-2，整型。取不同值時(shí)的意義見(jiàn)表8.11。598.3提供選項(xiàng)的控件組合框的其他常用屬性：組合框不支持多選，因此無(wú)列表框的相關(guān)屬性。除此之外。組合框支持列表框和文本框的大多數(shù)常用屬性。AddItem、Clear、RemoveItem、Move方法：組合框控件這些方法的用法與列表框相同。注意：組合框并不會(huì)自動(dòng)將用戶在文本框部分中輸入的內(nèi)容作為列表框部分的條目。如果要達(dá)到這個(gè)目的，可在事件過(guò)程中添加如下語(yǔ)句： 組合框名.AddItem

組合框名.Text608.3提供選項(xiàng)的控件Change事件：當(dāng)文本框中的內(nèi)容發(fā)生變化時(shí)，觸發(fā)該事件。Click、DblClick、Scroll事件：當(dāng)用戶用鼠標(biāo)單擊、雙擊組合框時(shí)，觸發(fā)Click事件和DblClick事件。當(dāng)組合框的列表框部分的滾動(dòng)條被滾動(dòng)時(shí)，引發(fā)Scroll事件618.4鼠標(biāo)與鍵盤事件本節(jié)知識(shí)點(diǎn)：MouseDown事件MouseUp事件MouseMove事件KeyDown事件KeyUp事件KeyPress事件628.4鼠標(biāo)與鍵盤事件問(wèn)題：控件的Click、DblClick事件都沒(méi)有參數(shù)，當(dāng)程序處理這兩個(gè)事件時(shí)，存在如下問(wèn)題：不能確定用戶是在對(duì)象的什么位置上單擊的鼠標(biāo)。不能確定用戶單擊的是鼠標(biāo)上的哪一個(gè)鍵。不能確定在單擊鼠標(biāo)時(shí)是否按下了鍵盤上的某個(gè)控制鍵。如果要在程序中得知上述各種狀態(tài)，就要處理下面的三個(gè)鼠標(biāo)事件。638.4鼠標(biāo)與鍵盤事件1、MouseDown事件具有該事件的對(duì)象有窗體、按紐、文本框、復(fù)選框、單選框、框架、圖像、標(biāo)簽、列表框和圖片框。當(dāng)用戶在對(duì)象上按下鼠標(biāo)鍵時(shí)引發(fā)MouseDown事件。事件過(guò)程的語(yǔ)法格式：

Private

Sub

Object_MouseDown(buttonasInteger,shiftasInteger,xasSingle,yasSingle)………..

EndSub648.4鼠標(biāo)與鍵盤事件2、MouseUp事件具有該事件的對(duì)象同上。當(dāng)用戶在對(duì)象上釋放鼠標(biāo)鍵時(shí)引發(fā)MouseUp事件。事件過(guò)程的語(yǔ)法格式：

PrivateSub

Object_MouseMove(button

asInteger,shiftasInteger,xasSingle,yasSingle)………..

EndSub658.4鼠標(biāo)與鍵盤事件3、MouseMove事件具有該事件的對(duì)象同上。當(dāng)用戶在對(duì)象上移動(dòng)鼠標(biāo)時(shí)引發(fā)MouseMove事件。事件過(guò)程的語(yǔ)法格式：

PrivateSub

Object_MouseMove(button

asInteger,shiftasInteger,xasSingle,yasSingle)………..

EndSub668.4鼠標(biāo)與鍵盤事件4、鼠標(biāo)事件過(guò)程的參數(shù)

button參數(shù)參數(shù)的值反映事件發(fā)生時(shí)按下的是哪個(gè)鼠標(biāo)鍵。1表示左鍵；2表示右鍵；4表示中鍵。對(duì)于MouseMove事件，事件發(fā)生時(shí)，可能同時(shí)有兩個(gè)或三個(gè)鼠標(biāo)鍵被按下，這時(shí)button參數(shù)是相應(yīng)鍵值之和。在鼠標(biāo)移動(dòng)時(shí)，可以不按下任何一個(gè)鼠標(biāo)鍵，這時(shí)button參數(shù)為0。678.4鼠標(biāo)與鍵盤事件Shift參數(shù)參數(shù)的值反映事件發(fā)生時(shí)，鍵盤上哪個(gè)控制鍵被按下。1表示Shift鍵；2表示Ctrl鍵；4表示Alt鍵。如果同時(shí)有兩個(gè)或三個(gè)控制鍵被按下，則Shift參數(shù)是相應(yīng)鍵值之和。如果事件發(fā)生時(shí)，沒(méi)有鍵被按下，Shift參數(shù)為0。X參數(shù)、Y參數(shù)這兩個(gè)參數(shù)指明當(dāng)事件發(fā)生時(shí)，鼠標(biāo)指針熱點(diǎn)所處位置的坐標(biāo)。默認(rèn)情況下，該坐標(biāo)系統(tǒng)的原點(diǎn)在引發(fā)事件對(duì)象的左上角。688.4鼠標(biāo)與鍵盤事件幾點(diǎn)注意當(dāng)鼠標(biāo)移動(dòng)時(shí)，會(huì)不斷發(fā)送MouseMove事件。但不是每經(jīng)過(guò)一個(gè)點(diǎn)都會(huì)發(fā)生MouseMove事件，而是在移動(dòng)過(guò)程中每間隔很短的時(shí)間發(fā)送一個(gè)此事件。因此，在相同的距離上，鼠標(biāo)移動(dòng)的速度越快，產(chǎn)生的事件就越少。在對(duì)象上操作一次鼠標(biāo)，會(huì)產(chǎn)生多個(gè)與鼠標(biāo)有關(guān)的事件。這些事件的產(chǎn)生順序可能不同。所以在使用前一定要仔細(xì)測(cè)試。當(dāng)一個(gè)控件不可見(jiàn)時(shí)，針對(duì)它的鼠標(biāo)操作會(huì)傳遞到位于它下面的對(duì)象上。698.4鼠標(biāo)與鍵盤事件鼠標(biāo)事件舉例：測(cè)量鼠標(biāo)事件的發(fā)生順序。窗體繪圖708.4鼠標(biāo)與鍵盤事件需求：要識(shí)別組合鍵、功能鍵、光標(biāo)鍵、小鍵盤上的按鍵。區(qū)別按下或松開(kāi)的動(dòng)作。對(duì)輸入字符進(jìn)行篩選。對(duì)上述需求，要求使用鍵盤事件。718.4鼠標(biāo)與鍵盤事件5、KeyDown事件具有這個(gè)事件的對(duì)象有：窗體、命令按紐、文本框、復(fù)選框、單選框、列表框、組合框、滾動(dòng)條與圖片框。事件過(guò)程的語(yǔ)法格式：該事件是當(dāng)一個(gè)對(duì)象具有焦點(diǎn)時(shí)，用戶按下一個(gè)鍵盤鍵時(shí)發(fā)生的。PrivateSub

object_KeyDown(KeyCodeasInteger,ShiftasInteger)728.4鼠標(biāo)與鍵盤事件KeyCode參數(shù)：表示按鍵的代碼。每一個(gè)按鍵都有相應(yīng)的鍵代碼，見(jiàn)附錄D。鍵盤上字母和數(shù)字鍵的鍵代碼與其ASCII碼相同。

注意：對(duì)于字母鍵，KeyCode返回的總是大寫形式，要知道當(dāng)前的大小寫形式，應(yīng)該檢測(cè)Shift參數(shù)的值。Shift參數(shù)：指示在按下一個(gè)鍵時(shí)，是否同時(shí)按下了Shift、Ctrl、Alt鍵。為1時(shí)按下了Shift鍵；為2時(shí)按下了Ctrl鍵；為4時(shí)按下了Alt鍵。當(dāng)這三個(gè)鍵中不止一個(gè)鍵按下時(shí)，Shift參數(shù)是按下鍵相應(yīng)數(shù)值之和。如果三個(gè)鍵均未按下，這個(gè)參數(shù)值為0。738.4鼠標(biāo)與鍵盤事件6、KeyUp事件具有這個(gè)事件的對(duì)象同上。事件過(guò)程的語(yǔ)法格式：該事件是當(dāng)一個(gè)對(duì)象具有焦點(diǎn)時(shí)，用戶松開(kāi)一個(gè)按下的鍵盤鍵時(shí)發(fā)生的。參數(shù)同KeyDown事件。PrivateSub

object_KeyUp(KeyCodeasInteger,ShiftasInteger)748.4鼠標(biāo)與鍵盤事件7、KeyPress事件具有這個(gè)事件的對(duì)象同上。事件過(guò)程的語(yǔ)法格式：

PrivateSub

object_KeyPress(KeyAsciiasInteger)當(dāng)按了鍵盤上的一個(gè)可打印字符鍵時(shí)，引發(fā)此事件。參數(shù)KeyAscii傳遞的是按鍵字符的ASCII碼。具有焦點(diǎn)的對(duì)象才能接收該事件。不屬于可打印字符范圍的鍵，不會(huì)引發(fā)該事件。該事件將字母的大小寫形式作為不同的鍵代碼解釋。758.4鼠標(biāo)與鍵盤事件注意：改變KeyAscii參數(shù)的值會(huì)改變實(shí)際輸入到控件中的字符。將KeyAscii參數(shù)的值改為0，可取消擊鍵，使對(duì)象接收不到字符。鍵盤事件舉例：【例8.8】768.5控件數(shù)組本節(jié)知識(shí)點(diǎn)：創(chuàng)建控件數(shù)組編寫控件數(shù)組事件過(guò)程動(dòng)態(tài)添加、刪除控件數(shù)組元素778.5控件數(shù)組正如使用數(shù)組可以簡(jiǎn)化編程，使用控件數(shù)組可以替代同一個(gè)窗體上功能類似的多個(gè)同類控件，很大程度上簡(jiǎn)化編程?？丶?shù)組具有以下特性：控件數(shù)組中的所有元素控件必須是同一類型；控件數(shù)組中所有的元素控件的Name屬性相同；通過(guò)控件的Index屬性區(qū)別同一控件數(shù)組中的各個(gè)元素控件；788.5控件數(shù)組對(duì)于同一個(gè)事件，同一控件數(shù)組中的所有控件共用同一個(gè)事件過(guò)程，與單個(gè)控件相比，控件數(shù)組的事件過(guò)程增加了一個(gè)Index參數(shù)，該參數(shù)值與引發(fā)該事件的控件數(shù)組元素的Index屬性值相同；除了Name屬性和Index屬性，控件數(shù)組中每個(gè)元素的其他屬性可以單獨(dú)設(shè)置；798.5控件數(shù)組控件數(shù)組元素的下標(biāo)（即控件的Index屬性值）不能重復(fù)，但可以不連續(xù)；控件數(shù)組的元素個(gè)數(shù)受系統(tǒng)資源的限制，并且最大的Index屬性值不能超過(guò)32767；同一窗體上，可以有多個(gè)控件數(shù)組；所有的內(nèi)部控件都可以創(chuàng)建控件數(shù)組。808.5控件數(shù)組1、創(chuàng)建控件數(shù)組使用復(fù)制和粘貼控件的方法。使用更改已有控件Name屬性和Index屬性的方法。以圖8.17所示的簡(jiǎn)易計(jì)算器為例，說(shuō)明控件數(shù)組的創(chuàng)建和使用。818.5控件數(shù)組設(shè)置窗體創(chuàng)建新工程，將窗體的Name屬性改為frmCalculator。將窗體的Caption屬性改為“計(jì)算器”。將窗體的BorderStyle屬性置為“1”。(固定邊框)將窗體的MaxButton屬性置為“False”。828.5控件數(shù)組設(shè)置文本框在窗體上放置文本框控件，其屬性修改如下：Name屬性：改為txtDisplay。Alignment屬性：改為1。BackColor屬性：設(shè)為&H00FFFF00。Locked屬性：設(shè)為True。838.5控件數(shù)組命令按紐分類數(shù)字按紐和小數(shù)點(diǎn)按紐可歸為一類，其作用是輸入計(jì)算數(shù)據(jù)。運(yùn)算符可歸為一類，作用是輸入運(yùn)算符。剩余三個(gè)按紐，由于功能不同，分別設(shè)為獨(dú)立按紐。根據(jù)以上分類，需要?jiǎng)?chuàng)建2個(gè)控件數(shù)組。分別命名為：cmdNumber和cmdCalc。848.5控件數(shù)組創(chuàng)建控件數(shù)組在窗體上放置控件數(shù)組中的第一個(gè)按紐，將該按紐的Name屬性改為cmdNumber，Caption屬性改為“0”。選中按紐“0”，復(fù)制然后粘貼，這時(shí)會(huì)出現(xiàn)一個(gè)消息框，詢問(wèn)是否要?jiǎng)?chuàng)建控件數(shù)組，單擊“是”。于是窗體上會(huì)添加一個(gè)與已有按紐外觀相同的新按紐。將新按紐的Caption屬性改為“1”。重復(fù)上述過(guò)程，直到添加足夠數(shù)量的按紐。使用相同的步驟，創(chuàng)建控件數(shù)組cmdCalc。858.5控件數(shù)組2、編寫事件過(guò)程使用控件數(shù)組最重要的優(yōu)點(diǎn)是：控件數(shù)組中各個(gè)控件對(duì)同一事件使用同一個(gè)事件過(guò)程。通過(guò)過(guò)程參數(shù)來(lái)區(qū)別不同的控件，控件數(shù)組Click事件過(guò)程的語(yǔ)法格式：

PrivateSub

cmdNumber_Click(IndexasInteger)程序可以根據(jù)Index參數(shù)傳遞的值來(lái)判斷這個(gè)事件是由控件數(shù)組中的哪個(gè)控件觸發(fā)的。引發(fā)事件的控件數(shù)組元素的下標(biāo)值與Index參數(shù)值相同。868.5控件數(shù)組計(jì)算器功能說(shuō)明：通過(guò)數(shù)字按紐輸入第一個(gè)運(yùn)算數(shù)。按運(yùn)算符按紐后，文本框中的第一個(gè)數(shù)被清除，開(kāi)始輸入第二個(gè)運(yùn)算數(shù)。按等于按紐，得出計(jì)算結(jié)果。對(duì)于輸錯(cuò)的數(shù)字，可以通過(guò)退格鍵進(jìn)行修改?？梢允褂梅?hào)按紐為運(yùn)算數(shù)添加符號(hào)。878.5控件數(shù)組事件過(guò)程說(shuō)明：cmdNumber_Click(IndexasInteger)：控件數(shù)組事件過(guò)程，負(fù)責(zé)處理點(diǎn)擊數(shù)字鍵和小數(shù)點(diǎn)鍵。 每點(diǎn)擊一次這些鍵，就相當(dāng)于輸入一個(gè)數(shù)字或小數(shù)點(diǎn)。將每次輸入的數(shù)字連接成一個(gè)字符串。 檢查輸入的合法性。cmdBack_Click()：退格鍵事件過(guò)程，負(fù)責(zé)處理點(diǎn)擊退格鍵。每點(diǎn)擊一次就消除右邊一位。888.5控件數(shù)組cmdPN_Click()：符號(hào)鍵事件過(guò)程，負(fù)責(zé)處理點(diǎn)擊符號(hào)鍵。每次點(diǎn)擊更換符號(hào)。cmdCalc_Click(IndexasInteger)：控件數(shù)組事件過(guò)程，負(fù)責(zé)處理點(diǎn)擊運(yùn)算符鍵。每次點(diǎn)擊后，清除當(dāng)前文本框顯示，這時(shí)可輸入第二個(gè)運(yùn)算數(shù)。cmdEquale_Click()：等號(hào)鍵事件過(guò)程，負(fù)責(zé)處理點(diǎn)擊等號(hào)鍵。每次點(diǎn)擊該鍵，就根據(jù)當(dāng)前輸入的運(yùn)算數(shù)和運(yùn)算符進(jìn)行相關(guān)計(jì)算，并顯示計(jì)算結(jié)果。898.5控件數(shù)組3、動(dòng)態(tài)添加、刪除控件數(shù)組元素可以使用Load語(yǔ)句通過(guò)程序代碼在程序運(yùn)行過(guò)程中動(dòng)態(tài)添加控件數(shù)組元素。

Load

控件數(shù)組名(下標(biāo))控件數(shù)組必須在設(shè)計(jì)階段創(chuàng)建，下標(biāo)不能與已有元素下標(biāo)重復(fù)。使用Load語(yǔ)句加載的新控件是不可見(jiàn)的。使用Unload語(yǔ)句卸載控件數(shù)組元素，只能卸載由Load語(yǔ)句動(dòng)態(tài)加載的元素。

Unload

控件數(shù)組名(下標(biāo))90作業(yè)：實(shí)現(xiàn)【例8.9】通過(guò)數(shù)字按紐輸入第一個(gè)運(yùn)算數(shù)。按運(yùn)算符按紐后，文本框中的第一個(gè)數(shù)被清除，開(kāi)始輸入第二個(gè)運(yùn)算數(shù)。按等于按紐，得出計(jì)算結(jié)果。對(duì)于輸錯(cuò)的數(shù)字，可以通過(guò)退格鍵進(jìn)行修改?？梢允褂梅?hào)按紐為運(yùn)算數(shù)添加符號(hào)。增加清除鍵“C”，可以清除文本框中的內(nèi)容91作業(yè)：928.6菜單控件本節(jié)知識(shí)點(diǎn)：菜單控件的特點(diǎn)菜單控件的屬性創(chuàng)建菜單菜單控件的Click事件938.6菜單控件1、菜單概念菜單是應(yīng)用程序的控制臺(tái)，菜單中的命令包含了應(yīng)用程序的絕大部分功能。有了菜單系統(tǒng)，就可以直觀便捷地操縱應(yīng)用程序。這里介紹的菜單(menu)是Windows窗口的標(biāo)準(zhǔn)構(gòu)件菜單的一般結(jié)構(gòu)：菜單一般為層次結(jié)構(gòu)，一組相關(guān)的功能被組織在一個(gè)菜單標(biāo)題下。每個(gè)菜單功能項(xiàng)下還可以有子菜單。通常一個(gè)菜單系統(tǒng)的菜單級(jí)數(shù)不要超過(guò)3級(jí)，否則會(huì)感到不方便。948.6菜單控件菜單系統(tǒng)的一些特點(diǎn)：下級(jí)菜單指示：菜單項(xiàng)右邊有箭頭。菜單快捷鍵：菜單項(xiàng)右邊帶下劃線的字母。當(dāng)一個(gè)菜單在屏幕上可見(jiàn)時(shí)，使用“Alt+快捷鍵字母”選擇相應(yīng)的菜單項(xiàng)。菜單熱鍵：菜單項(xiàng)右邊顯示的組合鍵(如Ctr+M)。熱鍵是指在不打開(kāi)菜單