菜單程序設(shè)計(jì)

1、菜單程序設(shè)計(jì)菜單程序設(shè)計(jì)2010年12月05日星期日下午09: 52菜單程序設(shè)計(jì)一、菜單菜單的基本作用：菜單的基本類型：幾個(gè)常用術(shù)語：- -菜單條出現(xiàn)在窗體標(biāo)題的下面，包含每個(gè)菜單的標(biāo)題。- -菜單包含命令列表或子菜單名。- -菜單中列出的每一項(xiàng)。- -從某個(gè)菜單項(xiàng)分支出來的另外的一個(gè)菜單。具有子菜單的菜單項(xiàng)右邊帶 有一個(gè)三角符號(hào)標(biāo)志。- -分隔條是在菜單項(xiàng)之間的一條水平直線，用于修飾菜單。- -彈出式菜單是另一種形式的菜單，在按下鼠標(biāo)右鍵時(shí)出現(xiàn)，它是一個(gè)上 下文相關(guān)的菜單。使用菜單編輯器可以為應(yīng)用程序創(chuàng)建自定義菜單并定義其屬性，利用這個(gè) 編輯器，可以建立下拉式菜單，最多可達(dá) 6層。啟動(dòng)菜單編

2、輯器的方法有4種（先選中一個(gè)窗體，使之為活動(dòng)窗體 廣使用菜單"工具"/”菜單編輯器”；啟動(dòng)后，彈出菜單設(shè)計(jì)窗口。菜單編輯器窗口分為三個(gè)部分：數(shù)據(jù)區(qū)、編輯區(qū)和菜單項(xiàng)顯示區(qū)。1、數(shù)據(jù)區(qū)用來輸入或修改菜單項(xiàng)、設(shè)置屬性。其中：隔線?？稍谠撐谋究蛑休斎霐?shù)值，這個(gè)值用來在幫助文件 （用HelpFile屬性設(shè)置） 中查找相應(yīng)的幫助主題。用來確定菜單或菜單項(xiàng)是否出現(xiàn)或在什么位置出現(xiàn)。該列表有4個(gè)選項(xiàng)：0-None菜單項(xiàng)不顯示2、編輯區(qū)共有7個(gè)按鈕。3、菜單項(xiàng)顯示區(qū)（菜單列表）位于菜單設(shè)計(jì)窗口的下部，輸入的菜單項(xiàng)在這里顯示出來，并通過內(nèi)縮符 號(hào)（）表明菜單項(xiàng)的層次。條形光標(biāo)所在的菜單項(xiàng)是&q

3、uot;當(dāng)前菜單項(xiàng)"。說明：菜單項(xiàng)是一個(gè)總的名稱，包括4個(gè)方面的內(nèi)容：菜單名（菜單標(biāo)題）、菜單 命令、分隔線和子菜單。內(nèi)縮符號(hào)由4個(gè)點(diǎn)組成，它表明菜單項(xiàng)所在的層次，一個(gè)內(nèi)縮符號(hào) （4個(gè)點(diǎn)） 表示一層，兩個(gè)內(nèi)縮符號(hào)（8個(gè)點(diǎn)）表示兩層最多20個(gè)點(diǎn)，即5個(gè)內(nèi)縮符號(hào)， 它后面的菜單項(xiàng)為第六層。如果一個(gè)菜單項(xiàng)前面沒有內(nèi)縮符號(hào)，則該菜單為菜 單名，即菜單的第一層。隔線。下面通過一個(gè)簡(jiǎn)單的例子說明菜單程序設(shè)計(jì)的基本方法和步驟。例1根據(jù)題意，可以將菜單分為3個(gè)主菜單項(xiàng)，分別為"計(jì)算加、減"、”計(jì)算乘、 除"和"消除與退出"，它們各有兩個(gè)子菜單，即：”

