VB教程用戶界面設(shè)計(jì)

優(yōu)質(zhì)文檔精選VB教程用戶界面設(shè)計(jì)目前一頁\總數(shù)六十六頁\編于十七點(diǎn)10.1菜單設(shè)計(jì)

Windows環(huán)境下的應(yīng)用程序一般為用戶提供三種菜單：窗體控制菜單、下拉菜單與快捷菜單。目前二頁\總數(shù)六十六頁\編于十七點(diǎn)一.啟動菜單編輯器：有三種方法:

1單擊工具欄菜單圖標(biāo)

2工具/菜單編輯器

(CTRL+E)3窗體上快捷菜單／菜單編輯器菜單編輯器操作界面如右所示。10.1.1菜單編輯器目前三頁\總數(shù)六十六頁\編于十七點(diǎn)菜單編輯器介紹：1.標(biāo)題(Caption)：2.名稱(Name)：3.快捷鍵(Shortcut)：4.下一個(Next)：5.←和→按鈕6.插入(Insert)按鈕：7.刪除(Delete)按鈕：8↓和↑按鈕： 10.復(fù)選(Checked)檢查框：10.有效(Enabled)檢查框：11.顯示窗口列表(WindowList)檢查框：

目前四頁\總數(shù)六十六頁\編于十七點(diǎn)

菜單的主要屬性

1.標(biāo)題(Caption)：在窗口上顯示，例如：輸入&File，顯示為：File，熱鍵：Alt+F

2.名稱(Name)： 菜單項(xiàng)的名稱，分界符也應(yīng)有名稱。

3.快捷鍵(Shortcut)：下拉列表框

4下一個(Next)： 設(shè)置下一個菜單項(xiàng)。

5.←和→按鈕：“→”下一級菜單項(xiàng)；“←”上一級菜單項(xiàng)。

6.插入(Insert)按鈕：插入菜單項(xiàng)

7.刪除(Delete)按鈕：刪除菜單項(xiàng)

8.↓和↑按鈕： 改變菜單項(xiàng)位置。

10.復(fù)選(Checked)檢查框：菜單項(xiàng)為選定項(xiàng)。

10.有效(Enabled)檢查框：True：菜單項(xiàng)可選；False：不可選。

11.顯示窗口列表(WindowList)檢查框：目前五頁\總數(shù)六十六頁\編于十七點(diǎn)1．設(shè)計(jì)下拉菜單2．設(shè)計(jì)子菜單或改變子菜單級別

3．為菜單項(xiàng)分組菜單名用減號“-”4．為菜單項(xiàng)指定訪問鍵和快捷鍵與命令按鈕設(shè)置訪問鍵相同。5．為菜單項(xiàng)加上復(fù)選標(biāo)記6．禁止使用菜單項(xiàng)在程序代碼中可以通過程序代碼：菜單名.Enabled=False7．菜單項(xiàng)的增減

菜單設(shè)計(jì)的常用的幾項(xiàng)操作：目前六頁\總數(shù)六十六頁\編于十七點(diǎn)10.1.2下拉式菜單

10.1菜單設(shè)計(jì)

在下拉式菜單中，一般只需要對下拉菜單的最低級菜單項(xiàng)編寫單擊事件代碼，如果對一個有下級菜單的菜單項(xiàng)編寫了單擊事件，則在執(zhí)行下一級菜單時，該菜單程序?qū)⑾葓?zhí)行。

在下拉式菜單中，一般有一個主菜單，稱為菜單欄。每個菜單欄包括一個或多個選擇項(xiàng)，稱為菜單標(biāo)題。

菜單控件（對象）只有一個事件——單擊事件（Click()）一.設(shè)計(jì)下拉式菜單的步驟：(1)新建一個窗體，并設(shè)計(jì)用戶界面。(2)利用菜單編輯器設(shè)計(jì)各菜單項(xiàng)。(3)編寫每個菜單項(xiàng)的事件過程。(4)運(yùn)行調(diào)試各菜單命令。目前七頁\總數(shù)六十六頁\編于十七點(diǎn)二、下拉式菜單設(shè)計(jì)舉例【例10.1】設(shè)計(jì)菜單程序，通過菜單控制標(biāo)簽中文字的字體，字型等，程序運(yùn)行界面如圖10.3所示。當(dāng)用戶選擇某一菜單項(xiàng)時執(zhí)行相應(yīng)的命令功能。圖10.3程序運(yùn)行界面設(shè)計(jì)步驟如下：1.界面設(shè)計(jì)在窗體上添加一個Frame1和Label1，用于顯示文字信息。啟動菜單編輯器，所要建立的菜單中各菜單項(xiàng)的屬性設(shè)置如表10.1所示，菜單編輯器中各項(xiàng)設(shè)置如圖10.4所示，對每一個菜單項(xiàng)輸入標(biāo)題、名稱和選擇相應(yīng)的快捷鍵。目前八頁\總數(shù)六十六頁\編于十七點(diǎn)標(biāo)題(Caption)名稱(Name)索引值說

明字體字體主菜單項(xiàng)1….宋體

songti子菜單11快捷鍵Ctrl+S….楷體kaiti子菜單12快捷鍵Ctrl+K….黑體heiti子菜單13快捷鍵Ctrl+H字型字型主菜單項(xiàng)2….粗體（&B）

fontstyle0子菜單21熱鍵B….斜體（&I）fontstyle1子菜單22熱鍵I….下劃線（&U）fontstyle2子菜單23熱鍵U表10.1菜單項(xiàng)屬性設(shè)置（2）編寫菜單項(xiàng)代碼PrivateSubForm_Load()Label1.FontSize=16Label1.Caption="長亭外古道邊"+Chr(13)+Chr(10)+"芳草碧連天"+Chr(13)+Chr(10)+"問君此去幾時來"+Chr(13)+Chr(10)+"來時莫徘徊"EndSubPrivateSubsongti_Click()Label1.FontName="宋體"EndSubPrivateSubheiti_Click()Label1.FontName="黑體"EndSubPrivateSubkaiti_Click()Label1.FontName="楷體_GB2312"EndSub

