vb程序設(shè)計(jì)--菜單、對(duì)話(huà)框及多重窗體

《vb程序設(shè)計(jì)--菜單、對(duì)話(huà)框及多重窗體》由會(huì)員上傳分享，免費(fèi)在線閱讀，更多相關(guān)內(nèi)容在教育資源-天天文庫(kù)。

1、菜單、對(duì)話(huà)框及多重窗體VB程序設(shè)計(jì)制作：賴(lài)錦德提出問(wèn)題大家在以前就已接觸和學(xué)習(xí)過(guò)不少應(yīng)用程序，比如Office中的文字處理程序Word、表格處理程序Excel等，已經(jīng)使用過(guò)這些程序中強(qiáng)大的菜單功能，它們是如何進(jìn)行設(shè)計(jì)的呢？我們自己能否設(shè)計(jì)類(lèi)似的菜單呢？本章主要內(nèi)容：1：菜單2：對(duì)話(huà)框3：多重窗體4：VB工程結(jié)構(gòu)兩種菜單類(lèi)型：下拉式菜單、彈出式菜單§1菜單組成主菜單(標(biāo)題)包含若干個(gè)菜單項(xiàng),它放置在菜單的最頂層,它可以下拉出下一級(jí)菜單(子菜單)菜單命令對(duì)應(yīng)一個(gè)程序模塊,執(zhí)行命令后子菜單自動(dòng)消失子菜單包含子菜單標(biāo)題和菜

2、單命令分隔條可對(duì)子菜單進(jìn)行分組子菜單菜單命令主菜單欄子菜單標(biāo)題分隔條子菜單主菜單(標(biāo)題)菜單命令對(duì)應(yīng)一個(gè)程序模塊,執(zhí)行命令后子菜單自動(dòng)消失分隔條可對(duì)子菜單進(jìn)行分組1：菜單控件菜單項(xiàng)(主菜單項(xiàng)或子菜單項(xiàng))也稱(chēng)為菜單控件菜單項(xiàng)具有其屬性、事件、方法通過(guò)“菜單編輯器”完成設(shè)計(jì)2：菜單編輯器使設(shè)計(jì)菜單欄的窗體成為當(dāng)前窗體執(zhí)行“工具”菜單的“菜單編輯器”命令(或單擊標(biāo)準(zhǔn)工具欄的“菜單編輯器”按鈕，或從窗體快捷菜單中選擇“菜單編輯器”命令)，打開(kāi)“菜單編輯器”窗口3：菜單編輯器結(jié)構(gòu)屬性區(qū)—輸入或修改菜單項(xiàng)，設(shè)置菜單項(xiàng)屬性編輯區(qū)

3、—對(duì)輸入的菜單項(xiàng)進(jìn)行編輯操作菜單列表區(qū)—顯示菜單項(xiàng)的分級(jí)列表§2菜單編輯器*Caption*NameIndexShortcut屬性區(qū)菜單列表區(qū)編輯區(qū)我們利用菜單編輯器設(shè)計(jì)每個(gè)菜單項(xiàng)，其實(shí)每個(gè)菜單項(xiàng)都是一個(gè)對(duì)象，它們都有自己的屬性、事件、方法。CaptionNameIndexShortcut名稱(chēng)：Name屬性設(shè)置菜單控件的名字以便在代碼中訪問(wèn)它設(shè)計(jì)菜單時(shí)必須輸入此項(xiàng)！標(biāo)題：Caption屬性設(shè)置菜單項(xiàng)中顯示的文字若該屬性為連字符(-),則顯示為隔離條可定義訪問(wèn)鍵(在一字母前加&符號(hào))快捷鍵：頂級(jí)菜單不能使用快捷鍵！索

