《vb第2版》課件第7章菜單設(shè)計(jì)與多文檔界面

第七章菜單設(shè)計(jì)與多文檔界面(MDI)7.1對(duì)話框設(shè)計(jì)7.2菜單設(shè)計(jì)7.3多重窗體與多文檔界面7.4工具欄設(shè)計(jì)7.5

實(shí)例分析7.1對(duì)話框設(shè)計(jì)■添加通用對(duì)話框到工具箱

“通用對(duì)話框”控件是ActiveX控件，使用時(shí)要添加到工具箱。添加方法有如下兩種。(1)選擇“工程”“部件”命令，彈出“部件”對(duì)話框，在“控件”選項(xiàng)卡中選擇MicrosoftCommonDialogControl6.0，單擊“確定”按鈕，即可將“通用對(duì)話框”控件添加到控件工具箱中。如圖7-1所示。(2)在控件工具箱空白處右鍵單擊，選擇“部件“命令，同樣彈出“部件”對(duì)話框，后續(xù)操作同1。7.1對(duì)話框設(shè)計(jì)■添加通用對(duì)話框到工具箱

通用對(duì)話框可提供六種形式的對(duì)話框，在顯示出這些對(duì)話框之前需要通過調(diào)用Show方法來選擇。見表7-1。表7-1通用對(duì)話框的方法列表方法對(duì)話框類型ShowOpen打開文件對(duì)話框ShowSave保存文件對(duì)話框ShowColor顏色對(duì)話框ShowFont字體對(duì)話框ShowPrinter打印對(duì)話框ShowHelpWindows幫助對(duì)話框例如：CommonDialog1.ShowOpen

在應(yīng)用程序使用“通用對(duì)話框”控件時(shí)，需要將其添加到窗體中，同時(shí)在窗體上畫出的圖標(biāo)大小是固定不變的，該圖標(biāo)在程序運(yùn)行時(shí)消失，因此可將它放在窗體的任何位置。7.1對(duì)話框設(shè)計(jì)■添加通用對(duì)話框到工具箱

思考：該控件與哪個(gè)控件類似？

每種對(duì)話框都有自己的特殊屬性，這些屬性可以在代碼中設(shè)置，也可以通過“屬性頁”進(jìn)行設(shè)置?！皩傩皂摗笨赏ㄟ^以下方法打開：在屬性窗口中選擇“自定義”，點(diǎn)擊后面的“…”按鈕，就會(huì)彈出“屬性頁”對(duì)話框，如圖6-2所示?！龃蜷_文件對(duì)話框

“打開文件”對(duì)話框是“通用對(duì)話框”控件最常用的界面之一。在該對(duì)話框內(nèi)可以用來遍歷磁盤的整個(gè)目錄，指定相應(yīng)文件所在的驅(qū)動(dòng)器、文件夾以及文件名、擴(kuò)展名等。也可以在初始化時(shí)預(yù)先設(shè)置要查找的路徑或文件的擴(kuò)展名等，如圖7-2所示，其屬性頁各選項(xiàng)含義如下：7.1對(duì)話框設(shè)計(jì)1.對(duì)話框標(biāo)題(DialogTitle)：用來指定對(duì)話框的標(biāo)題內(nèi)容。“打開”對(duì)話框的默認(rèn)值為“打開”。2.文件名稱(FileName)：用來設(shè)置“打開”對(duì)話框中“文件名”的初始值。3.初始化路徑(InitDir)：指定對(duì)話框中顯示的初始路徑。若不設(shè)置該項(xiàng)，則顯示系統(tǒng)默認(rèn)路徑。4.過濾器(Filter)：指定在對(duì)話框中顯示的文件類型。該值由一對(duì)或多對(duì)字符串組成，每對(duì)字符串之間用“|”隔開，其格式為：對(duì)話框名.Filter=描述符1|過濾符1|描述符2|過濾符2……例如：CommonDialog1.Filter=“AllFile(*.*)|*.*|(.jpg)|.jpg|(.vbp)|.vbp”描述符和過濾符必須成對(duì)出現(xiàn)，描述符是在“打開文件對(duì)話框”中“文件類型”下拉列表中的文字說明；過濾符.jpg表示選擇后綴為.jpg的所有文件，*.*表示選擇所有文件等。5.過濾器索引(FilterIndex)：用來指定默認(rèn)的過濾器。用Filter設(shè)置多個(gè)過濾符之后，每個(gè)過濾符都有一個(gè)值，這些值從1開始。例如：