目前九頁\總數(shù)六十六頁\編于十七點(diǎn)PrivateSubfontstyle_Click(IndexAsInteger)fontstyle(Index).Checked=Notfontstyle(Index).CheckedSelectCaseIndexCase0Label1.FontBold=fontstyle(Index).CheckedCase1Label1.FontItalic=fontstyle(Index).CheckedCase2Label1.FontUnderline=fontstyle(Index).CheckedEndSelectEndSub字型下拉菜單代碼如下：目前十頁\總數(shù)六十六頁\編于十七點(diǎn)

彈出式菜單是獨(dú)立于菜單欄顯示在窗體或指定控件上的浮動菜單，菜單的顯示位置與鼠標(biāo)當(dāng)前位置有關(guān)。實(shí)現(xiàn)步驟如下：

1.在菜單編輯器中建立該菜單。

2.設(shè)置其頂層菜單項(xiàng)（主菜單項(xiàng)）的Visible屬性為False（不可見）。

3.在窗體或控件的MouseUp或MouseDown事件中調(diào)用PopupMenu方法顯示該菜單。PopupMenu的使用方法為：

PopupMenu<菜單名>[,flags[,x[,y[,Boldcommand]]]]10.1.3彈出式菜單

其中：⑴關(guān)鍵字“PopupMenu”可以前置窗體名稱，但不可前置其他控件名稱。⑵<菜單名>是指通過菜單編輯器設(shè)計(jì)的、至少有一個子菜單項(xiàng)的菜單名稱（Name）。⑶Flags參數(shù)為常數(shù)，用來定義顯示位置與行為,其取值見表10.2目前十一頁\總數(shù)六十六頁\編于十七點(diǎn)位置常數(shù)值描述vbPopupMenuLeftAlign0缺省值。彈出式菜單的左邊定位于

x。vbPopupMenuCenterAlign4彈出式菜單以

x為居中心。vbPopupMenuRightAlign8彈出式菜單的右邊定位于

x。行為常數(shù)值描述vbPopupMenuLeftButton0缺省值。

僅當(dāng)使用鼠標(biāo)右鍵單擊時，

彈出式菜單中的項(xiàng)目才響應(yīng)鼠標(biāo)單擊。vbPopupMenuRightButton2彈出式菜單中的項(xiàng)目可接受左、右鍵單擊。10.1.3彈出式菜單設(shè)計(jì)表10.2flags參數(shù)值表Boldcommand參數(shù)設(shè)置菜單項(xiàng)可以粗體顯示。一般的彈出式菜單是在右擊時彈出，所以PopupMenu方法一般是放在對象的MouseDown事件過程中，根據(jù)按下的是鼠標(biāo)左鍵還是右鍵來決定是否彈出菜單。目前十二頁\總數(shù)六十六頁\編于十七點(diǎn)例10.2】

為【例10.1】添加一個標(biāo)簽的彈出式菜單，該菜單包含有“10”、“12”和“14”3個菜單項(xiàng)，如圖10.5所示。單擊相應(yīng)的菜單項(xiàng)后可以改變標(biāo)簽中文字的字體大小。彈出式式菜單設(shè)計(jì)舉例圖10.5彈出式菜單PrivateSubLabel1_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfButton=2Then'按下鼠標(biāo)右鍵Form1.PopupMenufsize,4Or2EndIfEndsubPrivateSubsize_Click(IndexAsInteger)SelectCaseIndexCase0Label1.fontsize=10Case1Label1.fontsize=12Case2Label1.fontsize=14EndSelectEndsub目前十三頁\總數(shù)六十六頁\編于十七點(diǎn)用“菜單編輯器”對話框創(chuàng)建好的菜單，在程序運(yùn)行過程中并非就一成不變。用戶可以根據(jù)實(shí)際運(yùn)行情況動態(tài)地調(diào)整和控制菜單的使用，給菜單增加一些靈活性。如當(dāng)某菜單項(xiàng)執(zhí)行的操作不適合當(dāng)前環(huán)境時，可以暫時使其失效或?qū)⑵潆[藏起來。當(dāng)需要時也可以添加或刪除某菜單項(xiàng)。隱藏或顯示菜單項(xiàng)并不能真正地改變菜單的數(shù)量，要使菜單項(xiàng)真正地、動態(tài)地增減（從內(nèi)存中），則必須使用菜單控件數(shù)組實(shí)現(xiàn)。運(yùn)行時通過Load語句增加新的菜單控件，使用UnLoad語句將其刪除。10.1.4動態(tài)菜單Load

控件數(shù)組名(index)Unload

控件數(shù)組名(index)目前十四頁\總數(shù)六十六頁\編于十七點(diǎn)10.1.4動態(tài)菜單【例10.3】設(shè)計(jì)如下程序，當(dāng)文本框中沒有任何文字時，“字體大小”菜單中的各項(xiàng)均變?yōu)榛疑@示，表示當(dāng)前不可用；當(dāng)用戶在文本框中輸入了文字后選擇某菜單項(xiàng)后，可將文字大小設(shè)為對應(yīng)值并在當(dāng)前菜單項(xiàng)的前面加一個“√”，如圖10.6（a）、圖10.6（b）所示。如果用戶選擇了“14”菜單項(xiàng)，則“10”菜單項(xiàng)將隱藏，并且添加菜單項(xiàng)“16”，其功能與其他菜單項(xiàng)相同，當(dāng)用戶重新選擇了“12”菜單項(xiàng)時，“16”菜單項(xiàng)將被刪除，并恢復(fù)菜單項(xiàng)“10”的可見性，即文字字號最大值為16，最小為10，菜單中只能同時存在三個選項(xiàng)，如圖10.6（c）、圖10.6（d）所示。圖10.6動態(tài)修改菜單示例（b）（c）（d）（a）目前十五頁\總數(shù)六十六頁\編于十七點(diǎn)10.2通用對話框工程/部件

選定控件標(biāo)簽選定MicrosoftCommDialogControl6.0

