界面設(shè)計(jì)和應(yīng)用程序

1、界面設(shè)計(jì)和應(yīng)用程序 本章主要內(nèi)容 $8.1 通用對(duì)話框 $8.2 菜單設(shè)計(jì) $8.3 多重窗體和多文檔界面 $8.4 工具欄和狀態(tài)欄 $8.5 RichTextBox控件 $8.6 應(yīng)用程序向?qū)У?章 界面設(shè)計(jì) $8.1 對(duì)話框 對(duì)話框(DialogBox)是應(yīng)用程序與用戶進(jìn)行交互的主要途徑。三種對(duì)話框： (1)預(yù)定義對(duì)話框(使用函數(shù)InputBox和MsgBox來(lái)實(shí)現(xiàn)) (2)通用對(duì)話框 (3)用戶自定義對(duì)話框一、 通用對(duì)話框 通用對(duì)話框是一種ActiveX控件，利用它能夠很容易地創(chuàng)建下列六種標(biāo)準(zhǔn)對(duì)話框：打開(kāi)(Open)，另存為(Save As)，顏色(Color)，字體(Font)，打印機(jī)

2、(Printer)和幫助(Help)對(duì)話框 1添加通用對(duì)話框控件 在使用之前，應(yīng)選擇“工程”菜單中的“部件”命令先將其添加到工具箱中 當(dāng)程序運(yùn)行時(shí)，通用對(duì)話框是不可見(jiàn)的 通用對(duì)話框不僅本身具有一組屬性，而且由它產(chǎn)生的各種標(biāo)準(zhǔn)對(duì)話框也擁有許多特定屬性。 屬性設(shè)置可以在屬性窗口或程序代碼中進(jìn)行，也可以通過(guò)“屬性頁(yè)”對(duì)話框來(lái)設(shè)置 2屬性頁(yè) 3通用對(duì)話框的基本屬性和方法 (1)Name屬性 (2)Action屬性：該屬性直接決定打開(kāi)哪種對(duì)話框 對(duì)話框類型 Action屬性值 方法 無(wú)對(duì)話框 0 打開(kāi)”對(duì)話框 1 ShowOpen “另存為”對(duì)話框 2 ShowSave “顏色”對(duì)話框 3 ShowCo

3、lor “字體”對(duì)話框 4 ShowFont “打印”對(duì)話框 5 ShowPrinter “幫助”對(duì)話框 6 ShowHelp 例如，利用通用對(duì)話框CommonDialog1產(chǎn)生一個(gè)“打開(kāi)”對(duì)話框，可以執(zhí)行下列語(yǔ)句： CommonDialog1.Action=1 或 (3)DialogTitle屬性：該屬性用于設(shè)置對(duì)話框的標(biāo)題 (4)CancelError屬性：該屬性表示用戶在使用對(duì)話框進(jìn)行對(duì)話時(shí)，單擊“取消”按鈕是否產(chǎn)生錯(cuò)誤信息 (5)通用對(duì)話框的方法二、 “文件”對(duì)話框 在程序中將通用對(duì)話框的Action屬性設(shè)置為1，或用ShowOpen方法打開(kāi)，則彈出“打開(kāi)文件”對(duì)話框 “打開(kāi)”對(duì)話框的

4、屬性： 、Filter、FilterIndex、IniDir 1.文件對(duì)話框（打開(kāi)、保存）需設(shè)置的屬性FilterInitDirFilterIndex屬性：包含路徑；：不包含路徑。Filter：例如， Documents(*.DOC)|*.DOC|Text Files(*.TXT)|*.txt|All Files|*.*FilterIndex：決定在文件類型列表框中顯示第幾組類型的文件。InitDir：初始化路徑?！按蜷_(kāi)”文件對(duì)話框?qū)傩皂?yè)DialogTiltle InitDirFilterFilterIndexDefaultExt 例 建立一個(gè)“打開(kāi)文件”的對(duì)話框 在窗體上添加一個(gè)通用對(duì)話框和

