VB常用控件與界面設(shè)計(jì)教程

1、徐州醫(yī)學(xué)院徐州醫(yī)學(xué)院VBVB教程教程公共教育學(xué)院公共教育學(xué)院 計(jì)算機(jī)教研室計(jì)算機(jī)教研室3.1 3.1 創(chuàng)建窗體創(chuàng)建窗體3.2 3.2 Visual BasicVisual Basic的常用控件的常用控件 3.3 3.3 制作菜單制作菜單 徐州醫(yī)學(xué)院徐州醫(yī)學(xué)院VBVB教程教程公共教育學(xué)院公共教育學(xué)院 計(jì)算機(jī)教研室計(jì)算機(jī)教研室3.1.1 3.1.1 窗體的屬性、方法與事件窗體的屬性、方法與事件3.1.2 3.1.2 定制窗體屬性定制窗體屬性3.1.3 3.1.3 窗體的顯示、隱藏和卸載窗體的顯示、隱藏和卸載3.1.4 3.1.4 PrintPrint方法方法徐州醫(yī)學(xué)院徐州醫(yī)學(xué)院VBVB教程教程公共

2、教育學(xué)院公共教育學(xué)院 計(jì)算機(jī)教研室計(jì)算機(jī)教研室3.1.1 窗體的屬性、方法與事件屬性名屬性名分類分類描述描述缺省值缺省值名稱名稱（NameName）雜項(xiàng)雜項(xiàng)窗體對象引用名窗體對象引用名Form1Form1CaptionCaption外觀外觀窗體標(biāo)題窗體標(biāo)題Form1Form1BackColorBackColor外觀外觀返回或設(shè)置對象中文本和返回或設(shè)置對象中文本和圖形的背景色圖形的背景色ForeColorForeColor外觀外觀返回或設(shè)置對象中文本和返回或設(shè)置對象中文本和圖形的前景色圖形的前景色BorderStyBorderStylele外觀外觀返回或設(shè)置對象的邊框樣返回或設(shè)置對象的邊框樣式式

3、2 2EnabledEnabled行為行為決定對象是否活動(dòng)決定對象是否活動(dòng)TrueTrue徐州醫(yī)學(xué)院徐州醫(yī)學(xué)院VBVB教程教程公共教育學(xué)院公共教育學(xué)院 計(jì)算機(jī)教研室計(jì)算機(jī)教研室3.1.1 窗體的屬性、方法與事件VisibleVisible行為行為決定對象是否可見決定對象是否可見TrueTrueFontFont字體字體用于設(shè)置文本對象的字體、用于設(shè)置文本對象的字體、字型、字號(hào)等字型、字號(hào)等MoveableMoveable位置位置決定窗體能否被移動(dòng)決定窗體能否被移動(dòng)TrueTrueLeftLeft位置位置對象左邊界距容器坐標(biāo)系對象左邊界距容器坐標(biāo)系縱軸的距離縱軸的距離TopTop位置位置對象上邊界

4、距容器坐標(biāo)系對象上邊界距容器坐標(biāo)系橫軸的距離橫軸的距離WidthWidth位置位置對象的寬度對象的寬度HeightHeight位置位置對象的高度對象的高度PicturePicture外觀外觀返回或設(shè)置對象中的圖形返回或設(shè)置對象中的圖形徐州醫(yī)學(xué)院徐州醫(yī)學(xué)院VBVB教程教程公共教育學(xué)院公共教育學(xué)院 計(jì)算機(jī)教研室計(jì)算機(jī)教研室窗體邊框風(fēng)格設(shè)定值設(shè)定值常常 量量風(fēng)風(fēng) 格格0 0vbBSNonevbBSNone窗口無外框窗口無外框；1 1vbFixedSinglevbFixedSingle單線外框，運(yùn)行時(shí)窗口大小不可改變；單線外框，運(yùn)行時(shí)窗口大小不可改變；2 2vbSizablevbSizable( (缺

5、省值）雙線外框，運(yùn)行時(shí)可改變窗口大缺省值）雙線外框，運(yùn)行時(shí)可改變窗口大??；小；3 3vbFixedDoublevbFixedDouble雙線外框，運(yùn)行時(shí)窗口大小不可改變；雙線外框，運(yùn)行時(shí)窗口大小不可改變；4 4vbFixedToolWinvbFixedToolWindowdow包含一個(gè)關(guān)閉按鈕，標(biāo)題欄字體縮小，窗口大小包含一個(gè)關(guān)閉按鈕，標(biāo)題欄字體縮小，窗口大小不可改變，在不可改變，在Windows95Windows95任務(wù)欄不會(huì)顯示；任務(wù)欄不會(huì)顯示；5 5vbSizableToolWivbSizableToolWindowndow包含一個(gè)關(guān)閉按鈕，標(biāo)題欄字體縮小，窗口大小包含一個(gè)關(guān)閉按鈕，標(biāo)題

6、欄字體縮小，窗口大小可以改變，在可以改變，在Windows95Windows95任務(wù)欄不會(huì)顯示任務(wù)欄不會(huì)顯示。返回徐州醫(yī)學(xué)院徐州醫(yī)學(xué)院VBVB教程教程公共教育學(xué)院公共教育學(xué)院 計(jì)算機(jī)教研室計(jì)算機(jī)教研室常用窗體方法Hide：隱藏方法：隱藏方法Show：顯示方法；：顯示方法；Move：移動(dòng)方法：移動(dòng)方法Print：打印方法；：打印方法；Cls：清除方法：清除方法 徐州醫(yī)學(xué)院徐州醫(yī)學(xué)院VBVB教程教程公共教育學(xué)院公共教育學(xué)院 計(jì)算機(jī)教研室計(jì)算機(jī)教研室常用窗體事件Click：單擊事件；：單擊事件；DblClick：雙擊事件；：雙擊事件；Load：裝載事件：裝載事件.當(dāng)使用當(dāng)使用 Load 語句啟動(dòng)應(yīng)用

7、程序，語句啟動(dòng)應(yīng)用程序，或引用未裝載的窗體屬性或控件時(shí)，此事件發(fā)生?；蛞梦囱b載的窗體屬性或控件時(shí)，此事件發(fā)生。 Resize：在窗體被改變大小時(shí)，會(huì)觸發(fā)本事件；：在窗體被改變大小時(shí)，會(huì)觸發(fā)本事件；Activate：激活事件，當(dāng)窗體變?yōu)楫?dāng)前窗口時(shí)，引發(fā)：激活事件，當(dāng)窗體變?yōu)楫?dāng)前窗口時(shí)，引發(fā)本事件；本事件；Deactivate：失去激活事件：失去激活事件 徐州醫(yī)學(xué)院徐州醫(yī)學(xué)院VBVB教程教程公共教育學(xué)院公共教育學(xué)院 計(jì)算機(jī)教研室計(jì)算機(jī)教研室3.1.2 定制/設(shè)置窗體屬性1、在設(shè)計(jì)狀態(tài)下通過屬性窗口進(jìn)行設(shè)定、在設(shè)計(jì)狀態(tài)下通過屬性窗口進(jìn)行設(shè)定2、在程序代碼中進(jìn)行設(shè)置、在程序代碼中進(jìn)行設(shè)置Object