4、計(jì)算加、減”的子菜單項(xiàng)：力口、減”計(jì)算乘、除"的子菜單項(xiàng)：乘、除”消除與退出”的子菜單項(xiàng)：清除、退出另外，為了輸入和顯示，再建立兩個(gè)文本框(輸入數(shù)據(jù))和四個(gè)標(biāo)簽。1、界面：其中Lable4的BorderStyle屬性設(shè)置為1。2、菜單項(xiàng)屬性：3、設(shè)計(jì)菜單：步驟：其它兩個(gè)主菜單的建立與前面步驟類似，不再重復(fù)。設(shè)計(jì)完成后的窗口如 下圖。"確定"后結(jié)束。設(shè)計(jì)完成后，窗體頂行顯示主菜單項(xiàng)，單擊某個(gè)主菜單項(xiàng)，即可下拉顯示 其子菜單。4、程序代碼：每個(gè)菜單項(xiàng)都可以接收Click事件。每個(gè)菜單項(xiàng)都有一個(gè)名字(Name屬性), 將這個(gè)名字與Click放在一起，組成Click事件過

5、程。Option Explicit Private Sub Add_Click()x=Val(Text1.Text)+Val(Text2.Text)End Sub Private Sub Min_Click()x=Val(Text1.Text)-Val(Text2.Text)Private Sub Mul_Click()x=Val(Text1.Text)*Val(Text2.Text)Private Sub Div_Click()If Text2.Text="0"Or Text2.Text=""Then End Sub Private SubClean_

6、Click()Textl.Text=""End Sub Private Sub Quit_Click()5、運(yùn)行程序：在兩個(gè)文本框中輸入數(shù)字后，分別單擊各菜單項(xiàng)或熱鍵，看一看執(zhí)行結(jié)果。本例中的"有效"屬性和"可見"屬性采用默認(rèn)的"True",只有在必要時(shí)才設(shè) 置其它屬性。下面將討論這些情況。在使用Windows或VB菜單時(shí)，已見過"與眾不同”的菜單項(xiàng)，如有的呈灰色, 單擊這類菜單項(xiàng)不執(zhí)行任何操作；有的菜單項(xiàng)前有 "，”號(hào)，或菜單項(xiàng)的某個(gè)字 母下面有下劃線等等。下面將介紹如何在菜單中增加這些屬性。

7、1、菜單項(xiàng)的有效屬性(有效性控制)為了使程序正常運(yùn)行，有時(shí)需要使某些菜單項(xiàng)失效，以防止出現(xiàn)誤操作。 例如前面的例子中，只有在文本框中輸入數(shù)字后才能進(jìn)行運(yùn)算，否則運(yùn)算沒有 意義。因此，如果尚未輸入數(shù)據(jù)，則應(yīng)使執(zhí)行加、減、乘、除的菜單項(xiàng)失效， 在輸入數(shù)據(jù)后才生效。為此，可增加下面兩個(gè)事件過程：Private Sub Text1_Change()If Text1.Text=""Then End Sub Private Sub Text2_Change()If Text2.Text=""Then End Sub除增加上述兩個(gè)事件過程外，還要方法：打開"

8、菜單編輯器”窗口，把對(duì)應(yīng)于這4個(gè)菜單項(xiàng)的數(shù)據(jù)區(qū)中的"有效 ”屬性復(fù)選框中的"，"去掉即可。2、菜單項(xiàng)的復(fù)選屬性(菜單項(xiàng)的標(biāo)記)所謂菜單項(xiàng)標(biāo)記,就是在菜單項(xiàng)前加上一個(gè)"V"。它有兩個(gè)作用：增加方法：一般來說，菜單項(xiàng)標(biāo)記通常是動(dòng)態(tài)的加上或取消的，所以，程序代碼中根 據(jù)執(zhí)行情況設(shè)置。例2界面：一個(gè)文本框、6個(gè)標(biāo)簽。菜單屬性：設(shè)計(jì)菜單：編寫代碼：Option Explicit Private Sub octv_Click()answer=Val(Text1.Text)Private Sub Hexv_Click()answer=Val(Text1.Te

9、xt)Private Sub dec_Click()answer=Val(Text1.Text)End Sub Private Sub Clean_Click()Textl.Text=""End Sub Private Sub Quit_Click()End End Sub例3在窗體上添加一個(gè)文本框，用來輸入要顯示的文本。菜單屬性：菜單設(shè)置見教材P244代碼如下：Private Sub Form_Load()Private Sub mnunew_Click()'菜單項(xiàng)的單擊事件Private Sub mnuopen_Click()Private Sub mnuclo

