《菜單程序設(shè)計》word版

《《菜單程序設(shè)計》word版》由會員上傳分享，免費在線閱讀，更多相關(guān)內(nèi)容在應用文檔-天天文庫。

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

2、輯器，可以建立下拉式菜單，最多可達6層。啟動菜單編輯器的方法有4種(先選中一個窗體，使之為活動窗體)：使用菜單"工具"/"菜單編輯器"；啟動后，彈出菜單設(shè)計窗口。菜單編輯器窗口分為三個部分：數(shù)據(jù)區(qū)、編輯區(qū)和菜單項顯示區(qū)。1、數(shù)據(jù)區(qū)用來輸入或修改菜單項、設(shè)置屬性。其中：隔線?？稍谠撐谋究蛑休斎霐?shù)值，這個值用來在幫助文件(用HelpFile屬性設(shè)置)中查找相應的幫助主題。用來確定菜單或菜單項是否出現(xiàn)或在什么位置出現(xiàn)。該列表有4個選項：0-None菜單項不顯示2、編輯區(qū)共有7個按鈕。3、菜單項顯示區(qū)(菜單列表)位于菜單設(shè)計窗口的

3、下部，輸入的菜單項在這里顯示出來，并通過內(nèi)縮符號(…)表明菜單項的層次。條形光標所在的菜單項是"當前菜單項"。說明：菜單項是一個總的名稱，包括4個方面的內(nèi)容：菜單名(菜單標題)、菜單命令、分隔線和子菜單。內(nèi)縮符號由4個點組成，它表明菜單項所在的層次，一個內(nèi)縮符號(4個點)表示一層，兩個內(nèi)縮符號(8個點)表示兩層…最多20個點，即5個內(nèi)縮符號，它后面的菜單項為第六層。如果一個菜單項前面沒有內(nèi)縮符號，則該菜單為菜單名，即菜單的第一層。隔線。下面通過一個簡單的例子說明菜單程序設(shè)計的基本方法和步驟。例1根據(jù)題意，可以將菜單分為3個

4、主菜單項，分別為"計算加、減"、"計算乘、除"和"清除與退出"，它們各有兩個子菜單，即："計算加、減"的子菜單項：加、減"計算乘、除"的子菜單項：乘、除"清除與退出"的子菜單項：清除、退出另外，為了輸入和顯示，再建立兩個文本框(輸入數(shù)據(jù))和四個標簽。1、界面：其中Lable4的BorderStyle屬性設(shè)置為1。2、菜單項屬性：3、設(shè)計菜單：步驟：其它兩個主菜單的建立與前面步驟類似，不再重復。設(shè)計完成后的窗口如下圖。"確定"后結(jié)束。設(shè)計完成后，窗體頂行顯示主菜單項，單擊某個主菜單項，即可下拉顯示其子菜單。4、程序代碼：每個

5、菜單項都可以接收Click事件。每個菜單項都有一個名字(Name屬性)，將這個名字與Click放在一起，組成Click事件過程。OptionExplicitPrivateSubAdd_Click()x=Val(Text1.Text)+Val(Text2.Text)EndSubPrivateSubMin_Click()x=Val(Text1.Text)-Val(Text2.Text)PrivateSubMul_Click()x=Val(Text1.Text)*Val(Text2.Text)PrivateSubDiv_Clic

6、k()IfText2.Text="0"OrText2.Text=""ThenEndSubPrivateSubClean_Click()Text1.Text=""EndSubPrivateSubQuit_Click()5、運行程序：在兩個文本框中輸入數(shù)字后，分別單擊各菜單項或熱鍵，看一看執(zhí)行結(jié)果。本例中的"有效"屬性和"可見"屬性采用默認的"True"，只有在必要時才設(shè)置其它屬性。下面將討論這些情況。在使用Windows或VB菜單時，已見過"與眾不同"的菜單項，如有的呈灰色，單擊這類菜單項不執(zhí)行任何操作；有的菜單項前有"√"

7、號，或菜單項的某個字母下面有下劃線等等。下面將介紹如何在菜單中增加這些屬性。1、菜單項的有效屬性(有效性控制)為了使程序正常運行，有時需要使某些菜單項失效，以防止出現(xiàn)誤操作。例如前面的例子中，只有在文本框中輸入數(shù)字后才能進行運算，否則運算沒有意義。因此，如果尚未輸入數(shù)據(jù)，則應使執(zhí)行加、減、乘、除的菜單項失效，在輸入數(shù)據(jù)后才生效。為此，可增加下面兩個事件過程：PrivateSubText1_Change()IfText1.Text=""ThenEndSubPrivateSubText2_Change()IfText2.Tex

8、t=""ThenEndSub除增加上述兩個事件過程外，還要方法：打開"菜單編輯器"窗口，把對應于這4個菜單項的數(shù)據(jù)區(qū)中的"有效"屬性復選框中的"√"去掉即可。2、菜單項的復選屬性(菜單項的標記)所謂菜單項標記，就是在菜單項前加上一個"√"。它有兩個作用：增加方法：一般來說，菜單項標記通常是動態(tài)的加上或取