8、.Property = Expression例如：例如：Form1.caption=“考試系統(tǒng)考試系統(tǒng)”特別注意：某些屬性只能在代碼中進(jìn)行設(shè)置或改變特別注意：某些屬性只能在代碼中進(jìn)行設(shè)置或改變徐州醫(yī)學(xué)院徐州醫(yī)學(xué)院VBVB教程教程公共教育學(xué)院公共教育學(xué)院 計(jì)算機(jī)教研室計(jì)算機(jī)教研室3.1.3 窗體的顯示、隱藏和卸載 1. 顯示與隱藏窗體顯示與隱藏窗體 使用使用Show與與Hide方法方法Object.Method p1,p2,2. 裝載窗體與裝載窗體與Load事件事件 使用Load語句可把窗體載入內(nèi)存 Load Object3. 卸載窗體與卸載窗體與Unload事件事件4. End語句語句徐州醫(yī)學(xué)

9、院徐州醫(yī)學(xué)院VBVB教程教程公共教育學(xué)院公共教育學(xué)院 計(jì)算機(jī)教研室計(jì)算機(jī)教研室Show方法方法：窗體名窗體名. Show Style參數(shù)參數(shù)Style取值為：取值為：1 或者或者vbModel 有模式，例如有模式，例如windows 窗口窗口 0 或者或者vbModeless 無模式（缺省）無模式（缺?。?例如例如VB環(huán)環(huán)境境 當(dāng)當(dāng) Show 在顯示無模式窗體時(shí)，隨后遇到的代在顯示無模式窗體時(shí)，隨后遇到的代碼則要執(zhí)行。當(dāng)碼則要執(zhí)行。當(dāng) Show 在顯示模式窗體在顯示模式窗體 (modal form) 時(shí)，則隨后的代碼直到該窗體被隱藏或時(shí)，則隨后的代碼直到該窗體被隱藏或卸載時(shí)才能執(zhí)行。卸載時(shí)才能

10、執(zhí)行。 徐州醫(yī)學(xué)院徐州醫(yī)學(xué)院VBVB教程教程公共教育學(xué)院公共教育學(xué)院 計(jì)算機(jī)教研室計(jì)算機(jī)教研室3.1.4數(shù)據(jù)輸出Print方法 PrintPrint方法方法 Print方法可以在窗體上顯示文本字符串方法可以在窗體上顯示文本字符串和表達(dá)式的值，并可在其他圖形對象或打印和表達(dá)式的值，并可在其他圖形對象或打印機(jī)上輸出信息。機(jī)上輸出信息。徐州醫(yī)學(xué)院徐州醫(yī)學(xué)院VBVB教程教程公共教育學(xué)院公共教育學(xué)院 計(jì)算機(jī)教研室計(jì)算機(jī)教研室其一般格式為：其一般格式為： 對象名稱對象名稱.Print.Print表達(dá)式表表達(dá)式表,|;,|; 1 1、“對象名稱對象名稱”可以是可以是窗體（窗體（FormForm）、圖片框圖片

11、框（PictureBoxPictureBox）或打印機(jī)（）或打印機(jī)（PrinterPrinter），也可以是），也可以是立即窗口（立即窗口（DebugDebug） 2 2、“表達(dá)式表表達(dá)式表”是一個(gè)或多個(gè)表達(dá)式，可以是數(shù)值是一個(gè)或多個(gè)表達(dá)式，可以是數(shù)值表達(dá)式或字符串表達(dá)式或字符串 3 3、如果輸出的各表達(dá)式之間用、如果輸出的各表達(dá)式之間用逗號(hào)逗號(hào)分隔，則按分隔，則按標(biāo)準(zhǔn)標(biāo)準(zhǔn)輸出格式顯示數(shù)據(jù)項(xiàng)輸出格式顯示數(shù)據(jù)項(xiàng)；如果各輸出項(xiàng)之間用；如果各輸出項(xiàng)之間用分號(hào)或分號(hào)或空格作分隔符，則按緊湊輸出格式輸出數(shù)據(jù)。空格作分隔符，則按緊湊輸出格式輸出數(shù)據(jù)。例如例如 以14個(gè)字符位置為單位把一個(gè)輸出行分為若干個(gè)區(qū)

12、段，逗號(hào)后面的表達(dá)式在下一個(gè)區(qū)段輸出 不同段的文字中間相隔一個(gè)空格，但是如果是字符串的情況下，就不會(huì)有空格如果是字符串前后就不會(huì)有空格 徐州醫(yī)學(xué)院徐州醫(yī)學(xué)院VBVB教程教程公共教育學(xué)院公共教育學(xué)院 計(jì)算機(jī)教研室計(jì)算機(jī)教研室4、print方法具有計(jì)算和輸出雙重功能，對于表達(dá)式，先方法具有計(jì)算和輸出雙重功能，對于表達(dá)式，先計(jì)算后輸出。計(jì)算后輸出。Print沒有賦值功能沒有賦值功能。例如：例如：a=3,b=4 Print (a+b)*3問題：問題： Print c= (a+b)*3 輸出的結(jié)果是什么？輸出的結(jié)果是什么？5、每執(zhí)行以、每執(zhí)行以print方法都要自動(dòng)換行，為了仍能在同一行方法都要自動(dòng)換行

13、，為了仍能在同一行顯示，可以在末尾加上一個(gè)分號(hào)或逗號(hào)。顯示，可以在末尾加上一個(gè)分號(hào)或逗號(hào)。6、有一些、有一些函數(shù)函數(shù)可以和可以和print一起控制輸出的格式一起控制輸出的格式徐州醫(yī)學(xué)院徐州醫(yī)學(xué)院VBVB教程教程公共教育學(xué)院公共教育學(xué)院 計(jì)算機(jī)教研室計(jì)算機(jī)教研室Print輸出格式說明例如： Dim a As integer, b As integer a = 100: b = 300Print a,bPrint a;b 輸出結(jié)果為： 100 300 /100和300之前相隔14個(gè)字符位置 100 300 /在VB中輸出數(shù)值數(shù)據(jù)時(shí)數(shù)值的前面有一個(gè)符號(hào) 位，后面有一個(gè)空格。對于分號(hào)情況，如果是字符串