5、一個(gè)“打開(kāi)”命令按鈕，當(dāng)單擊“打開(kāi)”按鈕時(shí)，就會(huì)彈出一個(gè)“打開(kāi)文件”的對(duì)話框 (1) 把CommonDialog控件添加到工具箱中。然后在窗體上添加CommonDialog控件，其默認(rèn)名稱為CommonDialog1 (2)在窗體上添加一個(gè)命令按鈕Command1，其Caption屬性為“打開(kāi)” (3)“打開(kāi)”命令按鈕Command1的Click事件過(guò)程代碼： Private Sub Command1_Click() CommonDialog1.DialogTitle = 打開(kāi)文件“ 設(shè)置文件過(guò)濾器 CommonDialog1.Filter = 全部文件|*.*|文本文件|*.txt Comm

6、onDialog1.InitDir = C:my documents 設(shè)置默認(rèn)文件夾 CommonDialog1.ShowOpen 顯示“打開(kāi)”對(duì)話框 End Sub 其中，設(shè)置文件過(guò)濾器(Filter)屬性的參數(shù)格式如下： 描述符1 過(guò)濾符1 描述符2 過(guò)濾符2 程序運(yùn)行后，單擊“打開(kāi)”按鈕即彈出如圖所示的對(duì)話框 從控件的屬性中獲取選定的路徑及文件名 三、“顏色”對(duì)話框 屬性Color：返回或設(shè)置選定的顏色。 例 “顏色”對(duì)話框的使用。 四、 “字體”對(duì)話框 “另存為”對(duì)話框：沒(méi)有提供真正的存儲(chǔ)文件操作，仍需要編程完成儲(chǔ)存操作。屬性 DefaultExt：缺省擴(kuò)展名。“字體”對(duì)話框Flags

7、屬性：指示所顯示的字體類型，必須設(shè)置。 cdlCFScreenFonts&H1屏幕字體 cdlCFPrinterFonts&H2打印機(jī)字體 cdlCFBoth&H3打印機(jī)字體和屏幕字體。 cdlCFEffects&H100顯示刪除線和下劃線檢查框以及顏色組合框 FontName FontBold、FontItalicFontSizeFontStrikethruFontUnderline ColorMin、Max 例8.3 字體對(duì)話框的使用。五、 “打印”對(duì)話框?qū)傩訤romPage：起始頁(yè)號(hào)；ToPage：終止頁(yè)號(hào)；Copies：打印份數(shù)。如果打印驅(qū)動(dòng)程序不支持多份打印，該屬性有可能始終返回 1

8、。 例 打印對(duì)話框的使用。六、 “幫助”對(duì)話框幫助文件需要用其他的工具制作，如Microsoft Windows Help Compiler。 例 屬性 HelpCommand：在線Help幫助類型； HelpFile：Help文件的路徑及其名稱； HelpKey：在幫助窗口顯示由該幫助關(guān)鍵字指定的幫助信息自定義對(duì)話框 創(chuàng)建自定義對(duì)話框就是建立一個(gè)窗體，在窗體上根據(jù)需要放置控件，通過(guò)設(shè)置控件屬性值來(lái)定義窗體的外觀 因?yàn)閷?duì)話框沒(méi)有控制菜單框(標(biāo)題欄左側(cè))和最大化、最小化按鈕，不能改變其大小，所以應(yīng)設(shè)置以下對(duì)話框的屬性，見(jiàn)表 用窗體自定義對(duì)話框，一般步驟： (1)向工程添加窗體 (2)在窗體上創(chuàng)建

9、其他控件對(duì)象，定義對(duì)話框的外觀 (3)設(shè)置窗體和控體對(duì)象的屬性 (4)在代碼窗口中創(chuàng)建事件過(guò) $8.2 菜單設(shè)計(jì) 應(yīng)用程序通過(guò)菜單為用戶提供一組命令 菜單一般分為兩種：即下拉式菜單和彈出式菜單一、 下拉式菜單 1.下拉式菜單的結(jié)構(gòu) 下拉式菜單基本結(jié)構(gòu)包括：頂層菜單、菜單項(xiàng)和子菜單主菜單名快捷鍵熱鍵下級(jí)子菜單標(biāo)記分隔線菜單項(xiàng)子菜單名主菜單條菜單編輯器 設(shè)計(jì)菜單的工具 啟動(dòng)菜單編輯器的方法 菜單編輯器分為上、下兩部分，上半部分用來(lái)設(shè)置屬性，下半部分是菜單顯示區(qū)，用來(lái)顯示用戶輸入的菜單內(nèi)容。 “標(biāo)題”(Caption)輸入框 供輸入標(biāo)題，也會(huì)同時(shí)顯示在菜單顯示區(qū)。菜單項(xiàng)的訪問(wèn)鍵，用“(&字符)”格式