CommonDialog1.FilterIndex=2結(jié)合④中例子，該語句表示打開對(duì)話框后，在“文件類型”中顯示的是“.jpg”。例如：CommonDialog1.ShowOpen在程序中調(diào)用ShowOpen方法顯示“打開文件對(duì)話框”格式為：控件名.ShowOpen“保存文件”對(duì)話框顧名思義是用來保存文件時(shí)打開的對(duì)話框，它與“打開文件”對(duì)話框結(jié)構(gòu)類似，如圖7-4所示。對(duì)話框標(biāo)題為“另存為”，該對(duì)話框也能遍歷磁盤的整個(gè)目錄，找到所需要保存文件的位置。■保存文件對(duì)話框■顏色對(duì)話框顏色對(duì)話框是“通用對(duì)話框”所能顯示的第3種對(duì)話框，如圖6-5所示。在顏色調(diào)色板中提供了基本顏色，還提供了用戶自定義顏色，用戶可以自己調(diào)色。7.1對(duì)話框設(shè)計(jì)Text1.ForeColor=CommonDialog1.Color通過顏色對(duì)話框設(shè)置文本框的文字顏色?！鲎煮w對(duì)話框“字體”對(duì)話框設(shè)置并返回所有字體的名字、樣式、大小、顏色效果等，打開的“字體”對(duì)話框如圖7-6所示。7.1對(duì)話框設(shè)計(jì)在使用CommonDialog控件選擇字體之前，必須先設(shè)置標(biāo)志(Flag)屬性?！龃蛴?duì)話框

在“打印”對(duì)話框可以選擇打印機(jī)，打印機(jī)的屬性可以通過“打印”對(duì)話框的“屬性”按鈕進(jìn)行設(shè)置。打開的“打印”對(duì)話框如圖7-7所示。7.1對(duì)話框設(shè)計(jì)例【7-1】使用通用對(duì)話框的例子。分析：在窗體上增添一個(gè)文本框text1，一個(gè)通用對(duì)話框控件commondialog1，5個(gè)命令按鈕command1~command5，其Caption屬性分別為“打開”、“保存”、“字體修改”、“顏色修改”和“打印”。設(shè)計(jì)界面如圖7-9所示?！隼?/p>

7.1對(duì)話框設(shè)計(jì)對(duì)各個(gè)按鈕編寫Click事件過程如下。PrivateSubCommand1_Click()CommonDialog1.Filter="所有文件|*.*|文本文件(*.txt)|*.txt|位圖文件(*.bmp)|*.bmp"CommonDialog1.FilterIndex=2CommonDialog1.ShowOpenEndSubPrivateSubCommand2_Click()CommonDialog1.ShowSaveEndSubPrivateSubCommand3_Click()CommonDialog1.ShowFontText1.FontName=CommonDialog1.FontNameText1.FontBold=CommonDialog1.FontBoldText1.FontSize=CommonDialog1.FontSizeEndSub■例子

7.1對(duì)話框設(shè)計(jì)PrivateSubCommand4_Click()CommonDialog1.ShowColorText1.ForeColor=CommonDialog1.ColorEndSubPrivateSubCommand5_Click()CommonDialog1.ShowPrinterFori=1To3Printer.PrintText1.TextNextPrinter.EndDocEndSub7.2菜單設(shè)計(jì)■下拉式菜單