14、，前后就不會(huì)有空格，例如：Print “你好”；”小熊”Print”你好小熊”結(jié)果：你好小熊你好小熊徐州醫(yī)學(xué)院徐州醫(yī)學(xué)院VBVB教程教程公共教育學(xué)院公共教育學(xué)院 計(jì)算機(jī)教研室計(jì)算機(jī)教研室TabTab函數(shù)函數(shù) SpcSpc函數(shù)函數(shù) 空格函數(shù)（空格函數(shù)（Space$Space$）與Print方法有關(guān)的函數(shù) 徐州醫(yī)學(xué)院徐州醫(yī)學(xué)院VBVB教程教程公共教育學(xué)院公共教育學(xué)院 計(jì)算機(jī)教研室計(jì)算機(jī)教研室Tab函數(shù)格式：格式：Tab (n)Tab函數(shù)把光標(biāo)移到由參數(shù)函數(shù)把光標(biāo)移到由參數(shù)n指定的列指定的列(從從1開始計(jì)數(shù)，如開始計(jì)數(shù)，如果果n1）徐州醫(yī)學(xué)院徐州醫(yī)學(xué)院VBVB教程教程公共教育學(xué)院公共教育學(xué)院 計(jì)算機(jī)

15、教研室計(jì)算機(jī)教研室4、 ListCount屬性屬性 列表框中的條目數(shù)列表框中的條目數(shù) ListCount（只讀屬性）（只讀屬性）在設(shè)計(jì)時(shí)不可用在設(shè)計(jì)時(shí)不可用，只能在程序中，只能在程序中使用。列表框中的表項(xiàng)的排列使用。列表框中的表項(xiàng)的排列從從0開始，最后一項(xiàng)的序號(hào)為開始，最后一項(xiàng)的序號(hào)為ListCount-1，例如：例如： x=List1.ListCount 則則X的值為列表框的值為列表框List1中的總項(xiàng)數(shù)中的總項(xiàng)數(shù)徐州醫(yī)學(xué)院徐州醫(yī)學(xué)院VBVB教程教程公共教育學(xué)院公共教育學(xué)院 計(jì)算機(jī)教研室計(jì)算機(jī)教研室5、List屬性屬性設(shè)置列表框中包含的項(xiàng)設(shè)置列表框中包含的項(xiàng) 用來列出表項(xiàng)的內(nèi)容，用來列出表項(xiàng)

16、的內(nèi)容， List 屬性實(shí)質(zhì)上是個(gè)一屬性實(shí)質(zhì)上是個(gè)一維字符串?dāng)?shù)組，其下界為維字符串?dāng)?shù)組，其下界為0，上界為，上界為 ListCount-1 。每一元素存放列表框中的一個(gè)條目。每一元素存放列表框中的一個(gè)條目。List 屬性和屬性和 ListCount、ListIndex 屬性結(jié)合起來屬性結(jié)合起來使用使用。徐州醫(yī)學(xué)院徐州醫(yī)學(xué)院VBVB教程教程公共教育學(xué)院公共教育學(xué)院 計(jì)算機(jī)教研室計(jì)算機(jī)教研室其格式是：其格式是：.List()=例如：例如：Listl.List(0)“漢族漢族” 把把Listl的第一行的文本定義為的第一行的文本定義為“漢族漢族”。 可以通過下標(biāo)訪問數(shù)組中的值（從可以通過下標(biāo)訪問數(shù)組中

17、的值（從0開始），格開始），格式為：式為： S$=列表框列表框.List（下標(biāo)）（下標(biāo)） 例如：例如： S$=List1.list(5)將列出列表框?qū)⒘谐隽斜砜騆ist1中第六項(xiàng)的內(nèi)容中第六項(xiàng)的內(nèi)容徐州醫(yī)學(xué)院徐州醫(yī)學(xué)院VBVB教程教程公共教育學(xué)院公共教育學(xué)院 計(jì)算機(jī)教研室計(jì)算機(jī)教研室6、ListIndex屬性屬性v 表示當(dāng)前所選條目的序號(hào)（表示當(dāng)前所選條目的序號(hào)（0 ListCount-1）；）；v 若列表框支持多選，則若列表框支持多選，則ListIndex屬性的值是最后一個(gè)屬性的值是最后一個(gè)被選中條目的序號(hào)；被選中條目的序號(hào)；v 若沒有條目被選中，則此屬性的值為若沒有條目被選中，則此屬性的值

18、為-1。只能在程序。只能在程序中使用。中使用。徐州醫(yī)學(xué)院徐州醫(yī)學(xué)院VBVB教程教程公共教育學(xué)院公共教育學(xué)院 計(jì)算機(jī)教研室計(jì)算機(jī)教研室7、MultiSelect屬性屬性設(shè)置是否能夠選擇多項(xiàng)設(shè)置是否能夠選擇多項(xiàng) MultiSelect = 0：不允許復(fù)選（缺省值）不允許復(fù)選（缺省值） 。 MultiSelect = 1：簡單復(fù)選。鼠標(biāo)單擊或按下空格鍵，在簡單復(fù)選。鼠標(biāo)單擊或按下空格鍵，在列表中選中或取消選中項(xiàng)列表中選中或取消選中項(xiàng),使用箭頭鍵移動(dòng)焦點(diǎn)。使用箭頭鍵移動(dòng)焦點(diǎn)。MultiSelect = 2：擴(kuò)展復(fù)選。擴(kuò)展復(fù)選。按下按下 SHIFT 并單擊鼠標(biāo)并單擊鼠標(biāo)或或按箭頭鍵按箭頭鍵選擇連續(xù)的多項(xiàng)

19、選擇連續(xù)的多項(xiàng)。按下按下 CTRL 并單擊鼠標(biāo)并單擊鼠標(biāo)選擇不選擇不連續(xù)的多項(xiàng)（或取消選中項(xiàng)）。連續(xù)的多項(xiàng)（或取消選中項(xiàng)）。 MultiSelect 屬性在運(yùn)行時(shí)是只讀的，也就是說不能利屬性在運(yùn)行時(shí)是只讀的，也就是說不能利用程序代碼改變它的值。用程序代碼改變它的值。徐州醫(yī)學(xué)院徐州醫(yī)學(xué)院VBVB教程教程公共教育學(xué)院公共教育學(xué)院 計(jì)算機(jī)教研室計(jì)算機(jī)教研室Style 屬性屬性控制列表框的外觀控制列表框的外觀Style=0：默認(rèn)值，標(biāo)準(zhǔn)樣式，單擊選項(xiàng)即可選中。：默認(rèn)值，標(biāo)準(zhǔn)樣式，單擊選項(xiàng)即可選中。Style=1：復(fù)選框樣式，列表框的每個(gè)項(xiàng)目以復(fù)選框：復(fù)選框樣式，列表框的每個(gè)項(xiàng)目以復(fù)選框的形式的形式顯示

20、（不受顯示（不受MultiSelect屬性的影響）。屬性的影響）。Style屬性屬性在運(yùn)行時(shí)是只讀的。在運(yùn)行時(shí)是只讀的。 Style=0Style=1徐州醫(yī)學(xué)院徐州醫(yī)學(xué)院VBVB教程教程公共教育學(xué)院公共教育學(xué)院 計(jì)算機(jī)教研室計(jì)算機(jī)教研室10、Selected屬性屬性Selected屬性是一個(gè)邏輯型數(shù)組屬性是一個(gè)邏輯型數(shù)組（與（與List 和和ItemData屬性類似）屬性類似），其中的每個(gè)元素對應(yīng)列表框中的一個(gè)選項(xiàng)的選擇狀態(tài)：其中的每個(gè)元素對應(yīng)列表框中的一個(gè)選項(xiàng)的選擇狀態(tài)：List1.Selected(i)=True時(shí)，對應(yīng)項(xiàng)被選中；時(shí)，對應(yīng)項(xiàng)被選中；List1.Selected(i)=Fal

21、se時(shí)，對應(yīng)項(xiàng)沒有選中。時(shí)，對應(yīng)項(xiàng)沒有選中。Selected屬性的語法為：屬性的語法為：列表框名列表框名.Selected()=此屬性不能在屬性窗口中使用此屬性不能在屬性窗口中使用例如：例如：List1.Selected(1)=true徐州醫(yī)學(xué)院徐州醫(yī)學(xué)院VBVB教程教程公共教育學(xué)院公共教育學(xué)院 計(jì)算機(jī)教研室計(jì)算機(jī)教研室11、Text屬性屬性列表框中最后一次所選條目對應(yīng)的文字，列表框中最后一次所選條目對應(yīng)的文字，Text屬性為只讀屬性屬性為只讀屬性。12、Sorted屬性屬性指示列表框中的條目是否排序。指示列表框中的條目是否排序。Sorted屬性值為屬性值為True，則選項(xiàng)按字母順序升序，則選

