《Visual　Basic程序設(shè)計(jì)教程(第3版)》第4章用戶界面設(shè)計(jì)

第4章用戶界面設(shè)計(jì)第4章用戶界面設(shè)計(jì)24.1菜單設(shè)計(jì)4.2工具欄設(shè)計(jì)4.3狀態(tài)欄設(shè)計(jì)4.4對(duì)話框設(shè)計(jì)4.5多文檔界面設(shè)計(jì)4.6應(yīng)用案例與設(shè)計(jì)--利用菜單、工具欄實(shí)現(xiàn)多窗體應(yīng)用程序設(shè)計(jì)4.1菜單設(shè)計(jì)1．下拉式菜單菜單的基本結(jié)構(gòu)包括：菜單欄、菜單標(biāo)題、一級(jí)菜單、子菜單。2．彈出式菜單彈出式菜單就是在Windows中常用的浮動(dòng)式菜單。創(chuàng)建菜單1．菜單編輯器的使用打開(kāi)“菜單編輯器”窗口的方法有以下幾種：⑴選擇“工具”菜單中的“菜單編輯器”菜單項(xiàng)。⑵單擊標(biāo)準(zhǔn)工具欄中的“菜單編輯器”按鈕。⑶在窗體中單擊右鍵，在彈出的快捷菜單中（如圖4.2所示）選擇“菜單編輯器”菜單項(xiàng)。⑷Ctrl+E組合鍵。2．在“菜單編輯器”窗口中創(chuàng)建菜單的方法創(chuàng)建菜單(續(xù))創(chuàng)建菜單(續(xù))3．分隔菜單項(xiàng)在菜單項(xiàng)較多的菜單上，可以使用分隔線將各項(xiàng)劃分成一些邏輯組。4．設(shè)置訪問(wèn)鍵和快捷鍵訪問(wèn)鍵一般用于在鼠標(biāo)失效時(shí)，為用戶操作菜單提供的按鍵選擇。使用訪問(wèn)鍵時(shí)，要同時(shí)按下Alt鍵和該字母鍵?？旖萱I是為了更快地執(zhí)行菜單項(xiàng)命令，為每個(gè)底層菜單項(xiàng)設(shè)置的一種鍵盤(pán)操作手段，快捷鍵一般為鍵盤(pán)上的功能鍵或它們與其他字母鍵的組合。創(chuàng)建菜單(續(xù))5．創(chuàng)建子菜單使用菜單編輯器創(chuàng)建的每個(gè)菜單最多可以包含5級(jí)子菜單，子菜單會(huì)分支出另一個(gè)菜單以顯示它自己的菜單項(xiàng)。一般地，在菜單欄已滿情況下需要使用子菜單。彈出式菜單設(shè)計(jì)彈出式菜單是獨(dú)立于窗體菜單欄而顯示于窗體任何位置的浮動(dòng)菜單。彈出式菜單的顯示取決于按下鼠標(biāo)右鍵時(shí)指針?biāo)幍奈恢?，在Windows9.X中，一般是通過(guò)單擊鼠標(biāo)右鍵來(lái)激活彈出式菜單的。彈出式菜單設(shè)計(jì)(續(xù))以“編輯”主菜單項(xiàng)為例進(jìn)行設(shè)計(jì)，設(shè)計(jì)如圖4.10所示。

圖4.10創(chuàng)建彈出式菜單彈出式菜單設(shè)計(jì)(續(xù))創(chuàng)建彈出式菜單具體方法如下：⑴在“菜單編輯器”窗口中建立一個(gè)將要作為彈出式菜單的主菜單項(xiàng)。該主菜單項(xiàng)的標(biāo)題（Caption屬性）為編輯（&E），名稱（Name屬性）為EDIT，所包含的菜單項(xiàng)為“剪切”、“復(fù)制”、“粘貼”。建好彈出式菜單所需的菜單后，可以把“編輯”的Visible屬性設(shè)置為False，也可以設(shè)為T(mén)rue。彈出式菜單設(shè)計(jì)(續(xù))⑵為建立好的彈出式菜單編寫(xiě)程序代碼。