“菜單編輯器”是VB提供的一種用來建立菜單欄的工具，利用該工具可以方便快捷的建立起菜單?！安藛尉庉嬈鳌笨梢酝ㄟ^以下方式打開：選擇“工具”菜單下的“菜單編輯器”命令，或者點(diǎn)擊工具欄中的“菜單編輯器”按鈕，都可以打開如圖7-10所示“菜單編輯器”窗口?！安藛尉庉嬈鳌睂?duì)話框分為兩部分：上半部分是控件屬性區(qū)，用來設(shè)置屬性，下半部分為菜單編輯區(qū)，用來顯示用戶設(shè)置的菜單和菜單項(xiàng)。屬性區(qū)的各個(gè)屬性含義如表7-3所示。名稱說明標(biāo)題(Caption)輸入該項(xiàng)內(nèi)容可建立菜單名或命令名。名稱(Name)設(shè)置菜單項(xiàng)的名稱，相當(dāng)于控件的Name屬性，用于在程序中訪問菜單索引(Index)設(shè)置菜單控件數(shù)組中的下標(biāo)快捷鍵(Shortcut)設(shè)置與菜單等價(jià)的快捷鍵復(fù)選(Checked)選中此內(nèi)容時(shí)，表示該菜單項(xiàng)當(dāng)前處于活動(dòng)狀態(tài)有效(Enabled)設(shè)置菜單項(xiàng)是否可用可見(Visible)設(shè)置菜單項(xiàng)是否可見表7-3菜單控件的主要屬性7.2菜單設(shè)計(jì)■下拉式菜單

名稱功能

每次單擊都把選中的菜單項(xiàng)左/右移一個(gè)等級(jí)，一共可創(chuàng)建4個(gè)子菜單等級(jí)每次單擊都把選中的菜單項(xiàng)在同級(jí)菜單中向上/下移動(dòng)一個(gè)位置下一個(gè)選定下一個(gè)菜單項(xiàng)插入在光標(biāo)所在處插入一個(gè)空白菜單項(xiàng)刪除刪除光標(biāo)所在行的菜單項(xiàng)表7-4編輯區(qū)各部分功能7.2菜單設(shè)計(jì)■例子

例【7-2】創(chuàng)建一個(gè)簡易文本編輯器。設(shè)計(jì)方法：在窗體上放置一個(gè)通用對(duì)話框CommonDialog1和一個(gè)文本框Text1，然后按圖7-11所示設(shè)計(jì)菜單，設(shè)計(jì)方法如上述所示。編寫文件菜單下“打開”和“保存”兩個(gè)菜單項(xiàng)的Click事件代碼：PrivateSubopen_Click()CommonDialog1.Filter="所有文件|*.*|文本文件(*.txt)|*.txt|位圖文件(*.bmp)|*.bmp"CommonDialog1.FilterIndex=2CommonDialog1.ShowOpenEndSubPrivateSubsave_Click()CommonDialog1.ShowSaveEndSub編寫視圖菜單下的“顏色”菜單項(xiàng)的Click事件代碼：PrivateSubcolor_Click()CommonDialog1.ShowColorText1.ForeColor=CommonDialog1.colorEndSub編寫視圖菜單下的“字體大小”菜單項(xiàng)下的兩個(gè)子菜單項(xiàng)的Click事件代碼：PrivateSubsixteen_Click()Text1.fontsize=16EndSubPrivateSubtwenty_Click()Text1.fontsize=20EndSub編寫視圖菜單下的“字體風(fēng)格”菜單項(xiàng)下的兩個(gè)子菜單項(xiàng)的Click事件代碼：PrivateSubkai_Click()Text1.FontName="楷體_GB2312"EndSubPrivateSubli_Click()Text1.FontName="隸書"EndSub菜單是VB中的一個(gè)控件，因此也能對(duì)菜單應(yīng)用控件數(shù)組的概念。菜單控件數(shù)組同其他控件數(shù)組一樣，也是需要依靠Index值來判斷選中的哪個(gè)菜單項(xiàng)。如果將例7-2中的同一級(jí)菜單改成使用菜單控件數(shù)組，可將菜單項(xiàng)設(shè)置進(jìn)行如下修改：將“文件”菜單下的“打開”和“保存”的索引(Index)值分別設(shè)置為1和2，將二者的名稱(Name)值均改為files；將“字體大小”菜單下的“16”和“20”的索引(Index)值分別設(shè)置為1和2,將二者的名稱(Name)值都改為size；將“字體風(fēng)格”菜單下的“隸書”和“楷體”的索引(Index)值分別設(shè)置為1和2，將二者的名稱(Name)值都改為style，具體設(shè)置如表7-6所示。