10、se_Click()Private Sub mnuexit_Click()Private Sub mnubold_Click()Private Sub mnuitalic_Click()3、菜單的可見屬性同"有效"屬性相似，可以利用"可見”屬性來取消用戶對(duì)某些特定菜單項(xiàng)的 訪問權(quán)限。若關(guān)閉某個(gè)特定的菜單項(xiàng)的“可見”屬性，該菜單項(xiàng)將從菜單中被移 走。用戶將不知道該菜單項(xiàng)的存在。例4打開菜單編輯器，在菜單列表中選擇退出菜單項(xiàng)，單擊"插入"按鈕，在 退出菜單項(xiàng)之前插入一個(gè)菜單項(xiàng)。4、設(shè)置鍵盤選擇菜單項(xiàng)在一般情況下，菜單項(xiàng)通過鼠標(biāo)選擇，即單擊某個(gè)菜單項(xiàng)

11、，執(zhí)行相應(yīng)的操 作。在VB中，也可以通過鍵盤選擇所需的菜單項(xiàng)。用鍵盤選擇有兩種方法：前面已介紹過熱鍵的設(shè)置方法。用熱鍵可以直接執(zhí)行菜單命令，不必一級(jí) 一級(jí)地下拉菜單，速度較快，適合熟悉鍵盤的用戶使用。所謂訪問鍵，就是菜單項(xiàng)中加了下劃線的字母，只要按 Alt和加了下劃線 的字母，就可以選擇相應(yīng)的菜單項(xiàng)。用訪問鍵選擇菜單項(xiàng)時(shí)，必須一級(jí)一級(jí)地 選擇。也就是只有在下拉顯示下一級(jí)菜單后，才能用 Alt和加了下劃線的字母 鍵選擇。訪問鍵的設(shè)置說明：任何5、創(chuàng)建菜單控件數(shù)組菜單控件數(shù)組就是在同一菜單上共享相同名稱和事件過程的菜單工程的集 合。菜單控件數(shù)組用于：在運(yùn)行時(shí)要?jiǎng)?chuàng)建一個(gè)新菜單項(xiàng)，它必須是菜單控件數(shù)組

12、中的成員每個(gè)菜單控件數(shù)組元素都由惟一的索引值來標(biāo)識(shí)，該值在菜單編輯器上 "Index屬性框”中指定。當(dāng)一個(gè)控件數(shù)組成員識(shí)別一個(gè)事件時(shí)，VB將其Index屬性作為一個(gè)附加的參數(shù)傳遞給事件過程。事件過程必須包含有核對(duì)Index屬性的代碼，因而可以判斷出正在使用的是哪一個(gè)控件。例5:菜單項(xiàng)名稱索引快捷鍵mnuFont.粗體粗體 mnuBold Ctrl+B.斜體余體 mnuItalic Ctrl+I.大小大小 mnuSize 10mnuFS 20mnuFS 30mnuFS通過菜單編輯器中創(chuàng)建菜單控件數(shù)組的步驟：同樣，所有的控件也可以用這種方法創(chuàng)建控件數(shù)組。通常把 OptionButton

13、和CheckBox控件設(shè)置為控件數(shù)組。使用菜單數(shù)組和控件數(shù)組有下述優(yōu)點(diǎn)：可以用For循環(huán)方便的訪問每一個(gè)對(duì)象菜單控件數(shù)組mnuFS勺Click事件響應(yīng)代碼如下：Private Sub mnuFS_Click(Index as Integer)Select Case Index end sub 6、菜單項(xiàng)的增減(動(dòng)態(tài)菜單)動(dòng)態(tài)菜單是指隨著應(yīng)用程序的運(yùn)行而不斷改變的一種菜單，在運(yùn)行時(shí)菜單 可以增長。Word軟件的"文件”菜單是一個(gè)典型的動(dòng)態(tài)菜單，菜單中列出了最近 使用過的文件名，這部分內(nèi)容隨著應(yīng)用程序的運(yùn)行而不斷改變的。而用前面的 方法建立的菜單是固定的，菜單項(xiàng)不能增減。為了增加或減少菜