在代碼窗口中選擇Form對(duì)象，再在過(guò)程列表框中選擇MouseUp，則出現(xiàn)Form_MouseUp事件過(guò)程的模板。PrivateSubForm_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)EndSub在事件過(guò)程模板中添加下列代碼：IfButton=2Then ′檢查是否單擊鼠標(biāo)右鍵

PopupMenuEDIT ′EDIT是"編輯"菜單的控制名，將其激活顯示在窗體上EndIf彈出式菜單設(shè)計(jì)(續(xù))對(duì)于上例，利用窗體的MouseUp事件，當(dāng)用戶在窗體中單擊鼠標(biāo)右鍵時(shí)，上述代碼可將控制名為EDIT的彈出式菜單激活顯示在鼠標(biāo)所在處。要顯示彈出式菜單，可使用PopupMenu方法。PopupMenu方法的語(yǔ)法如下：[object.]PopupMenu

Menuname[,Flags[,X[,Y[,Boldcommand]]]]其中，object（可選）：窗口名稱表達(dá)式。Menuname（必需）：為所要顯示的彈出式菜單名（本例編輯菜單名為EDIT）。Flags（可選）：一個(gè)數(shù)值或常數(shù)，按照下列設(shè)置中的描述，用以指定彈出式菜單的位置和行為在菜單中添加文件列表1．設(shè)計(jì)時(shí)創(chuàng)建菜單控件數(shù)組用戶如果要在菜單編輯器中創(chuàng)建菜單控件數(shù)組2．運(yùn)行時(shí)動(dòng)態(tài)地創(chuàng)建菜單數(shù)組菜單控件數(shù)組中的元素也可以在運(yùn)行時(shí)動(dòng)態(tài)創(chuàng)建4.2工具欄設(shè)計(jì)工具欄控件（ToolBar）用來(lái)在窗體上產(chǎn)生具有很多按鈕對(duì)象的工具欄，按鈕上可以顯示文字、圖形。ImageList控件1.ImageList控件2.常用屬性IndexKeyPicture3.ImageList控件的創(chuàng)建ToolBar控件在VisualBasic6.0中，沒(méi)有把ToolBar控件作為標(biāo)準(zhǔn)控件，它屬于系統(tǒng)擴(kuò)充的ActiveX控件。1．ToolBar控件的屬性卡2．ToolBar控件的常用屬性ImageList屬性DisableImageList屬性HotImageList屬性ShowTips屬性Visible屬性Style屬性ToolBar控件(續(xù))3.ToolBar控件常用的事件和方法ButtonClick事件Add()ToolBar控件名.Buttons.Add(Index,Key,Caption,Style,Image)Remove()ToolBar控件名.Buttons.Remove按鈕的Index值Clear()ToolBar控件名.Buttons.Clear4.3狀態(tài)欄設(shè)計(jì)用戶可以在應(yīng)用程序中添加狀態(tài)欄，狀態(tài)欄一般位于窗體的底部，用于向用戶顯示系統(tǒng)的一些狀態(tài)。4.4對(duì)話框設(shè)計(jì)對(duì)話框是一種特殊的窗體，既可以用來(lái)顯示信息，也可以用于輸入應(yīng)用程序繼續(xù)執(zhí)行所需要的數(shù)據(jù)。使用函數(shù)生成對(duì)話框1．消息框通過(guò)執(zhí)行VisualBasic中的MsgBox函數(shù)，可以在屏幕上出現(xiàn)一個(gè)消息框來(lái)顯示消息MsgBox函數(shù)的語(yǔ)法格式如下：MsgBox(prompt[,buttons][,title][,helpfile,context])tt=MsgBox("請(qǐng)選擇操作",65,"消息框")使用函數(shù)生成對(duì)話框(續(xù))2．輸入框在VisualBasic中提供InputBox函數(shù)為用戶建立輸入框。InputBox函數(shù)的語(yǔ)法格式：InputBox(prompt[,title][,default][,xpos][,helpfilecontext])name=InputBox("請(qǐng)輸入用戶名：","輸入對(duì)話框")通用對(duì)話框VisualBasic提供通用對(duì)話框（CommonDialog）控件，通過(guò)該控件可以創(chuàng)建“打開(kāi)”、“另存為”、“顏色”、“字體”和、“打印”和“幫助”6種標(biāo)準(zhǔn)對(duì)話框。CommonDialog控件不在標(biāo)準(zhǔn)工具箱中，在使用之前，應(yīng)先將其添加到工具箱中。通用對(duì)話框(續(xù))表4.10通用對(duì)話框的方法列表方法對(duì)話框類型ShowOpen顯示“打開(kāi)”對(duì)話框ShowSave顯示“另存為”對(duì)話框ShowColor顯示“顏色”對(duì)話框ShowFont顯示“字體”對(duì)話框ShowPrinter顯示“打印”對(duì)話框ShowHelp顯示“Windows幫助”對(duì)話框“打開(kāi)”和“另存為”對(duì)話框?qū)嵗?/p>