CommonDialog控件不是標(biāo)準(zhǔn)控件，是一種ActiveX控件，位于MicrosoftCommonDialogControl6.0部件中。確定通用對話框圖標(biāo)目前十六頁\總數(shù)六十六頁\編于十七點(diǎn)10.2.1通用對話框的基本屬性和方法CommonDialog控件的基本屬性（1）Action屬性：該屬性決定打開何種類型的標(biāo)準(zhǔn)對話框，其取值如表10.4所示。該屬性不能在屬性窗口中設(shè)置，只能在程序中賦值。表10.4打開通用對話框的方法與Action屬性設(shè)置類型Action屬性方法無對話框0—“打開”對話框1ShowOpen“另存為”對話框2ShowSave“顏色”對話框3ShowColor“字體”對話框4ShowFont“打印”對話框5ShowPrinter“幫助”對話框6ShowHelp目前十七頁\總數(shù)六十六頁\編于十七點(diǎn)（2）Name屬性：CommonDialog控件的名稱屬性。（3）CancelError屬性：多數(shù)對話框都有“取消”按鈕，用于向應(yīng)用程序表示用戶想取消當(dāng)前操作。CancelError屬性的作用是向應(yīng)用程序報(bào)告用戶取消當(dāng)前的操作，通過一個錯誤報(bào)告給應(yīng)用程序。如果該屬性設(shè)置為True，在程序的運(yùn)行階段，用戶選擇“取消”操作時，出現(xiàn)錯誤提示。默認(rèn)是False，不出現(xiàn)錯誤提示。對話框打開后，為了防止用戶沒有輸入任何信息便使用取消操作，則可用此屬性設(shè)置出錯警告。（4）Flags屬性：用于設(shè)置對話框外觀及工作方式。對于每種對話框都有許多不同的設(shè)置值。在通用對話框的使用過程中，每種對話框都有自己的特殊屬性。CommonDialog控件的屬性可以在屬性窗口中設(shè)置，也可在其“屬性頁”對話框中設(shè)置。在窗體中的CommonDialog控件上右擊，在彈出的快捷菜單中選擇“屬性”命令，打開“屬性頁”對話框，該對話框中有五個選項(xiàng)卡，分別可對不同類型的標(biāo)準(zhǔn)對話框設(shè)置屬性。目前十八頁\總數(shù)六十六頁\編于十七點(diǎn)FilterIndexDefaultExtDialogTiltleFileNameInitDirFilter

在設(shè)計(jì)時，可以通過屬性窗口設(shè)置通用對話框的屬性設(shè)置控件屬性，也可以使用通用對話框的屬性頁設(shè)置相關(guān)屬性。

2．CommonDialog控件的方法在程序中要使用CommonDialog控件的標(biāo)準(zhǔn)對話框，除了使用CommonDialog控件的Action屬性設(shè)置對話框的類型外，還可以使用CommonDialog控件的方法。這些方法如表10.4所示。例如：CommonDialog1.Action=1或者CommonDialog1.ShowOpen目前十九頁\總數(shù)六十六頁\編于十七點(diǎn)10.2.2“打開”

對話框CancelError：返回或設(shè)置一個值，該值指示當(dāng)單擊“取消”按鈕時是否出錯。DefaultExt：用于設(shè)置或返回對話框默認(rèn)的文件擴(kuò)展名。該屬性值是一個文件擴(kuò)展名字符串，如“*.txt”、“*.doc”等。當(dāng)保存一個沒有指定擴(kuò)展名的文件時，系統(tǒng)自動添加默認(rèn)擴(kuò)展名。DialogTitle：返回或設(shè)置對話框的標(biāo)題。Filename：返回或設(shè)置用戶所選擇的文件的完整路徑和文件名稱。FileTitle：返回用戶選擇文件的文件名稱，包括擴(kuò)展名，但不包括路徑。

使用通用對話框控件的ShowOpen方法，或?qū)ction屬性賦值為1，可以在運(yùn)行時顯示“打開”對話框。需要設(shè)置以下屬性：目前二十頁\總數(shù)六十六頁\編于十七點(diǎn)6.Filter：設(shè)置或返回在對話框的文件類型列表框中所顯示文件類型。該屬性值可以是一組元素或用“|”符號分開的分別表示不同類型文件的多組元素組成。例如，如果要在“文件類型”列表框中顯示下列三種文件類型以供用戶選擇。WORD文檔(*.DOC)擴(kuò)展名為DOC的Word文件文本文件(*.TXT)擴(kuò)展名為TXT的文本文件AllFiles(*.*)所有文件那么Filter屬性就應(yīng)該設(shè)為："WORD文檔(*.doc)|*.doc|文本文件(*.txt)|*.txt|所有文件|*.*"7.FilterIndex：返回或設(shè)置“打開”或“另存為”對話框中一個默認(rèn)的過濾器。8.InitDir：返回或設(shè)置“打開”對話框中的初始目錄。9.MaxFileSize：返回或設(shè)置使用CommonDialog控件時，被打開的文件名的最大尺寸。10.2.2“打開”

對話框上述屬性若在程序中設(shè)置，都必須放在使用Action屬性或ShowOPen和ShowSave方法調(diào)用的“打開”或“另存為”對話框語句之前。否則起不到其功能目前二十一頁\總數(shù)六十六頁\編于十七點(diǎn)

【例10.4】編寫一個簡單的文本文件編輯程序，如圖10.9所示，文件的內(nèi)容顯示在上面的文本框中。從左到右共6個命令按鈕依次按約定命名。下面列出了Command1事件過程的程序代碼，其他的事件過程在以后的各節(jié)中分別給出。10.2.2“打開”

對話框圖10.9通用對話框示例目前二十二頁\總數(shù)六十六頁\編于十七點(diǎn)程序運(yùn)行時，當(dāng)CommonDialog控件的Action屬性為2或者調(diào)用ShowSave方法時，系統(tǒng)就會彈出“另存為”對話框，它為用戶在存儲文件時提供了一個標(biāo)準(zhǔn)的用戶界面。實(shí)際上“另存為”對話框和“打開”對話框涉及的屬性基本一樣，獨(dú)有一個屬性DefaultExt，表示默認(rèn)擴(kuò)展名。10.2.3“另存為”