7.2菜單設(shè)計(jì)■菜單控件數(shù)組所有的菜單控件都具有Enabled屬性，當(dāng)該屬性為False時(shí)，菜單項(xiàng)變?yōu)榛疑c(diǎn)擊時(shí)不響應(yīng)任何操作，快捷鍵的訪問也無效。例如，要使例6-2中的“打開”菜單項(xiàng)無效，可以先進(jìn)行如下設(shè)置：Open.Enabled=False在運(yùn)行時(shí)該菜單項(xiàng)就變成灰色，不響應(yīng)鼠標(biāo)或鍵盤的任何操作。如果要使菜單項(xiàng)在運(yùn)行時(shí)隱藏起來，可以利用Visiable屬性達(dá)到這一目的。例如：Open.visiable=False在運(yùn)行時(shí)，“打開”這一菜單項(xiàng)就不可見?！霾藛螣o效性設(shè)計(jì)彈出式菜單的設(shè)計(jì)方法如下：先使用菜單編輯器設(shè)計(jì)一個(gè)一般的菜單，然后用VB提供的PopupMenu方法來顯示彈出菜單。該方法的使用形式如下：[窗體名.]PopupMenu菜單名，標(biāo)志，X，Y其中，菜單名是必須的，后面的其他幾個(gè)參數(shù)是可選的。菜單名是指用右鍵單擊時(shí)要顯示的菜單的名稱(Name)，X和Y參數(shù)指定彈出菜單顯示的位置，標(biāo)志參數(shù)用于進(jìn)一步定義彈出菜單的位置和性能，其取值含義如表6-7所示。7.2菜單設(shè)計(jì)■彈出式菜單值說明位置0菜單左上角位于X4菜單上框中央位于X8菜單右上角位于X性能0（默認(rèn)）右鍵單擊觸發(fā)彈出菜單2左鍵、右鍵均可觸發(fā)彈出菜單例如，在例【7-2】中，右鍵單擊文本框時(shí)彈出“字體風(fēng)格”菜單，可添加如下代碼：PrivateSubText1_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfButton=2ThenPopupMenufontstyle,6EndSub運(yùn)行后界面如圖7-12所示。其中Button＝2表示按下鼠標(biāo)右鍵，參數(shù)6是4與2的和。7.2菜單設(shè)計(jì)■彈出式菜單例[7-3]設(shè)計(jì)一個(gè)可以改變窗體背景顏色的彈出菜單。首先打開菜單編輯器，如圖7-13建立一個(gè)名為mnucolor的菜單，并取消“可見”選擇。7.2菜單設(shè)計(jì)■彈出式菜單菜單控件數(shù)組屬性設(shè)置。7.2菜單設(shè)計(jì)■彈出式菜單標(biāo)題(Caption)菜單名(Name)索引說明設(shè)置背景色mucolor菜單項(xiàng)1紅色red1菜單項(xiàng)11綠色green2菜單項(xiàng)12藍(lán)色blue3菜單項(xiàng)13編寫如下代碼：首先檢查是否單擊了鼠標(biāo)右鍵，如果是單擊右鍵則把mnucolor菜單顯示為一個(gè)彈出式菜單。PrivateSubForm_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle) IfButton=2Then PopupMenumnucolor EndIf EndSub7.2菜單設(shè)計(jì)■彈出式菜單 PrivateSubred_click() Form1.BackColor=&HFF EndSub PrivateSubgreen_click() Form1.BackColor=&HFF00& EndSub PrivateSubblue_click() Form1.BackColor=&HFF0000EndSub7.2菜單設(shè)計(jì)■彈出式菜單■創(chuàng)建多重窗體界面應(yīng)用程序界面是用戶和應(yīng)用程序交互的主要操作之一，在VB中，應(yīng)用程序的界面一般分為單文檔SDI(SingleDocumentInterface)界面和多文檔MDI(MultipleDocumentInterface)界面。前者又稱為多重窗體界面，每個(gè)窗體是獨(dú)立的、平等的；后者所包含的所有窗體都在一個(gè)父窗體中，父窗體為所有的子窗體提供工作空間，像MicrosoftExcel就是此種類型，它能夠在一個(gè)工作簿中打開多個(gè)工作表。7.3多重窗體與多文檔界面設(shè)計(jì)