10、 “名稱”(Name)輸入框 “索引”(Index)輸入框 “快捷鍵”列表框 “幫助上下文ID”輸入框 “協(xié)調(diào)位置”列表框 “復(fù)選”框 “有效”框 “可見(jiàn)”框 “顯示窗口列表”框 菜單顯示區(qū)。內(nèi)縮符號(hào)(4個(gè)點(diǎn)“”) 編輯按鈕 共有7個(gè)按鈕 分隔線 菜單的Click事件 除分隔線以外的所有菜單元素都能識(shí)別Click事件。例 編一程序，進(jìn)行兩個(gè)操作數(shù)的算術(shù)運(yùn)算練習(xí) 設(shè)計(jì)步驟如下： (1)創(chuàng)建應(yīng)用程序的用戶界面和設(shè)置對(duì)象屬性 菜單欄向用戶提供功能選擇，包括運(yùn)算數(shù)的位數(shù)，運(yùn)算符類型和退出程序 菜單設(shè)計(jì) 各個(gè)菜單項(xiàng)名稱 例運(yùn)行時(shí)改變菜單屬性 1. 使菜單命令有效或無(wú)效 所有的菜單項(xiàng)都具有Enabled屬

11、性，當(dāng)該屬性為True(默認(rèn)值)時(shí)，有效；若為False時(shí)，菜單項(xiàng)會(huì)變暗，菜單命令無(wú)效。 舉例： Mnu30.Enabled = False 2. 顯示菜單項(xiàng)的復(fù)選標(biāo)記 使用菜單項(xiàng)的Checked屬性，可以設(shè)置復(fù)選標(biāo)記。 舉例：Mnu31.Checked=True 3. 使菜單項(xiàng)不可見(jiàn) 舉例：Mnu30.Visible=True 在程序運(yùn)行時(shí)，菜單隨時(shí)增減，如“文件”菜單能保留最近打開(kāi)的文件數(shù)。這同控件數(shù)組一樣，使用菜單數(shù)組。步驟： 1.在菜單設(shè)計(jì)時(shí)，加入一個(gè)菜單項(xiàng)，其Index為0（菜單數(shù)組）, Visual為False。 2.在程序運(yùn)行時(shí)，通過(guò)Load方法向菜單數(shù)組增加新的菜單項(xiàng)。 例8.

12、7 在中的運(yùn)算用動(dòng)態(tài)菜單實(shí)現(xiàn) 同樣，要?jiǎng)h除所建立的菜單項(xiàng)，使用UnLoad方法向菜單數(shù)組減少菜單項(xiàng)。二、動(dòng)態(tài)菜單（菜單項(xiàng)增減）三、 彈出式菜單 彈出式菜單又稱為快捷菜單。單擊鼠標(biāo)右鍵?？梢愿鶕?jù)右擊鼠標(biāo)時(shí)的位置彈出不同的菜單。 使用VB提供的菜單編輯器，把某個(gè)菜單設(shè)置成隱藏。 創(chuàng)建快捷菜單的步驟如下： (1)使用菜單編輯器設(shè)計(jì)菜單 (2)設(shè)置頂層菜單項(xiàng)為不可見(jiàn)，即不選中菜單編輯器里的“可見(jiàn)”選項(xiàng)或在屬性窗口中設(shè)定Visible屬性為False (3)編寫與彈出式菜單相關(guān)聯(lián)的MouseUp(釋放鼠標(biāo))事件過(guò)程。格式為： 對(duì)象 PopupMenu 菜單名 , 位置常數(shù), 橫坐標(biāo), 縱坐標(biāo)常數(shù)位置值描

