1、Visual Basic 程序設計第7章 菜單、工具欄和公共對話框主要內容公共對話框菜單制作下拉式菜單彈出式菜單快捷菜單代碼設計工具欄制作加入部件（工具欄，圖像列表等）組成：圖像加入到工具欄代碼設計公共對話框不是標準控件。而是可插入部件： Microsoft Common Dialog Control 6.0和標準控件一樣，有屬性、方法多功能（由Action屬性決定）：字體對話框(showfont)打印對話框(showprinter)幫助對話框(showhelp)打開文件對話框（showopen）另存為對話框(showsave)顏色對話框(showcolor)打開公共對話框的方法ShowOpe

2、n顯示打開文件對話框ShowSave顯示另存為對話框ShowColor顯示顏色對話框ShowFont顯示字體對話框ShowPrinter 顯示打印對話框ShowHelp顯示幫助對話框公共對話框的屬性頁分頁設置不同對話框的有關屬性DialogTitleFileNameInitDirFilterCancelErrorFlagsDefaultExtMaxFileSizeFilterIndex“打開/另存為”對話框的主要屬性FileName用戶所選文件路徑Filter過濾器限制文件選擇范圍格式： “描述|通配符;”例： “所有文件|*.*|圖片文件|*.bmp;*.jpg”FilterIndex 用戶

3、選擇的過濾項索引號“打開”對話框.Filter = 所有文件|*.*|圖片文件|*.bmp;*.jpg;*.ico|文本文件|*.txtFileNameFilter“字體”對話框的主要屬性FontName字體 （String）FontSize 大小 （Single）FontBold粗體（Boolean）FontItalic斜體 （Boolean）FontUnderline 下劃線（Boolean）Flags標志 （Long）Flags（標志）屬性對不同對話框有不同含義。特別要注意：在字體對話框中，bit 0 屏幕字體； bit 1打印機字體； bit 8 效果框架。 建議令： Flags=&H

4、103=259則字體對話框中將包含所有字體，并顯示效果框架。實例7.1和 With語句Private Sub Command1_Click ( )設置Flags屬性 CommonDialog1.Flags = cdlCFBoth + cdlCFEffects打開字體對話框 CommonDialog1.ShowFont對文本框的相應屬性賦值，用With語句 With CommonDialog1 Text1.FontName = .FontName Text1.FontSize = .FontSize Text1.FontBold = .FontBold Text1.FontItalic = .F

5、ontItalic Text1.FontUnderline = .FontUnderline Text1.FontStrikethru = .FontStrikethru Text1.ForeColor = .Color End WithEnd Sub“顏色”對話框的主要屬性Color用戶所選的顏色值Flags 標志，如果flags屬性為0，則打開顏色對話框時只顯示左半邊，如果flags屬性為3，顯示全部。菜單和工具欄的應用實例工具欄圖像列表菜單先看這個實例！點擊運行！菜單編輯器窗體菜單項的屬性：CaptionNameIndexCheckedEnabledVisible上移一層下移一層上一項下

6、一項菜單項顯示區菜單編輯器功能：適用于下拉式菜單和快捷菜單菜單的樹形結構（最多6層）菜單項的增減、插入、移動菜單項的屬性設置菜單項數組窗體工作區縮小（ScaleHeight 或ScaleWidth相應縮小）菜單項的屬性把菜單項看作一種類似命令按鈕的控件 主要屬性名稱(Name)：必須輸入，不能重名，除非是數組元素（Index屬性非空）標題（Caption）Index 索引（下標）屬性，一般不填Visible（可見），Enabled（可用）對應的快捷鍵主項與子項的設置方法不同特殊菜單項：菜單中的分隔條，標題為“-”增強型文本框 RichTextBox 用于Windows附件中的“寫字板” 程序，

7、比一般文本框好用，主要優點：可僅對選定的文本設置字體、顏色等屬性可用LoadFile方法讀取整個文本文件，用 SaveFile方法保存文本框全部內容。能處理純文本文件（.txt等類型）和帶格式 文件（.rtf類型）。RichTextBox的主要屬性和方法SelText 屬性 用戶在文本框中所選擇的文字段 SelFontName，SelFontSize，SelBold，SelItalic，SelColor等屬性 用于對所選文字段的字體名稱、字體大小、字型和字體顏色等進行設置。LoadFile方法 將文件內容全部讀入到文本框中。格式： .LoadFile SaveFile方法 將文本框中內容保存到

8、文件中。格式： .SaveFile , rtfRTF| rtfText說明： rtfText（=1）表示純文本文件； rtfRTF（=0）表示帶格式文件，缺省。菜單的代碼設計唯一的事件：Click（除分隔條）菜單項的隱藏和再現（修改Visible屬性）菜單數組情況下，含參數Index菜單項的動態增減：只能對菜單數組元素使用Load和Unload方法編寫“編輯”菜單中的菜單Click事件代碼。在編寫過程中，需要用到兩個與剪貼板有關的方法：SetText方法和GetText方法。其中SetText方法是將指定的文本放入系統剪貼板中： Clipboard.SetText Text1.SelText

9、剪貼板對象的GetText方法可以作為函數一樣使用，它返回系統剪貼板當前的內容： Text1.SelText = Clipboard.GetText()其中，Clipboard是VB提供的剪貼板對象。快捷菜單怎樣彈出快捷菜單在被右擊的對象的MouseDown事件過程中編程使用PopupMenu語句（方法），格式：PopupMenu 菜單名,標志, x, y, 粗體子菜單名說明：只有菜單名是必須的。并已在菜單編輯器中定義。指定的菜單必須含有至少一個子菜單。與下拉式菜單編程相同，經常共享代碼。工具欄插入部件：Microsoft Windows Commom Controls 6.0 在窗體中加入工

10、具欄（ToolBar）主要屬性：Align，決定工具欄的位置加入圖像列表控件（ImageList），用于保存工具欄中所需的圖像。工具欄的按鈕屬性頁主要屬性：IndexCaptionKeyStyleToolTipTextImage按鈕的樣式0-tbrDefault缺省1-tbrCheck復選按鈕2-ButtonGroup單選按鈕3-tbrSeparator分隔符4-tbrPlaceholder占位按鈕5-tbrDropDown下拉式按鈕圖像列表控件ImageList用于保存多個圖片（在ListImages屬性中），供其他控件和程序使用。圖片類型：位圖(.bmp)、光標(.cur)、圖標(.ico)、JPEG(.jpg) 或 GIF(.gif) 文件。怎樣加入圖像工具欄與圖像列表的關聯操作其他應用實例7.3：顯示圖像列表 假定圖像列表中已保存若干個圖像，編程顯示其中所有圖像。加入一個圖像框，并設置其Stretch屬性為True。 Private Sub Image1_Click ( ) Static i As Integer 要用靜態變量 Dim n A