1.添加窗體方法一：單擊“工程”菜單下的“添加窗體”命令，即可在當(dāng)前工程中添加一個(gè)窗體。方法二：在“工程資源管理器”窗口單擊右鍵，選擇“添加”命令中的“添加窗體”，也可在當(dāng)前工程中添加一個(gè)窗體。新添加的窗體可以通過“工程資源管理器”窗口查看，例如在一個(gè)新的空白窗體添加一個(gè)窗體，新添加的窗體被命名為Form2，如圖7-15所示在“工程資源管理器”窗口查看。如果添加了多個(gè)窗體，系統(tǒng)默認(rèn)的命名是Form3、Form4等等。■創(chuàng)建多重窗體界面7.3多重窗體與多文檔界面設(shè)計(jì)

2.刪除窗體方法一：選中要?jiǎng)h除的窗體，點(diǎn)擊“工程”菜單下的“移除<窗體名>”即可。方法二：在“工程資源管理器”窗口中，選中要?jiǎng)h除的窗體名，右鍵單擊選擇“移除<窗體名>”命令。3.多個(gè)窗體間的切換在一個(gè)應(yīng)用程序中，如果有多個(gè)窗體，可通過“工程資源管理器”窗口進(jìn)行切換，雙擊要打開的窗體名即可將該窗體設(shè)置為當(dāng)前活動(dòng)窗體。■創(chuàng)建多重窗體界面7.3多重窗體與多文檔界面設(shè)計(jì)

4.多重窗體的加載加載窗體是指將窗體文件裝入內(nèi)存，卸載窗體指將窗體從內(nèi)存中刪除。加載窗體命令如下：Load<窗體名>執(zhí)行該命令后，可以引用窗體中的各對(duì)象，但此時(shí)窗體并沒有顯示出來。卸載窗體命令：Unload<窗體名>調(diào)用Load語句加載窗體后，窗體并沒有被顯示出來，若要顯示出窗體，可通過如下語句：[窗體名.]Show如果省略“窗體名”，則顯示當(dāng)前窗體。Show方法同時(shí)具有加載和顯示兩種功能，如果窗體沒有被加載而要顯示，則先將窗體加載，再顯示出來。如果要將窗體暫時(shí)關(guān)閉而不從內(nèi)存中卸載，可以調(diào)用Hide方法實(shí)現(xiàn)：[窗體名.]Hide

■創(chuàng)建多重窗體界面7.3多重窗體與多文檔界面設(shè)計(jì)

5.多重窗體的啟動(dòng)應(yīng)用程序中如果包含多個(gè)窗體，VB需要指定一個(gè)窗體為首先要啟動(dòng)的窗體。若要設(shè)置一個(gè)窗體為啟動(dòng)窗體，可通過如下方法設(shè)置：選擇“工程”菜單中的“工程名屬性”命令，打開如圖7-16所示對(duì)話框(這里打開的是“工程1屬性”)，在“通用”選項(xiàng)卡中找到“啟動(dòng)對(duì)象”，在下拉列表框中選擇要作為啟動(dòng)窗體的窗體名，然后單擊“確定”即可?！鰟?chuàng)建多重窗體界面7.3多重窗體與多文檔界面設(shè)計(jì)

應(yīng)用程序在運(yùn)行時(shí)如果想要先執(zhí)行一段代碼，然后根據(jù)代碼的執(zhí)行情況來確定先加載哪個(gè)窗體，這種情況下就需要使用SubMain過程作為首先的啟動(dòng)對(duì)象。SubMain過程可在圖7-16的“啟動(dòng)對(duì)象”中設(shè)置，然后在標(biāo)準(zhǔn)模塊中建立。SubMain過程的建立方法如下：1.點(diǎn)擊“工程”菜單下的“添加模塊”命令，在打開的對(duì)話框中選擇“模塊”為當(dāng)前的工程添加一個(gè)模塊，模塊默認(rèn)名字為Module1。2.在“工程資源管理器”中雙擊Module1，打開相應(yīng)的代碼窗口。3.在代碼窗口輸入SubMain，按Enter鍵后系統(tǒng)將自動(dòng)添加上過程的開始和結(jié)尾。4.在其中編寫過程代碼，并保存模塊文件Module1.bas。由于系統(tǒng)并不能直接識(shí)別出SubMain過程而將其首先執(zhí)行，所以在SubMain過程編寫完畢后，需要打開“工程”菜單下的“工程屬性”對(duì)話框把SubMain過程設(shè)置為啟動(dòng)對(duì)象，這樣程序在運(yùn)行時(shí)會(huì)首先執(zhí)行SubMain過程，根據(jù)過程中的代碼執(zhí)行情況顯示或加載相關(guān)的窗體?！鰟?chuàng)建多重窗體界面7.3多重窗體與多文檔界面設(shè)計(jì)