在窗體上放置6個(gè)CommandButton控件，分別為：“打開(kāi)”按鈕，其Name屬性為command1；“另存”按鈕，其Name屬性為command2；“顏色”按鈕，其Name屬性為command3；“字體”按鈕，其Name屬性為command4；“打印”按鈕，其Name屬性為command5；“幫助”按鈕，其Name屬性為command6；以及一個(gè)CommonDialog控件，其默認(rèn)Name屬性為commondialog1，如圖4.36所示。“打開(kāi)”和“另存為”對(duì)話框?qū)嵗?續(xù))圖4.36示例使用的窗體“打開(kāi)”和“另存為”對(duì)話框?qū)嵗?續(xù))要顯示打開(kāi)或者另存為對(duì)話框，程序代碼如下：PrivateSubCommand1_Click()CommonDialog1.FileName=""CommonDialog1.Filter="allfiles|*.bmp|*.txt|*.doc"'設(shè)置文件過(guò)濾器Text1.Text="正在打開(kāi)"CommonDialog1.ShowOpen'顯示"打開(kāi)"對(duì)話框EndSub“打開(kāi)”和“另存為”對(duì)話框?qū)嵗?續(xù))PrivateSubCommand2_Click()CommonDialog1.FileName=""CommonDialog1.Filter="BmpFiles(*.bmp;*.BMP)"'設(shè)置文件過(guò)濾器Text1.Text="正在另存"CommonDialog1.ShowSave'顯示"另存為"對(duì)話框EndSub“打開(kāi)”和“另存為”對(duì)話框?qū)嵗?續(xù))PrivateSubCommand3_Click()CommonDialog1.Flags=cdlCCRGBInit'為對(duì)話框設(shè)置初始顏色值

CommonDialog1.ShowColor'顯示"顏色"對(duì)話框

Text1.BackColor=CommonDialog1.Color'設(shè)置背景顏色EndSub“打開(kāi)”和“另存為”對(duì)話框?qū)嵗?續(xù))PrivateSubCommand4_Click()CommonDialog1.ShowFont'顯示"字體"對(duì)話框

CommonDialog1.Flags=cdlCFBothText1.FontSize=CommonDialog1.FontSizeText1.FontUnderline=CommonDialog1.FontUnderlineText1.FontStrikethru=CommonDialog1.FontStrikethruText1.FontBold=CommonDialog1.FontBoldText1.FontItalic=CommonDialog1.FontItalicEndSub“打開(kāi)”和“另存為”對(duì)話框?qū)嵗?續(xù))PrivateSubCommand5_Click()CommonDialog1.Copies=1'設(shè)置默認(rèn)打印份數(shù)