4、引：若將菜單控件定義為數(shù)組，則Index屬性確定數(shù)組控件的位置CheckedEnabledVisible當(dāng)具有菜單的窗體包含另一個(gè)具有菜單的對(duì)象時(shí)，該屬性協(xié)調(diào)二者的位置0-None1-Left2-Middle3-Right決定菜單項(xiàng)是否顯示缺省值True屬性區(qū)設(shè)置菜單項(xiàng)的左端是否帶復(fù)選標(biāo)記√缺省值False決定菜單項(xiàng)是否響應(yīng)事件缺省值True編輯區(qū)菜單列表區(qū)屬性區(qū)完成上述設(shè)計(jì),單擊確定按鈕,即可看到菜單結(jié)構(gòu),要實(shí)現(xiàn)菜單功能，需要編寫(xiě)菜單項(xiàng)的事件代碼【例1】設(shè)計(jì)一個(gè)具有算術(shù)運(yùn)算（+、-、×、/）及清除功能的菜單。從鍵

5、盤(pán)上輸入兩個(gè)數(shù)，利用菜單命令求出它們和、差、積或商，并顯示出來(lái)。菜單設(shè)計(jì)編寫(xiě)程序代碼菜單的事件過(guò)程以菜單項(xiàng)區(qū)分，可以把每個(gè)菜單項(xiàng)看成是一個(gè)控件。菜單設(shè)計(jì)完成后，只要單擊某個(gè)菜單項(xiàng)，即可定義該菜單項(xiàng)的事件過(guò)程?！纠?】設(shè)計(jì)菜單界面如下圖所示，下拉菜單中的子菜單項(xiàng)用于對(duì)文本框設(shè)置字體、字號(hào)、文字顏色和效果。其中，效果菜單下的各菜單項(xiàng)具有復(fù)選功能，設(shè)運(yùn)行初始時(shí)各項(xiàng)前面沒(méi)有√符號(hào)，與文本框初始狀態(tài)一致Text1菜單編輯器設(shè)置如下：標(biāo)題名稱(chēng)索引快捷鍵說(shuō)明字體(&F)AA訪問(wèn)鍵Alt+F....宋體AA11Ctrl+A定義成控

6、件數(shù)組AA1;AA1(3)用于生成分隔條....黑體AA12Ctrl+B....-AA13....隸書(shū)AA14Ctrl+C....楷體_GB2312AA15Ctrl+D字號(hào)(&S)BB訪問(wèn)鍵Alt+S....14BB11定義成控件數(shù)組BB1....16BB12....18BB13....20BB14菜單列表區(qū)續(xù)上表：標(biāo)題名稱(chēng)索引快捷鍵說(shuō)明顏色(&C)CC訪問(wèn)鍵Alt+C....紅色CC1.…綠色CC2.…藍(lán)色CC3效果(&E)DD訪問(wèn)鍵Alt+E....刪除線DD1.…下劃線DD2.…粗體DD3.…斜體DD4菜單列

7、表區(qū)菜單列表區(qū)菜單列表區(qū)菜單項(xiàng)事件代碼設(shè)計(jì)如下：“字體”菜單下的菜單項(xiàng)設(shè)計(jì)成一個(gè)控件數(shù)組AA1，共享以下事件過(guò)程:PrivateSubAA1_Click(IndexAsInteger)Text1.Font=AA1(Index).CaptionEndSub“字號(hào)”菜單下的菜單項(xiàng)設(shè)計(jì)成一個(gè)控件數(shù)組BB1，共享以下事件過(guò)程:PrivateSubBB1_Click(IndexAsInteger)Text1.FontSize=Val(BB1(Index).Caption)EndSub“顏色”菜單下的各菜單項(xiàng)為獨(dú)立的菜單控件，

8、因此應(yīng)分別在其單擊事件過(guò)程中編寫(xiě)代碼，各事件過(guò)程如下:PrivateSubCC1_Click()Text1.ForeColor=vbRedEndSubPrivateSubCC2_Click()Text1.ForeColor=vbGreenEndSubPrivateSubCC3_Click()Text1.ForeColor=vbBlueEndSub“效果”菜單