14、單項(xiàng)，必須在 菜單編輯器"窗口中，對(duì)原來的菜單進(jìn)行增刪。使用動(dòng)態(tài)菜單在應(yīng)用程序中一個(gè)控件數(shù)組含有若干個(gè)控件，這些控件的名稱相同，所使用的事件過程 相同，但其中的每個(gè)元素可以有自己的屬性。和普通數(shù)組一樣，通過下標(biāo) （Index）訪問控件數(shù)組中的元素。控件數(shù)組可以在設(shè)計(jì)階段建立（見添加控件一 節(jié)），也可以在程序運(yùn)行階段建立。菜單項(xiàng)的增減是通過菜單控件數(shù)組實(shí)現(xiàn)的。菜單控件數(shù)組和普通數(shù)組一樣， 也是通過下標(biāo)來訪問數(shù)組中的元素（這里為菜單項(xiàng)）的。菜單控件數(shù)組也一樣可 以設(shè)計(jì)時(shí)建立、可以在運(yùn)行時(shí)建立。具體操作：如設(shè)計(jì)時(shí)對(duì)名稱為 mnuRecentFile的分隔條菜單控件的Index 屬性進(jìn)行了賦

15、值，它自動(dòng)地成為控件數(shù)組的一個(gè)元素，當(dāng)創(chuàng)建 mnuRecentFile（O）時(shí)，實(shí)際上創(chuàng)建了一個(gè)在運(yùn)行時(shí)不可見的分隔符條。當(dāng)運(yùn)行 時(shí)用戶第一次存儲(chǔ)一個(gè)文件，這個(gè)分隔條就會(huì)變得可見，且第一個(gè)文件名被加 到該菜單上。運(yùn)行時(shí)每存儲(chǔ)一個(gè)文件，則會(huì)再裝入一個(gè)菜單項(xiàng)到該數(shù)組中，從 而使該菜單增長（當(dāng)然，菜單也不能無限增長）。運(yùn)行時(shí)創(chuàng)建的控件可以使用 Hide方法或者設(shè)置該控件的Visible屬性為False來隱藏。當(dāng)用戶選取一個(gè)菜 單控件時(shí)，一個(gè)Click事件則出現(xiàn)。需要在代碼中為每個(gè)菜單控件編寫一個(gè) Click事件過程（除分隔符條以外的所有菜單控件都能識(shí)別Click事件）。在菜單事件過程中編寫的代碼與在

16、控件任何其它過程中編寫的代碼完全相同。一旦 菜單標(biāo)題被選取，VB將自動(dòng)地顯示一個(gè)菜單。例5在字體不可見后插入一個(gè)菜單項(xiàng)，標(biāo)題"-",名稱："mnuRecentFile"," 可見”屬性值為：在"新建”文件的程序代碼中作如下修改（藍(lán)色部分是增加的內(nèi)容）：Private Sub Form_Load（）End Sub Private Sub mnuopen_Click（）關(guān)于函數(shù)Mid$、Len：中部截取函數(shù)Mid$功能：用來截取字符串中間的一比部分。格式： Mid$(字符串，p, n)a$="abcdefghijk"c

