Ch7-菜单、工具栏和公共对话框

1、Visual Basic 程序设计第7章 菜单、工具栏和公共对话框,主要内容,公共对话框 菜单制作 下拉式菜单 弹出式菜单快捷菜单 代码设计 工具栏制作 加入部件（工具栏，图像列表等） 组成：图像加入到工具栏 代码设计,公共对话框,不是标准控件。而是可插入部件： Microsoft Common Dialog Control 6.0 和标准控件一样，有属性、方法 多功能（由Action属性决定）：,字体对话框(showfont) 打印对话框(showprinter) 帮助对话框(showhelp),打开文件对话框（showopen） 另存为对话框(showsave) 颜色对话框(showcol

2、or),打开公共对话框的方法,ShowOpen显示打开文件对话框 ShowSave显示另存为对话框 ShowColor显示颜色对话框 ShowFont显示字体对话框 ShowPrinter 显示打印对话框 ShowHelp显示帮助对话框,公共对话框的属性页,分页设置不同对话框的有关属性,DialogTitle FileName InitDir Filter CancelError,Flags DefaultExt MaxFileSize FilterIndex,“打开/另存为”对话框的主要属性,FileName用户所选文件路径 Filter过滤器限制文件选择范围 格式： “描述|通配符;” 例

3、： “所有文件|*.*|图片文件|*.bmp;*.jpg” FilterIndex 用户选择的过滤项索引号,“打开”对话框,.Filter = 所有文件|*.*|图片文件|*.bmp;*.jpg;*.ico|文本文件|*.txt,“字体”对话框的主要属性,FontName字体 （String） FontSize 大小 （Single） FontBold粗体（Boolean） FontItalic斜体 （Boolean） FontUnderline 下划线（Boolean） Flags标志 （Long）,Flags（标志）属性,对不同对话框有不同含义。特别要注意： 在字体对话框中，bit 0 屏

4、幕字体； bit 1打印机字体； bit 8 效果框架。,建议令： Flags=&H103=259 则字体对话框中将包含所有字体，并显示效果框架。,实例7.1和 With语句,Private Sub Command1_Click ( ) 设置Flags属性 CommonDialog1.Flags = cdlCFBoth + cdlCFEffects 打开字体对话框 CommonDialog1.ShowFont 对文本框的相应属性赋值，用With语句 With CommonDialog1 Text1.FontName = .FontName Text1.FontSize = .FontSize

5、Text1.FontBold = .FontBold Text1.FontItalic = .FontItalic Text1.FontUnderline = .FontUnderline Text1.FontStrikethru = .FontStrikethru Text1.ForeColor = .Color End With End Sub,“颜色”对话框的主要属性,Color用户所选的颜色值 Flags 标志，如果flags属性为0，则打开颜色对话框时只显示左半边，如果flags属性为3，显示全部。,菜单和工具栏的应用实例,工具栏,图像列表,菜单,先看这个实例！ 点击运行！,菜单编辑

6、器窗体,菜单项的属性： Caption Name Index Checked Enabled Visible,菜单项显示区,菜单编辑器,功能：适用于下拉式菜单和快捷菜单 菜单的树形结构（最多6层） 菜单项的增减、插入、移动 菜单项的属性设置 菜单项数组 窗体工作区缩小（ScaleHeight 或ScaleWidth相应缩小）,菜单项的属性,把菜单项看作一种类似命令按钮的控件 主要属性 名称(Name)：必须输入，不能重名，除非是数组元素（Index属性非空） 标题（Caption） Index 索引（下标）属性，一般不填 Visible（可见），Enabled（可用） 对应的快捷键主项与子项的

7、设置方法不同 特殊菜单项：菜单中的分隔条，标题为“-”,增强型文本框 RichTextBox,用于Windows附件中的“写字板” 程序，比一般文本框好用，主要优点： 可仅对选定的文本设置字体、颜色等属性 可用LoadFile方法读取整个文本文件，用 SaveFile方法保存文本框全部内容。 能处理纯文本文件（.txt等类型）和带格式 文件（.rtf类型）。,RichTextBox的主要属性和方法,SelText 属性 用户在文本框中所选择的文字段 SelFontName，SelFontSize，SelBold，SelItalic，SelColor等属性 用于对所选文字段的字体名称、字体大小、

8、字型和字体颜色等进行设置。 LoadFile方法 将文件内容全部读入到文本框中。格式： .LoadFile SaveFile方法 将文本框中内容保存到文件中。格式： .SaveFile , rtfRTF| rtfText 说明： rtfText（=1）表示纯文本文件； rtfRTF（=0）表示带格式文件，缺省。,菜单的代码设计,唯一的事件：Click（除分隔条） 菜单项的隐藏和再现（修改Visible属性） 菜单数组情况下，含参数Index 菜单项的动态增减： 只能对菜单数组元素 使用Load和Unload方法,编写“编辑”菜单中的菜单Click事件代码。在编写过程中，需要用到两个与剪贴板有关

9、的方法：SetText方法和GetText方法。 其中SetText方法是将指定的文本放入系统剪贴板中： Clipboard.SetText Text1.SelText 剪贴板对象的GetText方法可以作为函数一样使用，它返回系统剪贴板当前的内容： Text1.SelText = Clipboard.GetText() 其中，Clipboard是VB提供的剪贴板对象。,快捷菜单,怎样弹出快捷菜单 在被右击的对象的MouseDown事件过程中编程 使用PopupMenu语句（方法），格式： PopupMenu 菜单名,标志, x, y, 粗体子菜单名 说明： 只有菜单名是必须的。并已在菜单编辑

10、器中定义。 指定的菜单必须含有至少一个子菜单。 与下拉式菜单编程相同，经常共享代码。,工具栏,插入部件： Microsoft Windows Commom Controls 6.0 在窗体中加入工具栏（ToolBar） 主要属性：Align，决定工具栏的位置 加入图像列表控件（ImageList），用于保存工具栏中所需的图像。,工具栏的按钮属性页,主要属性： Index Caption Key Style ToolTipText Image,按钮的样式,0-tbrDefault缺省 1-tbrCheck复选按钮 2-ButtonGroup单选按钮 3-tbrSeparator分隔符 4-tbr

11、Placeholder占位按钮 5-tbrDropDown下拉式按钮,图像列表控件ImageList,用于保存多个图片（在ListImages属性中），供其他控件和程序使用。 图片类型：位图(.bmp)、光标(.cur)、图标(.ico)、JPEG(.jpg) 或 GIF(.gif) 文件。 怎样加入图像 工具栏与图像列表的关联操作 其他应用,实例7.3：显示图像列表,假定图像列表中已保存若干个图像，编程显示其中所有图像。加入一个图像框，并设置其Stretch属性为True。 Private Sub Image1_Click ( ) Static i As Integer 要用静态变量 Dim