22、項(xiàng)按字母順序升序排列，否則按輸入的順序排列。排列，否則按輸入的順序排列。Sorted屬性為只讀屬性屬性為只讀屬性徐州醫(yī)學(xué)院徐州醫(yī)學(xué)院VBVB教程教程公共教育學(xué)院公共教育學(xué)院 計(jì)算機(jī)教研室計(jì)算機(jī)教研室 1、AddItem向列表框中添加新條目向列表框中添加新條目格式：格式： 列表框名列表框名.AddItem 字符串表達(dá)式字符串表達(dá)式 ,插入位置序號(hào)插入位置序號(hào) 若不指定插入位置，且若不指定插入位置，且Sorted = False，則插入到列表尾；，則插入到列表尾；否則插入到適當(dāng)位置。否則插入到適當(dāng)位置。 例如：例如：List1.AddItem “王平王平” ，0列表框方法列表框方法徐州醫(yī)學(xué)院徐州醫(yī)

23、學(xué)院VBVB教程教程公共教育學(xué)院公共教育學(xué)院 計(jì)算機(jī)教研室計(jì)算機(jī)教研室2、RemoveItem方法方法刪除指定列表項(xiàng)刪除指定列表項(xiàng) 格式：格式：列表框名列表框名.RemoveItem 刪除項(xiàng)序號(hào)刪除項(xiàng)序號(hào) 該方法一次只能刪除一個(gè)項(xiàng)目。該方法一次只能刪除一個(gè)項(xiàng)目。 例如：例如：List1. RemoveItem 0 3、Clear方法方法刪除列表框中的所有項(xiàng)。刪除列表框中的所有項(xiàng)。 格式：格式：列表框?qū)ο竺斜砜驅(qū)ο竺?Clear4、Move方法方法徐州醫(yī)學(xué)院徐州醫(yī)學(xué)院VBVB教程教程公共教育學(xué)院公共教育學(xué)院 計(jì)算機(jī)教研室計(jì)算機(jī)教研室列表框事件列表框接收列表框接收Click事件、事件、 Dbcl

24、ick事件事件通常把列表框和命令按鈕組合使用通常把列表框和命令按鈕組合使用例例: 交換兩個(gè)列表框中的項(xiàng)目交換兩個(gè)列表框中的項(xiàng)目徐州醫(yī)學(xué)院徐州醫(yī)學(xué)院VBVB教程教程公共教育學(xué)院公共教育學(xué)院 計(jì)算機(jī)教研室計(jì)算機(jī)教研室5、組合框（ComboBox） 組合框由一個(gè)列表框和一個(gè)文本框組成，用戶既可以組合框由一個(gè)列表框和一個(gè)文本框組成，用戶既可以像在文本框一樣在組合框中直接輸入文本來選定項(xiàng)目，像在文本框一樣在組合框中直接輸入文本來選定項(xiàng)目，也可從列表中選定項(xiàng)目。也可從列表中選定項(xiàng)目。 組合框具備列表框的屬性。組合框具備列表框的屬性。組合框的屬性組合框的屬性：Text、List、ListIndex、List

25、Count和和Selected屬性屬性方法方法：AddItem、RemoveItem、Clear事件事件：Click、DbClick。徐州醫(yī)學(xué)院徐州醫(yī)學(xué)院VBVB教程教程公共教育學(xué)院公共教育學(xué)院 計(jì)算機(jī)教研室計(jì)算機(jī)教研室組合框另外具有與列表框不同的屬性組合框另外具有與列表框不同的屬性StyleStyle組合框樣式由組合框樣式由Style屬性來控制，如表所示：屬性來控制，如表所示：組合框組合框Style屬性設(shè)置屬性設(shè)置設(shè)置值設(shè)置值VB常數(shù)常數(shù)說明說明0vbComboDropDown（缺省值）下拉式組合框。包括一個(gè)下拉式列（缺省值）下拉式組合框。包括一個(gè)下拉式列表和一個(gè)文本框，表和一個(gè)文本框，（可

26、輸入文本可下拉）（可輸入文本可下拉）1vbComboSimple簡單組合框。包括一個(gè)文本框和一個(gè)不能下拉簡單組合框。包括一個(gè)文本框和一個(gè)不能下拉的列表的列表（可輸入文本不能下拉）（可輸入文本不能下拉）2vbComboDropDownList下拉式列表框。僅允許從下拉式列表中選擇下拉式列表框。僅允許從下拉式列表中選擇（不能輸入文本可下拉）（不能輸入文本可下拉）徐州醫(yī)學(xué)院徐州醫(yī)學(xué)院VBVB教程教程公共教育學(xué)院公共教育學(xué)院 計(jì)算機(jī)教研室計(jì)算機(jī)教研室6、 圖形控件 VB 6.0包含包含4個(gè)圖形控件：個(gè)圖形控件：pictureBox控件控件Image控件控件Shape控件控件Line控件控件 徐州醫(yī)學(xué)院

27、徐州醫(yī)學(xué)院VBVB教程教程公共教育學(xué)院公共教育學(xué)院 計(jì)算機(jī)教研室計(jì)算機(jī)教研室圖片框、圖像框的屬性、事件和方法 PictureBox稱為稱為圖片框圖片框Image控件稱為控件稱為圖像框圖像框 圖片框和圖像框可以顯示的圖像文件格式有：圖片框和圖像框可以顯示的圖像文件格式有： 位圖文件位圖文件(BMP)、圖標(biāo)文件、圖標(biāo)文件(ICO)、JPEG格式文件、格式文件、GIF格式文件。格式文件。 徐州醫(yī)學(xué)院徐州醫(yī)學(xué)院VBVB教程教程公共教育學(xué)院公共教育學(xué)院 計(jì)算機(jī)教研室計(jì)算機(jī)教研室與窗體屬性相同的屬性1、Name 屬性屬性對象名對象名2、Left , Top , Width , Height , Visib

28、le, Enabled屬性屬性 3、BorderStyle 屬性屬性邊框樣式邊框樣式 0：無邊框：無邊框 1：有邊框（默認(rèn)）：有邊框（默認(rèn)）4、FontBold等字體屬性等字體屬性徐州醫(yī)學(xué)院徐州醫(yī)學(xué)院VBVB教程教程公共教育學(xué)院公共教育學(xué)院 計(jì)算機(jī)教研室計(jì)算機(jī)教研室5、Picture 屬性屬性 Picture 屬性用于窗體、圖片框和圖象框，它可以通過屬屬性用于窗體、圖片框和圖象框，它可以通過屬性窗口設(shè)置，用來把圖形放入這些對象中。性窗口設(shè)置，用來把圖形放入這些對象中。6、 Stretch屬性只用于圖象框?qū)傩灾挥糜趫D象框來指定一個(gè)圖形是否要調(diào)整大來指定一個(gè)圖形是否要調(diào)整大小，以適應(yīng)圖像框控件的大