對話框【例10.5】為例10.4中的“另存為…”命令按鈕(Command2)編寫事件過程，把文本框（Text1）中的內(nèi)容寫入一個文本文件。目前二十三頁\總數(shù)六十六頁\編于十七點(diǎn)顏色對話框是當(dāng)Action值為3時或者調(diào)用ShowColor方法時，系統(tǒng)就會彈出“顏色”對話框，為用戶提供了顏色選擇器，如右圖。

重要屬性

Color：用來返回或設(shè)置選定的顏色。10.2.4“顏色”對話框【例10.6】為例10.4中的“顏色…”命令按鈕(Command3)編寫事件過程，用“顏色”對話框設(shè)置文本框的前景顏色。“顏色”按鈕的單擊事件過程如下：PrivateSubCommand3_Click()CommonDialog1.Action=3Text1.ForeColor=CommonDialog1.ColorEndSub目前二十四頁\總數(shù)六十六頁\編于十七點(diǎn)10.2.5“字體”對話框字體對話框是Action為4時的通用對話框，如下圖所示，提供用戶選擇字體、字號及字體樣式等。字體對話框重要的屬性有：Color,FontName,FontSize,FontBoldFontItalic,FontStrikethru,FontUnderline,Max等.

FontNameFontBold、FontItalicFontSizeFontStrikethruFontUnderlineColorMin、Max目前二十五頁\總數(shù)六十六頁\編于十七點(diǎn)Flags屬性：設(shè)置所顯示的字體類型，數(shù)據(jù)類型為Long。

注意

在顯示“字體”對話框前，必須先將

Flags屬性設(shè)置為

cdlCFScreenFonts，cdlCFPrinterFonts，或cdlCFBoth。否則，會發(fā)生字體不存在的錯誤?！白煮w”對話框的Flags屬性設(shè)置值系統(tǒng)常數(shù)值說明cdlCFScreenFonts&H1顯示屏幕字體cdlCFPrinterFonts&H2顯示打印機(jī)字體cdlCFBoth&H3顯示打印機(jī)和屏幕字體cdlCFEffects&H100在“字體”對話框中顯示刪除線和下劃線以及顏色組合框10.2.5“字體”對話框目前二十六頁\總數(shù)六十六頁\編于十七點(diǎn)【例10.7】為例10.4中的“字體…”命令按鈕(Command4)編寫事件過程，設(shè)置文本框的字體?！白煮w”按鈕的單擊事件過程如下：PrivateSubCommand4_Click()CommonDialog1.Flags=cdlCFScreenFontsOrcdlCFEffectsCommonDialog1.Max=100CommonDialog1.Min=1CommonDialog1.ShowFont'CommonDialog1.Action=4Text1.FontName=CommonDialog1.FontNameText1.FontSize=CommonDialog1.FontSizeText1.FontBold=CommonDialog1.FontBoldText1.FontItalic=CommonDialog1.FontItalicText1.FontStrikethru=CommonDialog1.FontStrikethruText1.FontUnderline=CommonDialog1.FontUnderlineText1.ForeColor=CommonDialog1.ColorEndSub目前二十七頁\總數(shù)六十六頁\編于十七點(diǎn)程序運(yùn)行時，當(dāng)CommonDialog控件的Action屬性為5或者調(diào)用ShowPrinter方法時，系統(tǒng)就會彈出“打印”對話框，它是一個設(shè)置選擇打印參數(shù)的界面，如圖10.12所示。10.2.6“打印”對話框圖10.12“打印”對話框重要屬性：Copies：返回或設(shè)置需要打印的份數(shù)。Max、Min：返回或設(shè)置打印范圍允許的最大和最小值。FromPage、ToPage：返回或設(shè)置起始頁號和終止頁號。當(dāng)cdlPDPageNums標(biāo)志被設(shè)置時才有效。目前二十八頁\總數(shù)六十六頁\編于十七點(diǎn)【例10.8】為例10.4中的“打印…”命令按鈕(Command5)編寫事件過程，用“打印”對話框打印文本框（Text1）中的內(nèi)容?！按蛴　卑粹o的單擊事件過程如下：PrivateSubCommand5_Click()DimiAsIntegerCommonDialog1.ShowPrinter'CommonDialog1.Action=5Fori=1ToCommonDialog1.CopiesPrinter.PrintText1.TextNextiPrinter.EndDoc'結(jié)束打印EndSub目前二十九頁\總數(shù)六十六頁\編于十七點(diǎn)10.2.7“幫助”對話框程序運(yùn)行時，當(dāng)CommonDialog控件的Action屬性為6或者調(diào)用ShowHelp方法時，系統(tǒng)就會彈出“幫助”對話框，它可以為用戶制作應(yīng)用程序的聯(lián)機(jī)幫助?！皫椭睂υ捒虮旧聿荒芙?yīng)用程序的幫助文件，它只能將已建好的幫助文件從磁盤中提取出來，并與界面建立連接，從而達(dá)到顯示并檢索幫助信息的目的。使用ShowHelp方法前，必須將CommonDialog控件的HelpFile和HelpCommand屬性設(shè)置為與其相應(yīng)的一個常數(shù)或值，否則，Winhlp32.exe就不能顯示幫助文件。對于“幫助”對話框，有以下幾個重要屬性：HelpCommand：返回或設(shè)置需要的聯(lián)機(jī)幫助的類型。具體設(shè)置請參閱VB幫助系統(tǒng)HelpFile：確定MicrosoftWindowsHelp文件的路徑和文件名，應(yīng)用程序使用這個文件顯示Help或聯(lián)機(jī)文檔。HelpKey：返回或設(shè)置標(biāo)識請求的幫助主題的關(guān)鍵字。HelpContext：該屬性與HelpCommand屬性一起使用（設(shè)置HelpCommand=cdlHelpContext），返回或設(shè)置請求的幫助主題的上下文ID以指定要顯示的幫助主題。