17、def Mid$函數(shù)的第三個(gè)自變量可以省略，在這種情況下，將從第二個(gè)自變 量指定的位置向后截取到字符串的末尾。字符串長度測(cè)試函數(shù)Len功能：測(cè)試字符串的長度，也可以測(cè)試變量的存儲(chǔ)空間，它的自變量可以 是字符串，也可以是變量名。Len(變量名)例如：a$="abcdefghijk"11 a=Len(textvar#)8 42例5設(shè)有一個(gè)剛剛建立的菜單，它有一個(gè)主菜單”應(yīng)用程序”，具下有兩個(gè)子菜 單"增加應(yīng)用程序"、"減少應(yīng)用程序”及分隔線。要求單擊"增加應(yīng)用程序"時(shí)在 分隔條下增加一個(gè)新的菜單項(xiàng)，單擊"減少應(yīng)用程序&

18、quot;時(shí)刪除分隔線下面一個(gè)指 定的菜單項(xiàng)，如果單擊新增加的菜單項(xiàng)，則可以執(zhí)行這一指定的應(yīng)用程序。原來菜單：接下來，按以下步驟操作：(1)打開菜單編輯器(2)設(shè)置菜單屬性如下：最后一項(xiàng)是新輸入的，它是一個(gè)子菜單，但暫時(shí)看不見。輸入 "索引"值0 以使"AppName菜單項(xiàng)成為菜單控件數(shù)組，AppName(0足控件數(shù)組的第一個(gè)元素(3)編寫添加菜單項(xiàng)代碼：?jiǎn)螕簟痹黾討?yīng)用程序"菜單項(xiàng)，在程序中添加代碼：Dim menucounter As Integer msg="Enter file path :"End Sub以上僅是一個(gè)練習(xí)，在實(shí)

19、際應(yīng)用時(shí)，可以通過 "通用對(duì)話框”打開文件，然 后再將打開的文件名作為菜單項(xiàng)顯示，這樣代碼可改為 (窗體上已添加了通用對(duì) 話框控件)：Private Sub AddAp_Click()With CommonDialog1 menucounter=menucounter+1 End Sub(4)編寫刪除菜單項(xiàng)代碼：在運(yùn)行時(shí)用load語句增加的菜單項(xiàng)可以使用Unload語句刪除，但不能刪 除設(shè)計(jì)時(shí)建立的菜單項(xiàng)。單擊”減少應(yīng)用程序"菜單項(xiàng)，在程序中添加代碼：Private Sub DelAp_Click()Dim n,i As Integer End Sub說明：從過程中可以看出

20、，刪除指定菜單項(xiàng)的操作并不是直接進(jìn)行的，而 是從被刪除的菜單項(xiàng)開始，用后面的菜單項(xiàng)覆蓋前面的菜單項(xiàng)，然后再刪除最 后一個(gè)菜單項(xiàng)。功能：設(shè)計(jì)分為兩步：首先用菜單編輯器建立菜單，這一步與前面介紹的基本相 同，唯一的區(qū)別是，必須把菜單名(即主菜單項(xiàng))的可見屬性設(shè)置為False(子菜 單項(xiàng)不要設(shè)置為False);第二步用PopupMen時(shí)法彈出顯示。PopupMen此法用來顯示彈出菜單,object.PopupMenu menuname,flags,x,y,boldcommand其中：Object（對(duì)象）窗體名。Menunam碟單名）-指在菜單編輯器中定義的X、Y-彈出式菜單在窗體上的顯示位置的 X、

21、Y坐標(biāo)（與Flags參數(shù)配合使 用）。Boldcommand/旨定彈出式菜中的彈出式菜單控件的名字，用以顯示為黑體 正文標(biāo)題。Flags-該參數(shù)是一個(gè)數(shù)值或符號(hào)常量，指定彈出式菜單的位置和行為，其 取值分為兩組，一組用來指定菜單位置，另一組用來定義特殊的菜單行為，如 下表：指定菜單位置定義菜單行為說明：PopupMenUT法的6個(gè)參數(shù)中，除"菜單名”外，其余參數(shù)都是可選的。當(dāng) 省略了 "對(duì)象"時(shí)，彈出式菜單只能在當(dāng)前窗體中顯示。如果需要在其它窗體中 顯示彈出菜單，則必須加上窗體名。Flags的兩組參數(shù)可以單獨(dú)使用，也可以聯(lián)合使用。當(dāng)聯(lián)合使用時(shí)，每組 中取一個(gè)值，兩

22、個(gè)值相加；如果使用符號(hào)常量，則兩個(gè)值用 Or連接。X、Y分別用來指定彈出式菜單顯示位置的橫、縱坐標(biāo)，如果省略，則彈出 菜單在鼠標(biāo)光標(biāo)的當(dāng)前位置顯示。彈出式菜單的"位置”由X、Y、Flags參數(shù)共同指定。如果省略這幾個(gè)參數(shù), 則在單擊鼠標(biāo)右鍵彈出菜單時(shí)，鼠標(biāo)光標(biāo)所在位置為彈出式菜單左上角的坐標(biāo)。在默認(rèn)情況下，以窗體的左上角為坐標(biāo)原點(diǎn)。如果只省略 Flags參數(shù)，不省略 X、Y參數(shù)，則X、Y為彈出式菜單左上角的坐標(biāo)；如果同時(shí)使用 X、Y及Flags 參數(shù)，則彈出菜單的位置分為一下幾種情況：Flags=0 X、Y為彈出式菜單左上角的坐標(biāo)Flags=4 X、Y為彈出式菜單頂邊中間的坐標(biāo)Fla

23、gs=8 X、Y為彈出式菜單右上角的坐標(biāo)PopupMenu方法放在MouseDow心件中，該事件響應(yīng)所有的鼠標(biāo)單擊操作。 按照慣例，一般通過單擊鼠標(biāo)右鍵顯示彈出菜單，這可以用Button參數(shù)來實(shí)現(xiàn)。對(duì)于兩個(gè)鍵的鼠標(biāo)來說，左鍵的 Button參數(shù)值為1,右鍵的Button參數(shù)值為2 因此可以強(qiáng)制使用右鍵來響應(yīng) MouseDowi#件而顯示彈出菜單：If Button=2 Then PopupMenu 菜單名下面舉例說明建立彈出式菜單的一般過程。例6步驟如下：Private Sub Form_MouseDown(Button As Integer,Shift As Integer,X As Sin

24、gle,Y As Single)If Button=2 Then End Sub Private Sub Form_Load()Text1.Text=" 可視 化高級(jí)程序語言"End Sub因?yàn)橹鞑藛尾豢梢?，所以不能直接下拉主菜單而單擊子菜單進(jìn)入代碼窗口， 必須先進(jìn)入代碼窗口(按F7鍵或雙擊窗體或執(zhí)行"視圖"菜單下的"代碼窗口 "命 令)，然后分別從“對(duì)象名稱"框和"事件名稱”框中選擇對(duì)應(yīng)項(xiàng)，然后分別編寫代 碼。Private Sub popBold_Click()Private Sub Quit_Click()運(yùn)