CommonDialog1.ShowPrinter'顯示"打印"對(duì)話框EndSubPrivateSubCommand6_Click()CommonDialog1.HelpFile="c:\windows\help\notepad.hlp"CommonDialog1.HelpCommand=cdlHelpForceFileCommonDialog1.ShowHelp'顯示幫助文件EndSub“打開(kāi)”和“另存為”對(duì)話框?qū)嵗?續(xù))程序運(yùn)行后，單擊“打開(kāi)”按鈕，顯示如圖4.37所示的對(duì)話框，單擊“另存為”按鈕，顯示如圖4.38所示的對(duì)話框，用戶可從文件類型列表中看到文件過(guò)濾器的結(jié)果，單擊“顏色”按鈕，顯示如圖4.39所示的“顏色”對(duì)話框，選定顏色后，單擊“確定”按鈕，可以設(shè)置Text1中字體顏色，單擊“字體”按鈕，顯示如圖4.40所示的“字體”對(duì)話框，單擊“打印”按鈕，顯示如圖4.41所示的“打印”對(duì)話框，單擊“幫助”菜單項(xiàng)，即可啟動(dòng)Windows幫助系統(tǒng)，如圖4.42所示?！按蜷_(kāi)”和“另存為”對(duì)話框?qū)嵗?續(xù))圖4.37“打開(kāi)”對(duì)話框圖4.38“另存為”對(duì)話框“打開(kāi)”和“另存為”對(duì)話框?qū)嵗?續(xù))圖4.39“顏色”對(duì)話框圖4.40“字體”對(duì)話框“打開(kāi)”和“另存為”對(duì)話框?qū)嵗?續(xù))圖4.41“打印”對(duì)話框圖4.42啟動(dòng)的幫助文件自定義對(duì)話框用窗體自定義對(duì)話框的一般步驟如下：⑴向工程中添加窗體。⑵在窗體上創(chuàng)建其他控件對(duì)象，定義對(duì)話框的外觀。⑶設(shè)置窗體和控件對(duì)象的屬性。⑷在代碼窗口中創(chuàng)建事件過(guò)程。自定義對(duì)話框(續(xù))【例4.3】設(shè)計(jì)一個(gè)應(yīng)用程序的口令檢測(cè)對(duì)話框。在窗體form1的基礎(chǔ)上，添加新窗體，如圖4.45所示，其Name屬性為form2，Caption屬性為“口令”，MaxButton和MinButton屬性為False。新添加窗體上的控件為：Label1用于顯示“請(qǐng)輸入口令：”；Label2用于提示口令出錯(cuò)，其不可見(jiàn)；文本框Text1用于輸入口令，顯示為“*”；命令按鈕cmdok和cmdcancel。自定義對(duì)話框(續(xù))圖4.45實(shí)例窗體4.5多文檔界面設(shè)計(jì)基于Windows應(yīng)用程序的用戶界面主要有兩大類：?jiǎn)挝臋n界面（SDI）和多文檔界面（MDI）。在MDI應(yīng)用程序中至少包含兩種窗體：父窗體和子窗體。4.5多文檔界面設(shè)計(jì)(續(xù))1．MDI窗體的特性⑴主窗口MDI窗體只能有且只有一個(gè)。⑵子窗體至少有一個(gè)。⑶所有的子窗體無(wú)論如何操作都不能移出MDI窗體。⑷子窗體最小化后的圖標(biāo)位于MDI窗體的底部，而不是在任務(wù)欄。⑸父窗體最小化時(shí)，所有的子窗體也同時(shí)最小化，并且MDI窗體及其所有的子窗體將由一個(gè)圖標(biāo)來(lái)代表。4.5多文檔界面設(shè)計(jì)(續(xù))2．MDI窗體的常用屬性和方法ActiveForm屬性Arrange方法3．創(chuàng)建MDI窗體4．加入MDI子窗體5．加載和關(guān)閉MDI父窗體及子窗體⑴加載MDI父窗體及子窗體⑵關(guān)閉MDI窗體【例4.4】在MDI父窗體MDIForm1上設(shè)計(jì)一個(gè)菜單，包含3個(gè)菜單項(xiàng)，標(biāo)題分別為“層疊”、“平鋪”和“退出”，名稱分別為menu1、menu2和menu3，另外設(shè)計(jì)兩