目前三十頁\總數(shù)六十六頁\編于十七點(diǎn)【例10.9】為例10.4中的“幫助…”命令按鈕(Command6)編寫事件過程，通過“幫助”對話框來顯示記事本程序的幫助文件。“幫助”按鈕的單擊事件過程如下：PrivateSubCommand6_Click()CommonDialog1.HelpCommand=cdlHelpContentsCommonDialog1.HelpFile="c:\windows\help\notepad.hlp"CommonDialog1.ShowHelpEndSub目前三十一頁\總數(shù)六十六頁\編于十七點(diǎn)工具欄的制作有兩種方法：1.是使用命令按鈕和圖形框來手工制作2.使用ToolBar控件和ImageList控件來制作。前一種方法比較繁瑣，較少使用。后一種方法較容易，在VB中常用后一種方法。ToolBar控件和ImageList控件并沒有在工具箱里，屬于ActiveX控件，需要為工程加載“MicrosoftWindowsCommonControls6.0”控件。加載成功后控件工具欄如圖10.13所示。10.3工具欄

ImageList圖10.13添加控件成功后的工具箱ToolBar目前三十二頁\總數(shù)六十六頁\編于十七點(diǎn)ImageList控件不單獨(dú)使用，專門為其它控件提供圖像庫.使用方法如下：在窗體中添加一個ImageList控件。其大小固定，運(yùn)行時不可見。右擊ImageList控件，選擇“屬性”，打開“屬性頁”對話框，如圖所示。選擇“圖像”選項(xiàng)卡，單擊“插入圖片”按鈕，逐個向ImageList控件中加入圖片；如果需要刪除多余的圖片，選中后點(diǎn)擊“刪除圖片”按鈕。10.3.1ImageList控件目前三十三頁\總數(shù)六十六頁\編于十七點(diǎn)使用ToolBar控件具體創(chuàng)建一個工具欄，首先在窗體中添加一個ToolBar控件，設(shè)置ToolBar控件的Align屬性以控制工具欄在窗體中的位置。右擊選擇“屬性”，打開“屬性頁”對話框。10.3.2ToolBar控件1.設(shè)置ToolBar控件中的按鈕點(diǎn)擊“按鈕”選項(xiàng)卡，如圖所示。單擊“插入按鈕”和“刪除按鈕”，可以增加或減少工具欄中的按鈕；每個按鈕需要使用ImageList控件中的哪個圖片作為外觀顯示，在“圖像”中進(jìn)行設(shè)置；“關(guān)鍵字”用于在程序代碼中引用該按鈕?！皹?biāo)題”與“描述”文本框中是在按鈕上顯示的文字及按鈕的說明信息。在“值”下拉列表中可以設(shè)置按鈕的狀態(tài)：0-tbrUnpressed為彈起狀態(tài)1-tbrPressed為按下狀態(tài)。圖10.15“屬性頁”中“按鈕”選項(xiàng)卡目前三十四頁\總數(shù)六十六頁\編于十七點(diǎn)0-tbrDefault:普通（默認(rèn)的）按鈕。1-tbrCheck：復(fù)選框按鈕。具有按下、放開兩種狀態(tài)。2-tbrButtonGroup：單選按鈕3-tbrSeparator：分隔符。表示將不同組或不同類的按鈕分開，如單選按鈕。4-tbrPlaceholder:占位符。5-thrDropdown:下拉式按鈕?？梢越⑾吕讲藛?。10.3.2ToolBar控件圖10.15“屬性頁”中“按鈕”選項(xiàng)卡在“樣式”下拉列表中可以設(shè)置按鈕的行為特點(diǎn)，并且將影響按鈕的功能。具有六種類型：目前三十五頁\總數(shù)六十六頁\編于十七點(diǎn)2.設(shè)置ToolBar控件的通用屬性，和ImageList控件建立關(guān)聯(lián)。打開“通用”選項(xiàng)卡，在圖像列表選項(xiàng)中選擇圖像列表控件名ImageList1，這樣就建立了工具欄控件與圖像列表控件的關(guān)聯(lián)。在程序運(yùn)行時，下述代碼也可建立工具欄控件與圖像列表控件的關(guān)聯(lián)：PrivateSubForm_Load()Toolbar1.ImageList=ImageList1EndSub一旦工具欄控件與圖像列表控件建立了關(guān)聯(lián)，ToolBar控件“屬性頁”對話框的“按鈕”選項(xiàng)卡中的“圖像”選項(xiàng)即變?yōu)橛行?。只需在其中輸入圖像庫中圖像的索引號即可將對應(yīng)的圖片添加到按鈕上。10.3.2ToolBar控件目前三十六頁\總數(shù)六十六頁\編于十七點(diǎn)3.響應(yīng)ToolBar控件事件

ToolBar控件常用的事件有兩個：ButtonClick和ButtonMenuClick。前者對按鈕樣式為0-2，后者對樣式為5的菜單按鈕。（1）用索引Index確定按鈕（2）用關(guān)鍵字Key確定按鈕PrivateSubToolbar1_ButtonClick(ByvalButtonAsComctlLib.Button)SelectCaseButton.IndexCase1FileNewProcCase2FileOpenProc……EndSelectEndSub注意：第1個按鈕的Index值為1。用Index還是用Key根據(jù)實(shí)際需要，Key可讀性好，可維護(hù)性好。SelectCaseButton.KeyCase"TNew"FileNewProcCase"TOpen"FileOpenProc

目前三十七頁\總數(shù)六十六頁\編于十七點(diǎn)【例10.9】創(chuàng)建如圖所示的窗體，并編寫程序代碼實(shí)現(xiàn)工具欄上各按鈕的功能。圖10.16例10.9界面設(shè)計(jì)設(shè)計(jì)步驟如下：1.設(shè)計(jì)界面首先在窗體上添加一個文本框，設(shè)置其Multiline屬性為True，ScrollBars屬性為2，添加ImageList控件，該控件包含有圖所示的六個圖形。添加ToolBar控件，在按鈕選項(xiàng)卡中逐個添加按鈕。各按鈕屬性設(shè)置如表10.6所示。索引關(guān)鍵字樣式圖像索引1B1-tbrCheck12I1-tbrCheck23U1-tbrCheck343-tbrSeparator05lt2-tbrButtonGroup46ct2-tbrButtonGroup57rt2-tbrButtonGroup6目前三十八頁\總數(shù)六十六頁\編于十七點(diǎn)圖10.16例10.9界面設(shè)計(jì)2.編寫程序代碼PrivateSubForm_Load()Toolbar1.ImageList=ImageList1EndSubPrivateSubToolbar1_ButtonClick(ByValButtonAsMSComctlLib.Button)SelectCaseButton.Key