13、述vbPopupMenuLeftAlign0（缺省值）。彈出式菜單的左邊定位于 x。vbPopupMenuCenterAlign4彈出式菜單的于 x 居中位。vbPopupMenuRightAlign8彈出式菜單的右邊定位于 x。常數(shù)行為值描述vbPopupMenuLeftButton0（缺省值）。 僅當(dāng)使用鼠標(biāo)左按鈕時(shí)， 彈出式菜單中的項(xiàng)目才響應(yīng)鼠標(biāo)單擊。vbPopupMenuRightButton2不論使用鼠標(biāo)右按鈕還是左按鈕， 彈出式菜單中的項(xiàng)目都響應(yīng)鼠標(biāo)單擊。flags：如下表： 例8.8 在例的基礎(chǔ)上，把“位數(shù)”菜單改為快捷菜單 (1)打開(kāi)例的應(yīng)用程序，選定窗體，然后在菜單編輯器中將

14、“位數(shù)”菜單標(biāo)題的“可見(jiàn)”框中的“”取消(即不選中) (2)增加以下的MouseUp事件過(guò)程代碼： Private Sub Form_MouseUp(Button As Integer, _Shift As Integer, X As Single, Y As Single)If Button = 2 Then 檢查是否右擊,擊左鍵為1PopupMenu mnu10End If End Sub程序運(yùn)行時(shí)，右擊窗體空白處，即會(huì)彈出快捷菜單，如圖所示例一、多窗體處理 在多窗體程序中，每個(gè)窗體可以有自己的界面和程序代碼，完成不同的操作 1. 添加窗體 通過(guò)“工程”菜單中的“添加窗體”命令來(lái)實(shí)現(xiàn) 2.

15、 刪除窗體 選擇“工程”菜單中的“移除”命令 3. 保存窗體 選擇“文件”菜單中的“保存”或“另存為”命令 4. 設(shè)置啟動(dòng)窗體 在“工程屬性”對(duì)話框中設(shè)置 $8.3 多重窗體和多文檔界面 Load語(yǔ)句：把一個(gè)窗體裝入內(nèi)存 UnLoad語(yǔ)句：清除內(nèi)存中指定的窗體 Show方法：顯示一個(gè)窗體 Hide方法：隱藏窗體。即不在屏幕上顯示，但仍在內(nèi)存 中，因此它與UnLoad的作用是不一樣的 有關(guān)語(yǔ)句和方法 創(chuàng)建3個(gè)窗體和1個(gè)標(biāo)準(zhǔn)模塊 (1)主窗體(Form1) 本窗體上建立了“輸入?yún)?shù)”(Command11) 、“畫圓”(Command12)和“結(jié)束”(Command13)三個(gè)命令按鈕 設(shè)置為啟動(dòng)窗體

16、例8.10 多窗體應(yīng)用示例Private Sub Command11_Click() 主窗體“輸入?yún)?shù)”按鈕 Form1.Hide 隱藏主窗體 Form2.Show 顯示“輸入?yún)?shù)”窗體End SubPrivate Sub Command12_Click() 主窗體“畫圓”按鈕 Form1.Hide 隱藏主窗體 Form3.Show 顯示“畫圓”窗體End SubPrivate Sub Command13_Click() 主窗體“結(jié)束”按鈕 Unload Form1 Unload Form2 Unload Form3 EndEnd Sub先卸載所有已打開(kāi)的窗體 (2)“輸入?yún)?shù)”窗體(Form

17、2) 這是在主窗體上單擊了“輸入?yún)?shù)”按鈕后彈出的窗體，用于輸入圓的坐標(biāo)位置(x,y)和半徑(r)。窗體上建立了3個(gè)文本框(Text21、Text22和Text23)和1個(gè)“返回”命令按鈕(Command21) Private Sub Command21_Click() “輸入?yún)?shù)”窗體的“返回”按鈕 X = Val(Text21.Text) Y = Val(Text22.Text) R = Val(Text23.Text) Form2.Hide 隱藏“輸入?yún)?shù)”窗體 Form1.Show 顯示主窗體 End Sub (3)“畫圓”窗體(Form3) 這是在主窗體上單擊了“畫圓”按鈕后彈出的窗