29、?。ㄐ?，以適應(yīng)圖像框控件的大?。═rue：縮放圖像；：縮放圖像；False（默認(rèn)值）：圖像以原始大小顯示）。（默認(rèn)值）：圖像以原始大小顯示）。其語法為：其語法為： .Stretch =徐州醫(yī)學(xué)院徐州醫(yī)學(xué)院VBVB教程教程公共教育學(xué)院公共教育學(xué)院 計(jì)算機(jī)教研室計(jì)算機(jī)教研室圖形文件的裝入1、圖片框與圖象框的區(qū)別、圖片框與圖象框的區(qū)別（1）圖片框（）圖片框（ PictureBox ）是容器控件，而圖象框）是容器控件，而圖象框（ Image ）不是。）不是。（2）圖片框可以通過）圖片框可以通過Print方法接收文本，而圖象框不能。方法接收文本，而圖象框不能。（3）圖象框比圖片框占用的內(nèi)存少，顯示速度快

30、。）圖象框比圖片框占用的內(nèi)存少，顯示速度快。徐州醫(yī)學(xué)院徐州醫(yī)學(xué)院VBVB教程教程公共教育學(xué)院公共教育學(xué)院 計(jì)算機(jī)教研室計(jì)算機(jī)教研室2、在設(shè)計(jì)階段裝入圖形文件、在設(shè)計(jì)階段裝入圖形文件（1）用屬性窗口中的）用屬性窗口中的Picture屬性裝入屬性裝入（2）通過）通過“復(fù)制復(fù)制”、“粘貼粘貼”命令裝入窗體、圖片框或圖形命令裝入窗體、圖片框或圖形框?？颉Ｐ熘葆t(yī)學(xué)院徐州醫(yī)學(xué)院VBVB教程教程公共教育學(xué)院公共教育學(xué)院 計(jì)算機(jī)教研室計(jì)算機(jī)教研室3、在運(yùn)行期間裝入圖形文件、在運(yùn)行期間裝入圖形文件LoadPicture函數(shù)函數(shù) LoadPicture函數(shù)用于在代碼中將圖形載入到窗體、函數(shù)用于在代碼中將圖形載入到

31、窗體、PictureBox 控件或控件或 Image 控件中?？丶小?其語法為：其語法為： LoadPicture()Picture1.PictureLoadPicture(D:usoscap.bmp)說明：說明：不帶參數(shù)的不帶參數(shù)的LoadPicture( )函數(shù)，是使圖像控件函數(shù)，是使圖像控件不顯示任何圖像，使該圖片框變?yōu)榭瞻撞伙@示任何圖像，使該圖片框變?yōu)榭瞻?用來刪除圖象用來刪除圖象.徐州醫(yī)學(xué)院徐州醫(yī)學(xué)院VBVB教程教程公共教育學(xué)院公共教育學(xué)院 計(jì)算機(jī)教研室計(jì)算機(jī)教研室 編程實(shí)現(xiàn)編程實(shí)現(xiàn)三個(gè)圖片框中圖片的輪換三個(gè)圖片框中圖片的輪換，并使得一個(gè)圖片，并使得一個(gè)圖片框中可以顯示整個(gè)圖片?？?/p>

32、中可以顯示整個(gè)圖片。（1 1）界面設(shè)計(jì)）界面設(shè)計(jì) 在窗體上添加如圖所示三個(gè)圖片框控件在窗體上添加如圖所示三個(gè)圖片框控件Picture1、Picture2、Picture3。將。將Picture3的的AutoSize屬性屬性設(shè)置為設(shè)置為True。其他屬性值為默認(rèn)值。其他屬性值為默認(rèn)值。 （a）設(shè)計(jì)時(shí)界面）設(shè)計(jì)時(shí)界面（b）運(yùn)行時(shí)界面）運(yùn)行時(shí)界面（c）響應(yīng)事件）響應(yīng)事件徐州醫(yī)學(xué)院徐州醫(yī)學(xué)院VBVB教程教程公共教育學(xué)院公共教育學(xué)院 計(jì)算機(jī)教研室計(jì)算機(jī)教研室（2）事件代碼）事件代碼PrivateSubForm_Load()Picture1.Picture=LoadPicture(c:steamship.

33、gif)Picture2.Picture=LoadPicture(c:bus.gif)Picture3.Picture=LoadPicture(c:car.gif)EndSubPrivateSubPicture3_Click()Form1.Picture=Picture3.PicturePicture3.Picture=Picture2.PicturePicture2.Picture=Picture1.PicturePicture1.Picture=Form1.PictureForm1.Picture=LoadPicture()EndSub徐州醫(yī)學(xué)院徐州醫(yī)學(xué)院VBVB教程教程公共教育學(xué)院公共教

34、育學(xué)院 計(jì)算機(jī)教研室計(jì)算機(jī)教研室直線和形狀 Shape、Line控件為輕量圖形控件，比控件為輕量圖形控件，比PictureBox控件控件顯示速度快。顯示速度快。 Shape控件和控件和Line控件不支持任何事件?？丶恢С秩魏问录Ｐ熘葆t(yī)學(xué)院徐州醫(yī)學(xué)院VBVB教程教程公共教育學(xué)院公共教育學(xué)院 計(jì)算機(jī)教研室計(jì)算機(jī)教研室主要屬性：主要屬性：BorderColor BoderStyle （7種值）種值）BoderWidth （邊界寬度）（邊界寬度）BackStyleBackStyle （0 0為透明，為透明，1 1為不透明）為不透明）FillColorFillColor FillStyleFillS

35、tyle （8 8種值）種值）徐州醫(yī)學(xué)院徐州醫(yī)學(xué)院VBVB教程教程公共教育學(xué)院公共教育學(xué)院 計(jì)算機(jī)教研室計(jì)算機(jī)教研室Shape控件的Shape屬性圖4-8 Shape屬性確定的形狀表表4-4 Shape控件的預(yù)定義圖形控件的預(yù)定義圖形圖形名稱圖形名稱數(shù)值數(shù)值常量常量矩形矩形0vbShapeRectangle正方形正方形1vbShapeSquare橢圓形橢圓形2vbShapeOval圓形圓形3vbShapeCircle圓角矩形圓角矩形4vbShapeRoundedRectangle圓角正方形圓角正方形5vbShapeRoundedSquare徐州醫(yī)學(xué)院徐州醫(yī)學(xué)院VBVB教程教程公共教育學(xué)院公共教

36、育學(xué)院 計(jì)算機(jī)教研室計(jì)算機(jī)教研室7 7、選擇控件、選擇控件 復(fù)選框和單選按鈕復(fù)選框和單選按鈕復(fù)選框（復(fù)選框（CheckBox） 復(fù)選框通過復(fù)選框通過 Value 屬性指示其所處的狀態(tài)。屬性指示其所處的狀態(tài)。 無論何時(shí)，無論何時(shí)，當(dāng)用戶單擊復(fù)選框時(shí)都將觸發(fā)其當(dāng)用戶單擊復(fù)選框時(shí)都將觸發(fā)其Click 事件。事件。 徐州醫(yī)學(xué)院徐州醫(yī)學(xué)院VBVB教程教程公共教育學(xué)院公共教育學(xué)院 計(jì)算機(jī)教研室計(jì)算機(jī)教研室單選框（單選框（OptionButton又稱為選項(xiàng)按鈕）又稱為選項(xiàng)按鈕） 也是提供選擇項(xiàng)的控件，它是從多個(gè)可選項(xiàng)中選擇一項(xiàng)也是提供選擇項(xiàng)的控件，它是從多個(gè)可選項(xiàng)中選擇一項(xiàng)的操作。的操作。 單選框單選框和和