Case"B"Text1.FontBold=NotText1.FontBoldCase"I"Text1.FontItalic=NotText1.FontItalicCase"U"Text1.FontUnderline=NotText1.FontUnderlineCase"lt"Text1.Alignment=0Case"ct"Text1.Alignment=2Case"rt"Text1.Alignment=1EndSelectEndSub目前三十九頁\總數(shù)六十六頁\編于十七點(diǎn)10.4.1鍵盤事件

在VisualBasic中，提供KeyPress、KeyDown、KeyUp三種鍵盤事件，窗體和接受鍵盤輸入的控件都識別這三種事件。

KeyPress按下對應(yīng)某ASCII字符的鍵。

KeyDown

按下鍵盤的任意鍵。

KeyUp

釋放鍵盤的任意鍵只有獲得焦點(diǎn)的對象才能夠接受鍵盤事件。

1.KeyPress事件在按下與ASCII字符對應(yīng)的鍵時將觸發(fā)KeyPress事件。

10.4鍵盤和鼠標(biāo)事件目前四十頁\總數(shù)六十六頁\編于十七點(diǎn)KeyPress事件過程的語法格式是：SubObject_KeyPress(KeyAsciiAsInteger)其中：Object是指窗體或控件對象名，KeyAscii參數(shù)返回對應(yīng)于ASCII字符代碼的整型數(shù)值。

例如，如果希望將文本框中的所有字符都強(qiáng)制轉(zhuǎn)換為大寫字符，則可在輸入時使用此事件轉(zhuǎn)換大小寫：PrivateSubText1_KeyPress(KeyAsciiAsInteger)KeyAscii=Asc(Ucase(Chr(KeyAscii)))EndSub10.4鍵盤和鼠標(biāo)事件KeyPress事件只識別

Enter、Tab和Backspace鍵。不能夠檢測其它功能鍵、編輯鍵和定位鍵。

目前四十一頁\總數(shù)六十六頁\編于十七點(diǎn)【例10.10】設(shè)計(jì)一個應(yīng)用程序，在窗體中建立一個文本框和一個標(biāo)簽，在文本框中限定只能輸入英文字母、空格和BackSpace鍵，當(dāng)從鍵盤向文本框輸入英文字符時，將其轉(zhuǎn)換成大寫字母并顯示在標(biāo)簽中。程序運(yùn)行結(jié)果如圖所示。10.4鍵盤和鼠標(biāo)事件圖10.17例10.10運(yùn)行結(jié)果PrivateSubText1_KeyPress(KeyAsciiAsInteger)DimcharAsStringSelectCaseKeyAsciiCase65To90,97To122,32char=UCase(Chr(KeyAscii))Label1.Caption=Label1.Caption&charCase8Label1.Caption=Left(Label1.Caption,Len(Label1.Caption)-1)CaseElseKeyAscii=0EndSelectEndSub目前四十二頁\總數(shù)六十六頁\編于十七點(diǎn)2.KeyDown和KeyUp事件

當(dāng)一個對象具有焦點(diǎn)時按下（KeyDown）

或松開

(KeyUp)一個鍵時發(fā)生。它們報(bào)告鍵盤本身準(zhǔn)確的物理狀態(tài)：按下鍵

(KeyDown)及松開鍵

(KeyUp)。

KeyDown和KeyUp事件能夠檢測其它功能鍵、編輯鍵和定位鍵。KeyUp和KeyDown事件過程的語法格式如下：SubObject_KeyDown(KeyCodeAsInteger,ShiftAsInteger)SubObject_KeyUp(KeyCodeAsInteger,ShiftAsInteger)說明：（1）KeyCode參數(shù)值是用戶所操作的鍵的掃描代碼，它告訴事件過程用戶所操作的物理鍵，例如，不管鍵盤處于小寫狀態(tài)還是大寫狀態(tài)，用戶在鍵盤上按下“A”健，KeyCode參數(shù)值相同。對于有上檔字符和下檔字符的鍵，其KeyCode也是相同的，為下檔字符的ASCII碼。目前四十三頁\總數(shù)六十六頁\編于十七點(diǎn)

keycode參數(shù)通過

ASCII值或鍵代碼常數(shù)來識別鍵。字母鍵的鍵代碼與此字母的大寫字符的

ASCII值相同。所以

“A”和

“a”的

keycode都是由

Asc(“A”)返回的數(shù)值。表10.7Keycode和KeyAscii值目前四十四頁\總數(shù)六十六頁\編于十七點(diǎn)2.KeyDown和KeyUp事件

KeyUp和KeyDown事件過程的語法格式如下：SubObject_KeyDown(KeyCodeAsInteger,ShiftAsInteger)SubObject_KeyUp(KeyCodeAsInteger,ShiftAsInteger)說明：（2）Shift參數(shù)是一個整數(shù)，表示鍵盤事件發(fā)生時Shift、Ctrl和Alt鍵的狀態(tài)。Shift是一個位域參數(shù)，由若干位組成，每個位的信息指出某一種狀態(tài)是打開（用1表示）還是關(guān)閉（用0表示）。其中最右側(cè)三位用來表示Shift、Ctrl和Alt鍵的狀態(tài)，相應(yīng)二進(jìn)制位為0時表示未按下對應(yīng)鍵，為1時表示按下了對應(yīng)鍵。Alt鍵Ctrl鍵Shift鍵第3位第2位第1位目前四十五頁\總數(shù)六十六頁\編于十七點(diǎn)例如：下例是用Shift參數(shù)判斷是否按下了字母的大寫形式。PrivateSubText1_KeyDown(KeyCodeAsInteger,ShiftAsInteger)IfKeyCode=vbKeyAAndShift=1ThenMsgBox"YoupressedtheuppercaseAkey."EndifEndSub表10.8Shift參數(shù)的值二進(jìn)制值十進(jìn)制值系統(tǒng)常數(shù)意義0011vbShiftMask按Shift鍵0102vbCtrlMask按Ctrl鍵1004vbAltMask按Alt鍵0113vbShiftMask+vbCtrlMask按Shift鍵和Ctrl鍵1015vbShiftMask+vbAltMask按Shift鍵和Alt鍵1106vbCtrlMask+vbAltMask按Ctrl鍵和Alt鍵1117vbCtrlMask+vbAltMask+vbShiftMask按Shift、Ctrl和Alt鍵目前四十六頁\總數(shù)六十六頁\編于十七點(diǎn)【例10.12】設(shè)計(jì)一個程序，當(dāng)按下Alt+F5組合鍵時終止程序的運(yùn)行。