18、體。窗體上建立了1個(gè)圖片框和2個(gè)命令按鈕，如圖所示。用戶可以單擊“畫圓”(Command31)命令按鈕，使之按給定參數(shù)在圖片框上畫圓。Private Sub Command31_Click() “畫圓”窗體的“畫圓”按鈕 Picture1.Circle (X, Y), R 在圖片框上畫圓，圓心(X,Y), 半徑REnd SubPrivate Sub Command32_Click() “畫圓”窗體的“返回”按鈕 Form3.Hide 隱藏“畫圓”窗體 Form1.Show 顯示主窗體End Sub (4)標(biāo)準(zhǔn)模塊(Modulel) 由于在各窗體之間需要使用公共變量來(lái)傳送數(shù)據(jù)，所以建立一個(gè)標(biāo)準(zhǔn)模

19、塊Modulel，對(duì)用到的全局變量X、Y和R進(jìn)行聲明 運(yùn)行程序后，首先顯示主窗體。在主窗體上，用戶可通過(guò)“輸入?yún)?shù)”和“畫圓”兩個(gè)按鈕來(lái)選擇進(jìn)入不同的窗體，例如單擊“輸入?yún)?shù)”按鈕，則主窗體消失，顯示“輸入?yún)?shù)”窗體。在“輸入?yún)?shù)”窗體或“畫圓”窗體上，單擊“返回”按鈕，又可以隱藏當(dāng)前窗體和重現(xiàn)主窗體例輸入和計(jì)算學(xué)習(xí)成績(jī)。模塊：Public MATH As SinglePublic PHYSICS As SinglePublic CHEMISTRY As SinglePublic CHINESE As SinglePublic ENGLISH As Single 程序一般從啟動(dòng)窗體的Form_

20、Load過(guò)程開(kāi)始執(zhí)行 有時(shí)在程序啟動(dòng)時(shí)不加載任何窗體，而是首先執(zhí)行一段程序代碼，此時(shí)可把要執(zhí)行的程序代碼放在Sub Main過(guò)程中，并指定Sub Main為“啟動(dòng)對(duì)象”。應(yīng)用程序在運(yùn)行時(shí)會(huì)先執(zhí)行Sub Main過(guò)程 在一個(gè)工程中只能有一個(gè)Sub Main過(guò)程,必須放在標(biāo)準(zhǔn)模塊中，不能放在窗體模塊內(nèi)。 設(shè)置Sub Main過(guò)程為“啟動(dòng)對(duì)象”的方法：在“工程屬性”對(duì)話框的“通用”選項(xiàng)卡中，從“啟動(dòng)對(duì)象”下拉列表框中選中“Sub Main”Sub Main過(guò)程 建立兩個(gè)窗體(Form1及Form2)和1個(gè)標(biāo)準(zhǔn)模塊(Module1)。標(biāo)準(zhǔn)模塊包含一個(gè)Sub Main過(guò)程。如圖所示 兩個(gè)窗體分別顯示當(dāng)前

21、日期和時(shí)間 運(yùn)行程序時(shí)首先判斷當(dāng)前時(shí)間是否超過(guò)12時(shí)，若超過(guò)，則顯示窗體Form2；否則顯示窗體Form1 例 使用Sub Main過(guò)程示例 (3)窗體Form2 本窗體顯示當(dāng)前時(shí)間，其Form_Load事件過(guò)程代碼如下： Private Sub Form_Load() Show Print 這里是窗體Form2 Print 現(xiàn)在時(shí)間: ; Time End Sub 程序運(yùn)行時(shí)，先執(zhí)行Sub Main過(guò)程，即取出當(dāng)前時(shí)數(shù)t，再根據(jù)條件“t=12”來(lái)決定是顯示Form1，還是顯示Form2 不需要加載任何窗體(這種情況極少)時(shí)，可把執(zhí)行的代碼直接寫入Sub Main過(guò)程中 單文檔界面（SDI）：