25、行結(jié)果：工具欄(也稱為發(fā)條或者控制欄)已經(jīng)成為許多基于 Windows的應(yīng)用程序的 標(biāo)準(zhǔn)功能。工具欄提供了對(duì)于應(yīng)用程序中最常用的菜單命令的快速訪問?？梢允褂肨oolBar控件來輕松的創(chuàng)建工具欄，也可以使用應(yīng)用程序向?qū)?創(chuàng)建工具欄，方法更加簡(jiǎn)便。1、利用應(yīng)用程序向?qū)?chuàng)建工具欄應(yīng)用程序向?qū)荲B6.0為用戶提供的一項(xiàng)功能，通過應(yīng)用程序向?qū)в脩艨?以很快設(shè)計(jì)出一個(gè)標(biāo)準(zhǔn) Windows程序的框架，其中包括窗體、菜單、工具欄、 多文檔、狀態(tài)欄、對(duì)話框、滾動(dòng)條等等。設(shè)計(jì)過程是在對(duì)話中完成，設(shè)計(jì)完成 后形成應(yīng)用程序的界面和框架。創(chuàng)建一個(gè)標(biāo)準(zhǔn)的應(yīng)用程序框架步驟如下：2、使用ToolBar控件創(chuàng)建工具欄使用T

26、oolBar控件創(chuàng)建工具欄也是非常簡(jiǎn) 單的工作，基本的屬性設(shè)置可以通過對(duì)話框完成。給示例 MymenuK計(jì)一個(gè)具有 四個(gè)工具按鈕的工具欄，分別對(duì)應(yīng)菜單中的"新建"、"打開"、"粗體"、"斜體" 等四個(gè)菜單項(xiàng)，并完成相應(yīng)的功能。關(guān)于"樣式"的說明：Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)Select Case Button.Index End Sub Private Sub mnuBold_Click()mnuBold.Checked=Not mnuBold.Checked End Sub Private Sub mnufotesize_Click(Index As Integer)Select Case Index End Sub Private Sub mnuItalic_Click()mnuItalic.Checked=NotmnuItalic.CheckedText1.FontItalic=mnuItalic.Checked End Sub Private Sub mnuNew_Clic