37、復(fù)選框復(fù)選框看起來相似。因此，可以把復(fù)選框中的看起來相似。因此，可以把復(fù)選框中的操作方法用到單選框上來。操作方法用到單選框上來。 它們之間的區(qū)別是：它們之間的區(qū)別是：單選框一般用于單項(xiàng)選擇，而復(fù)選單選框一般用于單項(xiàng)選擇，而復(fù)選框則可以用于多項(xiàng)選擇?？騽t可以用于多項(xiàng)選擇。 徐州醫(yī)學(xué)院徐州醫(yī)學(xué)院VBVB教程教程公共教育學(xué)院公共教育學(xué)院 計(jì)算機(jī)教研室計(jì)算機(jī)教研室單選框和復(fù)選框的重要屬性、事件和方法單選框和復(fù)選框的重要屬性、事件和方法1、Name 屬性屬性對象名對象名2、Left、Top、Width、Height、Visible、 Enabled 屬性屬性3、Caption屬性屬性標(biāo)題文字標(biāo)題文字4、

38、Style 屬性屬性選框的樣式選框的樣式 0：標(biāo)準(zhǔn)樣式（默認(rèn)）顯示：標(biāo)準(zhǔn)樣式（默認(rèn)）顯示 1：以命令按鈕的樣式顯示：以命令按鈕的樣式顯示復(fù)選框（左）和單選按鈕（右）復(fù)選框（左）和單選按鈕（右） 復(fù)選框和單選按鈕（未選中狀態(tài)）復(fù)選框和單選按鈕（未選中狀態(tài)） 復(fù)選框和單選按鈕（選中狀態(tài)）復(fù)選框和單選按鈕（選中狀態(tài)）徐州醫(yī)學(xué)院徐州醫(yī)學(xué)院VBVB教程教程公共教育學(xué)院公共教育學(xué)院 計(jì)算機(jī)教研室計(jì)算機(jī)教研室5、Alignment 屬性屬性 0：框在文字左邊（默認(rèn)）：框在文字左邊（默認(rèn)） 1：框在文字右邊：框在文字右邊6、 Value 屬性屬性復(fù)選框復(fù)選框： Value=0 表示未選中（默認(rèn)）表示未選中（默

39、認(rèn)） Value=1 表示選中表示選中 Value=2 復(fù)選框?yàn)榛疑?，表示禁止用戶?fù)選框?yàn)榛疑硎窘褂脩?選擇。選擇。單選框單選框： Value = True 表示選中表示選中 Value = False 表示未選中（默認(rèn)）表示未選中（默認(rèn)）7、 Move方法方法8、Click事件事件 例題例題徐州醫(yī)學(xué)院徐州醫(yī)學(xué)院VBVB教程教程公共教育學(xué)院公共教育學(xué)院 計(jì)算機(jī)教研室計(jì)算機(jī)教研室8、 框架 在在VB6.0中，可以作為其他對象容器除窗體和圖片控件中，可以作為其他對象容器除窗體和圖片控件外，還有框架控件（外，還有框架控件（Frame）。）。 在容器中的控件，可以隨載體同時(shí)移動(dòng)，控件的位置在容器

40、中的控件，可以隨載體同時(shí)移動(dòng)，控件的位置也相對容器的位置而設(shè)置。也相對容器的位置而設(shè)置。 Frame控件不僅可以作為其他控件的載體，而且可用控件不僅可以作為其他控件的載體，而且可用它將其他控件分成可標(biāo)識(shí)的控件組。它將其他控件分成可標(biāo)識(shí)的控件組。例如，用例如，用Frame控件對控件對OptionButton控件分組等?？丶纸M等。 徐州醫(yī)學(xué)院徐州醫(yī)學(xué)院VBVB教程教程公共教育學(xué)院公共教育學(xué)院 計(jì)算機(jī)教研室計(jì)算機(jī)教研室1. 屬性屬性（1）Caption屬性屬性 Caption屬性設(shè)定框架上的標(biāo)題名稱。如果屬性設(shè)定框架上的標(biāo)題名稱。如果Caption為空為空字符，則框架為封閉的矩形框，但區(qū)別于矩形控

41、件。字符，則框架為封閉的矩形框，但區(qū)別于矩形控件。（2）Enabled屬性屬性 當(dāng)當(dāng)Enabled為為False時(shí)，程序運(yùn)行時(shí)該框架在窗體中的標(biāo)時(shí)，程序運(yùn)行時(shí)該框架在窗體中的標(biāo)題正文為灰色，表示框架中的所有對象均被屏蔽，不允許題正文為灰色，表示框架中的所有對象均被屏蔽，不允許用戶對其進(jìn)行操作。用戶對其進(jìn)行操作。（3）Visible屬性屬性當(dāng)當(dāng)Visible為為False時(shí)，則程序運(yùn)行時(shí)框架及其所有控件全部時(shí)，則程序運(yùn)行時(shí)框架及其所有控件全部被隱蔽起來。被隱蔽起來。徐州醫(yī)學(xué)院徐州醫(yī)學(xué)院VBVB教程教程公共教育學(xué)院公共教育學(xué)院 計(jì)算機(jī)教研室計(jì)算機(jī)教研室2. 事件事件 框架可以響應(yīng)框架可以響應(yīng)Cli

42、ck和和DbClick事件，但應(yīng)用程序中事件，但應(yīng)用程序中一般不需要編寫框架的事件過程。一般不需要編寫框架的事件過程。 例：用框架對單選按鈕分組例：用框架對單選按鈕分組徐州醫(yī)學(xué)院徐州醫(yī)學(xué)院VBVB教程教程公共教育學(xué)院公共教育學(xué)院 計(jì)算機(jī)教研室計(jì)算機(jī)教研室9、 滾動(dòng)條 滾動(dòng)條包括滾動(dòng)條包括水平滾動(dòng)條（水平滾動(dòng)條（HScrollBar）和垂直滾動(dòng)條）和垂直滾動(dòng)條(VScrollBar)，可以作為圖形輔助控件和輸入設(shè)備。可以作為圖形輔助控件和輸入設(shè)備。 屬性屬性 1. Value屬性屬性 Value屬性值為滾動(dòng)塊在滾動(dòng)條中位置的數(shù)值。屬性值為滾動(dòng)塊在滾動(dòng)條中位置的數(shù)值。當(dāng)滾動(dòng)塊處于當(dāng)滾動(dòng)塊處于最左邊

43、最左邊或或最頂端最頂端時(shí)，時(shí)，Value取取最小值最小值。反之，。反之，則則Value值取值取最大值最大值。在中間的各個(gè)位置，在中間的各個(gè)位置，Value值與位置是嚴(yán)格按照比例來設(shè)值與位置是嚴(yán)格按照比例來設(shè)定的。定的。 徐州醫(yī)學(xué)院徐州醫(yī)學(xué)院VBVB教程教程公共教育學(xué)院公共教育學(xué)院 計(jì)算機(jī)教研室計(jì)算機(jī)教研室改變滾動(dòng)條Value屬性的方法有4種：直接在屬性窗口中設(shè)定直接在屬性窗口中設(shè)定Value值；值；鼠標(biāo)單擊兩端箭頭鍵改變滾動(dòng)條數(shù)值；鼠標(biāo)單擊兩端箭頭鍵改變滾動(dòng)條數(shù)值；將滾動(dòng)塊沿滾動(dòng)條拖動(dòng)到任意位置；將滾動(dòng)塊沿滾動(dòng)條拖動(dòng)到任意位置；用鼠標(biāo)單擊滾動(dòng)條中滾動(dòng)塊兩側(cè)的部分使?jié)L動(dòng)塊以用鼠標(biāo)單擊滾動(dòng)條中滾動(dòng)