多文檔界面可以在一個(gè)窗體中打開多個(gè)子窗體，父窗體為每個(gè)子窗體提供工作空間，子窗體被放置在父窗體中，最小化時(shí)其圖標(biāo)顯示在父窗體中而不是任務(wù)欄中。在創(chuàng)建多文檔界面時(shí)，首先要?jiǎng)?chuàng)建一個(gè)父窗體即創(chuàng)建一個(gè)MDI窗體，然后再創(chuàng)建子窗體，子窗體實(shí)際就是將一個(gè)普通的窗體的MDIChild屬性設(shè)置為真的。創(chuàng)建MDI窗體的步驟如下：選擇“工程”菜單下的“添加MDI窗體”命令，里面只有一個(gè)默認(rèn)選項(xiàng)，單擊“打開”命令，出現(xiàn)如圖7-17所示窗體。此時(shí)在“工程資源管理器”中同時(shí)顯示出MDI窗體?！鰟?chuàng)建多文檔(MDI)界面

7.3多重窗體與多文檔界面設(shè)計(jì)

創(chuàng)建MDI子窗體的步驟如下：1.打開一個(gè)已有的普通窗體，或者添加一個(gè)新的窗體。2.將這個(gè)普通窗體的MDIChild屬性設(shè)置為真。一個(gè)工程中只能有一個(gè)MDI窗體，一個(gè)MDI窗體中可以有多個(gè)子窗體，這些子窗體的顯示或隱藏需要調(diào)用7.1.3節(jié)的各種方法來操作。子窗體最小化時(shí)的圖標(biāo)不是放置在任務(wù)欄中，而是放置在父窗體中，子窗體可以在父窗體中任意移動(dòng)、最小化或最大化，但不能超出父窗體的范圍。父窗體和子窗體都可以有各自的菜單。

■創(chuàng)建多文檔(MDI)界面

7.3多重窗體與多文檔界面設(shè)計(jì)

例【7-4】為當(dāng)前工程添加1個(gè)MDI窗體MDIForm1和3個(gè)普通窗體Form2、Form3和Form4，并把這3個(gè)普通窗體的MDIChild屬性設(shè)置為True。再添加一個(gè)普通窗體Form1，F(xiàn)orm1中有一個(gè)命令按鈕Command1，設(shè)置其Caption屬性為“顯示MDI多文檔界面”，要求單擊該按鈕后顯示多文檔界面，顯示的多文檔界面如圖7-18所示。■創(chuàng)建多文檔(MDI)界面

7.3多重窗體與多文檔界面設(shè)計(jì)

為Command1編寫事件過程：PrivateSubCommand1_Click()MDIForm1.ShowForm2.ShowForm3.ShowForm4.ShowEndSub此時(shí)如果單擊每個(gè)MDI子窗體右上角的“最小化”按鈕，那么該窗體最小化后的圖標(biāo)就會(huì)出現(xiàn)在其父窗體的下面而不是任務(wù)欄中。■創(chuàng)建多文檔(MDI)界面

7.3多重窗體與多文檔界面設(shè)計(jì)

7.4工具欄設(shè)計(jì)ToolBar控件是一種ActiveX控件，使用前需要將其添加到工具箱中，添加方法如下：在工具箱空白處單擊右鍵，選擇“部件”命令，打開“部件”對(duì)話框中的“控件”選項(xiàng)卡，選擇MicrosoftWindowsCommonControls5.0，單擊“確