先把窗體的KeyPreview設(shè)置為True，再編寫如下的程序：PrivateSubForm_KeyDown(KeyCodeAsInteger,ShiftAsInteger)'按下Alt鍵時，Shift的值為4If(KeyCode=vbKeyF5)And(Shift＝vbAltMask)ThenEndEndSub10.4鍵盤和鼠標(biāo)事件注意：KeyAscii是獲取鍵的Ascii值，就是說你按下主鍵區(qū)的數(shù)字和按下數(shù)字鍵區(qū)的數(shù)字返回的是同一個Ascii值，同一個字母大、小寫的KeyAscii是不同的。KeyCode值返回的相當(dāng)于每個鍵的標(biāo)號，每個鍵都有一個不同的KeyCode值，因而通過KeyCode值可以判斷光標(biāo)鍵、回車鍵等鍵是否按下，可用于程序的特殊控制。目前四十七頁\總數(shù)六十六頁\編于十七點(diǎn)10.4鍵盤和鼠標(biāo)事件

大多數(shù)控件能夠識別鼠標(biāo)的MouseMove、MouseDown和MouseUp事件，通過響應(yīng)這些鼠標(biāo)事件，能在應(yīng)用程序?qū)κ髽?biāo)位置及狀態(tài)的變化作出響應(yīng)操作。MouseMove每當(dāng)鼠標(biāo)指針移動到屏幕新位置時發(fā)生MouseDown

按下任意鼠標(biāo)鍵按鈕時發(fā)生MouseUp

釋放任意鼠標(biāo)鍵按鈕時發(fā)生10.4.2鼠標(biāo)事件目前四十八頁\總數(shù)六十六頁\編于十七點(diǎn)MouseMove、MouseDown、MouseUp三個事件的過程的語法格式如下：SubObject_MouseMove(ButtonAsInteger，ShiftAsInteger，XAsSingle，YAsSingle)SubObject_MouseDown(ButtonAsInteger，ShiftAsInteger，XAsSingle，YAsSingle)SubObject_MouseUp（ButtonAsInteger，ShiftAsInteger，XAsSingle，YAsSingle）

說明：

1．Object是可選的一個對象表達(dá)式，可以是窗體對象和大多數(shù)可視控件。

2．Button參數(shù)是表示按下或松開鼠標(biāo)哪個按鈕，

10.4.2鼠標(biāo)事件目前四十九頁\總數(shù)六十六頁\編于十七點(diǎn)

參數(shù)Button值參數(shù)（Button） 值 說明vbLeftButton 1 左按鈕被按下vbRightButton 2 右按鈕被按下vbMiddleButton 4 中間按鈕被按下10.4.2鼠標(biāo)事件目前五十頁\總數(shù)六十六頁\編于十七點(diǎn)3．Shift參數(shù)包含了Alt、Ctrl和Shift鍵的狀態(tài)信息，和鍵盤事件過程中的Shift參數(shù)含義相同。如果要檢測Ctrl和Shift鍵是否同時被按下，則應(yīng)使用表達(dá)式(ShiftAndvbCtrlMask)And(ShiftAndvbShiftMask)，或者表示為Shift=3。10.4.2鼠標(biāo)事件4．X，Y：表示當(dāng)前鼠標(biāo)指針的位置【例10.13】設(shè)計(jì)一個簡單的繪圖應(yīng)用程序。當(dāng)按下任意鼠標(biāo)鍵并拖動時，MouseDown事件過程和一個相關(guān)的MouseMove事件過程協(xié)同工作以啟動繪圖。MouseUp事件過程禁止繪圖。圖10.19簡單畫圖程序目前五十一頁\總數(shù)六十六頁\編于十七點(diǎn)1.添加窗體2．刪除窗體3．保存窗體10.5.1管理多重窗體10.5多重窗體與多模塊程序設(shè)計(jì)10.5.2設(shè)置啟動窗體1.設(shè)置啟動窗體2．啟動時不加載窗體圖10.21“工程1-工程屬性”對話框在某些情況下，應(yīng)用程序啟動時不加載任何窗體，如先運(yùn)行裝入數(shù)據(jù)文件的代碼，然后再根據(jù)數(shù)據(jù)文件的內(nèi)容在不同窗體中選擇要打開的窗體。要實(shí)現(xiàn)此功能，可以在工程中添加一個標(biāo)準(zhǔn)模塊Module1，然后在標(biāo)準(zhǔn)模塊中創(chuàng)建一個名為Main的子過程，在過程中按要求進(jìn)行編程。如下面的例子所示。目前五十二頁\總數(shù)六十六頁\編于十七點(diǎn)Submain()Dimpasswordpassword=InputBox("請輸入口令","用戶注冊")Ifpassword=""ThenMsgBox"沒有輸入密碼，本次程序運(yùn)行結(jié)束！",vbInformationExitSubEndIfIfpassword="123456"ThenMsgBox("歡迎使用Form1!"),vbInformation,titleForm1.ShowElseMsgBox"對不起，你不是合法用戶！,只能使用Form2",vbCritical,titleForm2.ShowEndIfEndSub10.5多重窗體與多模塊程序設(shè)計(jì)這個子過程不能放在窗體模塊中，必須放在標(biāo)準(zhǔn)模塊Module1中。如果要將SubMain過程設(shè)為啟動對象，在“工程屬性”對話框中設(shè)置啟動對象為“SubMain”。目前五十三頁\總數(shù)六十六頁\編于十七點(diǎn)10.5.3窗體處理語句和方法1．Load語句：該語句用來將新創(chuàng)建的窗體加載到內(nèi)存中格式：Load窗體名2．Show方法：該方法用來顯示一個窗體格式：窗體名.Show模式其中：模式用來確定窗體的狀態(tài)，有0和1兩個值。0（默認(rèn)值）表示非模態(tài)的，1表示模態(tài)。模態(tài)窗體和非模態(tài)窗體的區(qū)別。3．Hide方法：用于隱藏顯示在屏幕上的窗體格式：窗體名.Hide目前五十四頁\總數(shù)六十六頁\編于十七點(diǎn)10.5.3窗體處理語句和方法4．Unload語句：該語句與Load語句的功能相反，指從內(nèi)存中刪除指定的窗體格式：UnLoad窗體名5．Print方法：該方法用于在窗體上輸出數(shù)據(jù)格式：窗體名.Print數(shù)據(jù)列表6．Cls方法：該方法用于清除程序運(yùn)行時在窗體上顯示的文本或圖形。但Cls方法并不能清除在設(shè)計(jì)階段設(shè)置的文本和圖形。格式：窗體名.Cls目前五十五頁\總數(shù)六十六頁\編于十七點(diǎn)【例10.14】