44、塊兩側(cè)的部分使?jié)L動(dòng)塊以翻頁的速度移動(dòng)。翻頁的速度移動(dòng)。 徐州醫(yī)學(xué)院徐州醫(yī)學(xué)院VBVB教程教程公共教育學(xué)院公共教育學(xué)院 計(jì)算機(jī)教研室計(jì)算機(jī)教研室2. Max和和Min屬性屬性 Value屬性的取值范圍由屬性的取值范圍由Max和和Min屬性設(shè)置：屬性設(shè)置：Max代表代表Value的最大值，的最大值，Min代表代表Value的最小值。的最小值。Value屬性的缺屬性的缺省值為省值為0和和32767。 3. LargeChange和和SmallChange屬性屬性LargeChange：單擊滾動(dòng)塊前面和后面時(shí)，：單擊滾動(dòng)塊前面和后面時(shí)，Value增加或增加或減少的增量減少的增量 SmallChange

45、：單擊滾動(dòng)條兩端的箭頭時(shí)，：單擊滾動(dòng)條兩端的箭頭時(shí)，Value增加或減增加或減 少的增量少的增量徐州醫(yī)學(xué)院徐州醫(yī)學(xué)院VBVB教程教程公共教育學(xué)院公共教育學(xué)院 計(jì)算機(jī)教研室計(jì)算機(jī)教研室事件 1. Change事件事件在滾動(dòng)塊移動(dòng)后發(fā)生，它是滾動(dòng)條最重要的事件。在滾動(dòng)塊移動(dòng)后發(fā)生，它是滾動(dòng)條最重要的事件。2. Scroll事件事件鼠標(biāo)鼠標(biāo)拖動(dòng)拖動(dòng)滾動(dòng)塊時(shí)發(fā)生。單擊滾動(dòng)箭頭或滾動(dòng)條時(shí)滾動(dòng)塊時(shí)發(fā)生。單擊滾動(dòng)箭頭或滾動(dòng)條時(shí)不發(fā)生。不發(fā)生。 例題例題徐州醫(yī)學(xué)院徐州醫(yī)學(xué)院VBVB教程教程公共教育學(xué)院公共教育學(xué)院 計(jì)算機(jī)教研室計(jì)算機(jī)教研室10、 定時(shí)器 在程序設(shè)計(jì)中，對于由系統(tǒng)時(shí)鐘控制的定時(shí)響應(yīng)處理，在程序設(shè)

46、計(jì)中，對于由系統(tǒng)時(shí)鐘控制的定時(shí)響應(yīng)處理，例如每隔一段時(shí)間就進(jìn)行某種操作，通常使用定時(shí)器例如每隔一段時(shí)間就進(jìn)行某種操作，通常使用定時(shí)器控件（控件（Timer）。）。 加入定時(shí)器后，通過設(shè)置定時(shí)器間隔屬性加入定時(shí)器后，通過設(shè)置定時(shí)器間隔屬性Interval來確來確定事件發(fā)生的時(shí)間。定事件發(fā)生的時(shí)間。 徐州醫(yī)學(xué)院徐州醫(yī)學(xué)院VBVB教程教程公共教育學(xué)院公共教育學(xué)院 計(jì)算機(jī)教研室計(jì)算機(jī)教研室1. 重要屬性重要屬性（1）Interval屬性屬性 Interval指定定時(shí)器事件發(fā)生的間隔指定定時(shí)器事件發(fā)生的間隔毫秒毫秒數(shù)，間隔的取值在數(shù)，間隔的取值在065535之間，最長的間隔大約為之間，最長的間隔大約為1

47、分鐘分鐘在程序運(yùn)行期間，定時(shí)器并不可見在程序運(yùn)行期間，定時(shí)器并不可見。當(dāng)當(dāng)Interval屬性值為屬性值為0時(shí)屏蔽定時(shí)器時(shí)屏蔽定時(shí)器（2）Enabled屬性屬性Enabled屬性控制定時(shí)器是否生效。屬性控制定時(shí)器是否生效。徐州醫(yī)學(xué)院徐州醫(yī)學(xué)院VBVB教程教程公共教育學(xué)院公共教育學(xué)院 計(jì)算機(jī)教研室計(jì)算機(jī)教研室2 事件事件定時(shí)器控件只有一個(gè)定時(shí)器控件只有一個(gè)Timer事件。在一個(gè)事件。在一個(gè)Timer控件的控件的預(yù)定的時(shí)間間隔過去之后發(fā)生。預(yù)定的時(shí)間間隔過去之后發(fā)生。例題例題1：建立數(shù)字計(jì)時(shí)器：建立數(shù)字計(jì)時(shí)器 例例2：用計(jì)時(shí)器放大字體：用計(jì)時(shí)器放大字體例例3：抽獎(jiǎng)程序：抽獎(jiǎng)程序徐州醫(yī)學(xué)院徐州醫(yī)學(xué)院

48、VBVB教程教程公共教育學(xué)院公共教育學(xué)院 計(jì)算機(jī)教研室計(jì)算機(jī)教研室制作菜單 3.3.1 菜單概述3.3.2 使用菜單編輯器 徐州醫(yī)學(xué)院徐州醫(yī)學(xué)院VBVB教程教程公共教育學(xué)院公共教育學(xué)院 計(jì)算機(jī)教研室計(jì)算機(jī)教研室3.3.1 菜單概述 Windows程序界面中的菜單由以下元素組成程序界面中的菜單由以下元素組成 ：菜單條菜單條：每個(gè)菜單的標(biāo)題，如：每個(gè)菜單的標(biāo)題，如“文件文件”、“ 編輯編輯”和和“幫助幫助”等；等；菜單菜單：用鼠標(biāo)單擊菜單條上的菜單標(biāo)題時(shí)，出現(xiàn)的命令列表。：用鼠標(biāo)單擊菜單條上的菜單標(biāo)題時(shí)，出現(xiàn)的命令列表。菜單項(xiàng)菜單項(xiàng)：菜單中的每一個(gè)表項(xiàng)。：菜單中的每一個(gè)表項(xiàng)。子菜單子菜單：從一個(gè)菜

49、單項(xiàng)分支出來的菜單。：從一個(gè)菜單項(xiàng)分支出來的菜單。彈出式菜單彈出式菜單：單擊鼠標(biāo)右鍵時(shí)出現(xiàn)的與當(dāng)前操作有關(guān)聯(lián)的菜單。：單擊鼠標(biāo)右鍵時(shí)出現(xiàn)的與當(dāng)前操作有關(guān)聯(lián)的菜單。 徐州醫(yī)學(xué)院徐州醫(yī)學(xué)院VBVB教程教程公共教育學(xué)院公共教育學(xué)院 計(jì)算機(jī)教研室計(jì)算機(jī)教研室3.3.2 菜單編輯器 窗體上的菜單是通過菜單編輯器創(chuàng)建的。窗體上的菜單是通過菜單編輯器創(chuàng)建的。1 1、使用、使用“工具工具”菜單中的菜單中的“菜單編輯器菜單編輯器”命令；命令；2 2、單擊、單擊VB窗口工具欄上的窗口工具欄上的“菜單編輯器菜單編輯器”按鈕按鈕，屏幕，屏幕上出現(xiàn)上出現(xiàn)“菜單編輯器菜單編輯器”的對話框的對話框 徐州醫(yī)學(xué)院徐州醫(yī)學(xué)院VB