22、一次只能同時(shí)打開(kāi)一個(gè)文檔，例如“記事本”（WORDPAD）； 多文檔界面（MDI）：可以同時(shí)打開(kāi)多個(gè)文檔，例如Word，Excel；在多文檔界面中，窗體分為：MDI父窗體和子窗體； 多文檔界面運(yùn)行時(shí)的特征：(1) 所有子窗體均顯示在MDI窗體的工作空間內(nèi)；(2) 最小化一個(gè)子窗體時(shí)，它的圖標(biāo)顯示于MDI窗體上，而不是任務(wù)欄中；(3) 最大化一個(gè)子窗體時(shí)，它的標(biāo)題與MDI窗體的標(biāo)題重合；(4)活動(dòng)子窗體的菜單將顯示在MDI窗體的菜單欄中，而不是子窗體中；(5)加載子窗體時(shí)會(huì)自動(dòng)加載其父窗體，反之則不然； MDI父窗體和子窗體各有自己的工具欄，但是子窗體的菜單則顯示在父窗體上； 二、 多文檔界面(

23、MDI) 例1. 創(chuàng)建和設(shè)計(jì)MDI窗體及其子窗體 (1) 創(chuàng)建和設(shè)計(jì)MDI窗體 創(chuàng)建： “工程/添加MDI窗體”命令設(shè)計(jì)：一般有菜單欄、工具欄、狀態(tài)欄(2) 創(chuàng)建和設(shè)計(jì)MDI子窗體 創(chuàng)建： MDI子窗體是一個(gè)MDIChild屬性為True的普通窗體。 要?jiǎng)?chuàng)建多個(gè)子窗體，通過(guò)窗體類來(lái)實(shí)現(xiàn)： Public Sub () Dim NewDoc As New frmMDIChild No = No + 1 NewDoc.Caption = no & No NewDoc.Show End Sub 設(shè)計(jì)：可有菜單欄，但必須有文本框。 MDI子窗體的Name2. MDI窗體與子窗體的交互(1)活動(dòng)子窗體和活

24、動(dòng)控件MDI窗體的兩個(gè)屬性：ActiveForm 和ActiveContro。l例：將子窗體的文本框中所選文本復(fù)制到剪貼板上。 (2)顯示MDI窗體及其子窗體顯示任何窗體的方法為show,還有有關(guān)規(guī)則：加載子窗體時(shí)，其父窗體會(huì)自動(dòng)加載并顯示；反之則無(wú)。MDI窗體有AutoShowChildren屬性，決定是否自動(dòng)顯示子窗體。(3)維護(hù)子窗體的狀態(tài)信息(4)用QueryUnload卸載MDI窗體 3. 多文檔界面應(yīng)用程序中的“窗口”菜單 (1)顯示打開(kāi)的多個(gè)文檔窗口 要在某個(gè)菜單上顯示所有打開(kāi)的子窗體標(biāo)題，只需利用菜單編輯器將該菜單的WindowList屬性設(shè)置為True。 (2)排列窗口 利用

25、Arrange方法進(jìn)行層疊、平鋪和排列圖標(biāo)。 形式： MDI窗體對(duì)象.Arrange 的排列方式： $8.4 工具欄和狀態(tài)欄 分別通過(guò)Active X控件ToolBar和StatusBar來(lái)實(shí)現(xiàn) 工具欄(ToolBar) 工具欄為用戶帶來(lái)比用菜單更為快速的操作 為窗體添加工具欄，應(yīng)使用工具條(ToolBar)控件和圖像控件列表(ImageList)控件(不是標(biāo)準(zhǔn)控件) 創(chuàng)建工具欄的大致步驟： (1)添加ToolBar控件和ImageList控件 (2)用ImageList控件保存要使用的圖形 (3)創(chuàng)建ToolBar控件，并將ToolBar控件與ImageList控件相關(guān)聯(lián)，創(chuàng)建Button對(duì)

26、象 (4)編寫B(tài)utton的Click事件過(guò)程。 單擊工具欄控件時(shí)觸發(fā)Click事件，單擊工具欄上按鈕時(shí)觸發(fā)ButtonClick事件，并返回一個(gè)Button參數(shù)(表明按下哪個(gè)按鈕)一、在ImageList控件中添加圖像 ImageList控件不單獨(dú)使用，專門為其他控件提供圖像庫(kù)。索引（Index）、關(guān)鍵字（Key）在ToolBar中引用圖像文件的擴(kuò)展名為： .ico、.bmp、.gif、.jpg等。二、在ToolBar控件中添加按鈕 1.為工具欄連接圖像 ToolBar與ImageList的連接工具欄樣式 2.為工具欄增加按鈕索引（Index）、關(guān)鍵字（Key）每個(gè)按鈕的編號(hào)、標(biāo)識(shí),Butt