編一個學(xué)生成績處理程序，要求如下：程序包含3個窗體和1個標(biāo)準(zhǔn)模塊主窗體是程序的主界面，提供用戶選擇操作，并根據(jù)用戶選擇的操作打開對應(yīng)功能的窗體，主窗體的界面如圖10.22(a)所示。在主窗體上單擊“輸入成績”按鈕后，打開輸入成績窗口，如圖10.22(b)所示。在窗體中輸入一同學(xué)4門課程成績后，單擊“返回”按鈕，將輸入的成績保存在全局變量中。在主窗體上單擊“計(jì)算成績”按鈕后，打開計(jì)算成績窗口，如圖10.22(c)所示。評價(jià)學(xué)生的等級：平均成績90分以上為優(yōu)秀，80~89為良好，70~79為中等，60~69為及格，60分以下為不及格。10.5.4多模塊程序設(shè)計(jì)示例目前五十六頁\總數(shù)六十六頁\編于十七點(diǎn)

分析：根據(jù)題目要求，本題目有三個窗體FrmMain、Form2和Form3，三個窗體上各控件按默認(rèn)約定依次命名。還有一個標(biāo)準(zhǔn)模塊Module1，對窗體間公用的全局變量進(jìn)行了說明。選擇啟動對象為FrmMain窗體。

圖10.22(a)主窗體界面圖10.22(b)成績錄入界面圖10.22(c)成績輸出界面方法一：在標(biāo)準(zhǔn)模塊中定義全局變量及編寫評級函數(shù)方法二：不添加標(biāo)準(zhǔn)模塊，把上面標(biāo)準(zhǔn)模塊里的代碼都寫到FrmMain中，直接進(jìn)行窗體之間的數(shù)據(jù)訪問10.5.4多模塊程序設(shè)計(jì)示例目前五十七頁\總數(shù)六十六頁\編于十七點(diǎn)10.6多文檔界面設(shè)計(jì)

Windows應(yīng)用程序風(fēng)格：單文檔界面（SDI）多文檔界面（MDI）資源管理器風(fēng)格的界面要決定使用哪種界面樣式需要看應(yīng)用程序的目的。例如，一個處理學(xué)生檔案的應(yīng)用程序可能要用多文檔界面樣式，一個教師很可能會同時處理一個以上學(xué)生檔案，或者需要對兩個學(xué)生進(jìn)行比較。另一方面，日歷程序最好設(shè)成單文檔界面樣式，因?yàn)橐话悴粫瑫r打開一個以上日歷。目前五十八頁\總數(shù)六十六頁\編于十七點(diǎn)10.6.1多文檔界面特點(diǎn)標(biāo)準(zhǔn)窗體MDI窗體MDI子窗體

多文檔界面由父窗口和子窗口組成，一個父窗口可包含多個子窗口，子窗口最小化后將以圖標(biāo)形式出現(xiàn)在父窗口中，而不會出現(xiàn)在Windows的任務(wù)欄中。當(dāng)最小化父窗口時，所有的子窗口也被最小化，只有父窗口的圖標(biāo)出現(xiàn)在任務(wù)欄中。父窗口就是MDI窗體，子窗口是指MDChild屬性為True的普通窗體。1．區(qū)分MDI窗體與MDI子窗體在工程資源管理器的窗口中MDI窗體、MDI子窗體和標(biāo)準(zhǔn)窗體使用不同的圖標(biāo)來顯示。如圖10.23所示，窗體圖標(biāo)的左下角有一個小窗體的為MDI子窗體。目前五十九頁\總數(shù)六十六頁\編于十七點(diǎn)10.6.1多文檔界面特點(diǎn)2．多文檔界面的特點(diǎn)所有子窗體均顯示在MDI窗體的工作空間內(nèi)。像其他的窗體一樣，用戶能移動子窗體和改變子窗體的大小，但它們被限制在MDI窗體工作空間內(nèi)。

當(dāng)MDI窗體最小化或關(guān)閉時，它所包含的所有子窗體都會被最小化或關(guān)閉。當(dāng)各子窗體最小化時，最小化圖標(biāo)將顯示在MDI窗體底部而不是在任務(wù)欄中。只有MDI窗體最小化后其圖標(biāo)才顯示在任務(wù)欄中。

當(dāng)子窗體最大化時，它的標(biāo)題會與MDI窗體的標(biāo)題組合在一起顯示在MDI窗體的標(biāo)題欄上。MDI父窗體和子窗體可以有各自的菜單，活動子窗體的菜單顯示在MDI窗體的菜單欄中，而不是顯示在子窗體中。目前六十頁\總數(shù)六十六頁\編于十七點(diǎn)在VisualBasic中創(chuàng)建多文檔界面的步驟如下：(1)打開“工程”菜單，選擇“添加MDI窗體”，打開“添加MDI