50、VB教程教程公共教育學(xué)院公共教育學(xué)院 計(jì)算機(jī)教研室計(jì)算機(jī)教研室菜單編輯器 徐州醫(yī)學(xué)院徐州醫(yī)學(xué)院VBVB教程教程公共教育學(xué)院公共教育學(xué)院 計(jì)算機(jī)教研室計(jì)算機(jī)教研室設(shè)置菜單屬性設(shè)置菜單屬性1.1. “標(biāo)題標(biāo)題”屬性，用于菜單顯示。輸入屬性，用于菜單顯示。輸入“-”-”，則在兩個(gè)菜單命令，則在兩個(gè)菜單命令項(xiàng)間加一分隔線項(xiàng)間加一分隔線2.2. “名稱名稱”屬性屬性( (不得確省不得確省) )，用于在代碼中引用菜單命令項(xiàng)，用于在代碼中引用菜單命令項(xiàng)3.3. “索引索引”屬性，用于確定菜單對象在控件數(shù)組中的位置屬性，用于確定菜單對象在控件數(shù)組中的位置4.4. “幫助上下文幫助上下文ID”屬性，用于指定幫助

51、文本的位置屬性，用于指定幫助文本的位置5.5. “協(xié)調(diào)位置協(xié)調(diào)位置”屬性（一般取屬性（一般取0），與鏈接或嵌入對象的顯示方式），與鏈接或嵌入對象的顯示方式有關(guān)有關(guān)徐州醫(yī)學(xué)院徐州醫(yī)學(xué)院VBVB教程教程公共教育學(xué)院公共教育學(xué)院 計(jì)算機(jī)教研室計(jì)算機(jī)教研室6.6. “復(fù)選復(fù)選”屬性，本項(xiàng)選中時(shí)，菜單項(xiàng)前加一屬性，本項(xiàng)選中時(shí)，菜單項(xiàng)前加一“” 號(hào)號(hào)7.7. “有效有效”屬性，本項(xiàng)選中時(shí)，菜單項(xiàng)加亮顯示屬性，本項(xiàng)選中時(shí)，菜單項(xiàng)加亮顯示8.8. “可見可見”屬性，本項(xiàng)選中時(shí)，菜單項(xiàng)可見屬性，本項(xiàng)選中時(shí)，菜單項(xiàng)可見9.9. “顯示窗口列表顯示窗口列表”屬性，用于顯示多文檔界面（屬性，用于顯示多文檔界面（MDI

52、）子窗口列表子窗口列表徐州醫(yī)學(xué)院徐州醫(yī)學(xué)院VBVB教程教程公共教育學(xué)院公共教育學(xué)院 計(jì)算機(jī)教研室計(jì)算機(jī)教研室菜單編輯器的相關(guān)說明如果如果“標(biāo)題標(biāo)題”欄輸入欄輸入“”，則表示產(chǎn)生一分隔線，則表示產(chǎn)生一分隔線除分隔線外，菜單都可以接收除分隔線外，菜單都可以接收click事件事件在菜單項(xiàng)的字母前加在菜單項(xiàng)的字母前加&,則會(huì)在則會(huì)在&后一個(gè)字母下加下劃線，后一個(gè)字母下加下劃線，表示可以通過表示可以通過alt此字母打開此菜單此字母打開此菜單舉例舉例徐州醫(yī)學(xué)院徐州醫(yī)學(xué)院VBVB教程教程公共教育學(xué)院公共教育學(xué)院 計(jì)算機(jī)教研室計(jì)算機(jī)教研室創(chuàng)建彈出式菜單使用使用“菜單編輯器菜單編輯器”創(chuàng)建菜單創(chuàng)

53、建菜單菜單的菜單的“Visible”屬性設(shè)為屬性設(shè)為False在彈出式菜單的關(guān)聯(lián)對象的在彈出式菜單的關(guān)聯(lián)對象的MouseUp或者或者M(jìn)ousedown事事件中添加代碼：件中添加代碼： 窗體名窗體名.PopupMenu 例題例題徐州醫(yī)學(xué)院徐州醫(yī)學(xué)院VBVB教程教程公共教育學(xué)院公共教育學(xué)院 計(jì)算機(jī)教研室計(jì)算機(jī)教研室1創(chuàng)建應(yīng)用程序的界面時(shí)，在窗體上設(shè)置了一個(gè)命令按創(chuàng)建應(yīng)用程序的界面時(shí)，在窗體上設(shè)置了一個(gè)命令按鈕，運(yùn)行程序后，命令按鈕沒有出現(xiàn)在窗體上，可能鈕，運(yùn)行程序后，命令按鈕沒有出現(xiàn)在窗體上，可能的原因是的原因是 _ 。 該命令按鈕的該命令按鈕的 Value 屬性被設(shè)置為屬性被設(shè)置為 False該

54、命令按鈕的該命令按鈕的 Enabled 屬性被設(shè)置為屬性被設(shè)置為 False該命令按鈕的該命令按鈕的 Visible 屬性被設(shè)置為屬性被設(shè)置為 False該命令按鈕的該命令按鈕的 Default 屬性被設(shè)置為屬性被設(shè)置為 True 徐州醫(yī)學(xué)院徐州醫(yī)學(xué)院VBVB教程教程公共教育學(xué)院公共教育學(xué)院 計(jì)算機(jī)教研室計(jì)算機(jī)教研室若需要在同一窗口內(nèi)安排兩組相互獨(dú)立的單選按鈕若需要在同一窗口內(nèi)安排兩組相互獨(dú)立的單選按鈕（ OptionButton ），可使用），可使用 _ 控件將它控件將它們分隔開。們分隔開。 TexBox PictureBox Image Frame 徐州醫(yī)學(xué)院徐州醫(yī)學(xué)院VBVB教程教程公共

55、教育學(xué)院公共教育學(xué)院 計(jì)算機(jī)教研室計(jì)算機(jī)教研室3單擊滾動(dòng)條兩端的箭頭時(shí)，滾動(dòng)條單擊滾動(dòng)條兩端的箭頭時(shí)，滾動(dòng)條 Value 屬性值的改屬性值的改變量由變量由 _ 屬性值決定。屬性值決定。 LargeChange Max SmallChange Min 徐州醫(yī)學(xué)院徐州醫(yī)學(xué)院VBVB教程教程公共教育學(xué)院公共教育學(xué)院 計(jì)算機(jī)教研室計(jì)算機(jī)教研室4. 下列語句中，正確的是：下列語句中，正確的是：A Text1.setfocus B Form1.clearC Label1.setfocus D List1.cls 5. 創(chuàng)建一個(gè)名為創(chuàng)建一個(gè)名為“文件文件”的菜單項(xiàng)，欲使其可用的菜單項(xiàng)，欲使其可用Alt+F方方式訪問，則在菜單編輯器的