27、onClick事件中引用；圖像(Image) ImageList對(duì)象中的圖像，值可以是Key或Index樣式(Style)，共6種除菜單按鈕(5)外的5種樣式0:thrdefault 普通按紐 按紐按下后恢復(fù)原態(tài)1:thrcheck 開(kāi)關(guān)按紐 按下后保持按下?tīng)顟B(tài) “加粗”2:thrbuttongroup 編組按紐 一組一次只能一個(gè)有效3:thrsepatator 分隔按紐 分隔按紐4:thrplacedholder 占位按紐 以便方其他按紐5:thrdropdowm 菜單按紐 具有下拉菜單，“字符縮放”三、 響應(yīng)ToolBar控件事件 ToolBar控件常用的事件有兩個(gè)：ButtonClick

28、和ButtonMenuClick。前者對(duì)按鈕樣式為02，后者對(duì)樣式為5的菜單按鈕。 （1）用索引Index確定按鈕 (2)用關(guān)鍵字Key確定按鈕Private Sub Toolbar1_ButtonClick(Byval Button As ComctlLib.Button) Case 1 Case 2 End SelectEnd Sub注意：第1個(gè)按鈕的Index值為1。用Index還是用Key比較，Key 可讀性好，可維護(hù)性好。 Case TNew Case TOpen 例8.14 使用工具欄 在例的基礎(chǔ)上，增加一個(gè)工具欄，使之能快速提供“加法”、“減法”和“乘法”運(yùn)算類型 操作步驟： (

29、1)打開(kāi)例的應(yīng)用程序 (2)按照上述創(chuàng)建ImageList的方法，在窗體上建立ImageList1控件，并從Windows 98系統(tǒng)文件夾中取出圖片文件、和Hlpglobe.gif(本例采用這三個(gè)圖片作為按鈕的圖形)，并添加到該控件中。 (3) 在窗體上建立ToolBar1控件，使之與ImageList1相關(guān)聯(lián)，然后在控件中添加“加法”、“減法”和“乘法”三個(gè)按鈕，并分別取用ImageList1中的三個(gè)圖片。 (4)在原有程序代碼的基礎(chǔ)上，增加以下的ButtonClick事件過(guò)程代碼Private Sub Toolbar1_ButtonClick(ByVal Button As _ MSCom

30、ctlLib.Button) Case 1: ws = 1 Case 2: ws = 10 Case 3: ws = 100 Case 4: op = + Case 5: op = - Case 6: op = * Case 7: op = / End Select End SubPrivate Sub Toolbar1_ButtonClick(ByVal Button As _ MSComctlLib.Button) Case yiweshu: ws = 1 Case liangweishu: ws = 10 Case sanwe3: ws = 100 Case 4: op = + Case

31、 5: op = - Case 6: op = * Case 7: op = / End Select End Sub 狀態(tài)欄 狀態(tài)欄(StatusBar)通常位于窗體的底部，主要用于顯示應(yīng)用程序的各種狀態(tài)信息。StatusBar控件屬于ActiveX控件 StatusBar控件由若干個(gè)面板(Panel)組成，每一個(gè)面板包含文本和圖片。StatusBar控件最多能分成16個(gè)Panel對(duì)象 狀態(tài)欄顯示系統(tǒng)信息和對(duì)用戶的提示，如：系統(tǒng)日期、軟件版本、光標(biāo)的當(dāng)前位置、鍵盤的狀態(tài)等。一般在窗口的底部。1建立狀態(tài)欄可插入圖像顯示的文本樣式 例 使用狀態(tài)欄 在例的基礎(chǔ)上，在窗體底部添加一個(gè)狀態(tài)欄，用于顯示當(dāng)前時(shí)間、鍵盤大小寫狀態(tài)及運(yùn)行狀態(tài)。操作步驟： (1)打開(kāi)例的應(yīng)用程序 (2)在窗體上創(chuàng)建StatusBar1控件 (3)右擊StatusBar1控件，從快捷菜單中選擇“屬性”命令，系統(tǒng)彈出“屬性頁(yè)”對(duì)話框 (4)單擊