同济大学：《Visual Basic程序设计》课程教学课件（PPT讲稿）第八章 界面设计

第八章界面设计 (3学时) 8.1通用对话框 8.2菜单设计 8.3多重窗体和多文档界面 8.4工具栏和状态栏 8.5 RichTextBox控件 8.6应用程序向导

8.1 通用对话框 8.2 菜单设计 8.3 多重窗体和多文档界面 8.4 工具栏和状态栏 8.5 RichTextBox控件 8.6 应用程序向导 第八章 界面设计 （3学时）

8.1通用对话框(CommonDialog) 通用对话框添加到工具箱 工程/部件 选定 选定Microsoft →确定 部件标签 CommDialog Control6.0 打开通用对话框： 通用对话框的类型 Action 方法 打开(Open) 1 ShowOpen 另存为(Save As) y ShowSave 颜色(Color) 3 ShowColor 字体(Font) × ShowFont 打印机(Printer) 5 ShowPrinter 6 属性 和帮助(Help) ShowHelp Action: 打开通用对话框。 DialogTiltle:对通用话框标题。 CancelError Tue:选择“取消”按钮，出现错误警告； Err.Number置为32755(cdCancel). False(缺省)：选择“取消”按钮，没有错误警告

8.1 通用对话框(CommonDialog) 属性 Action：打开通用对话框。 DialogTiltle：对通用话框标题。 CancelError True：选择“取消”按钮，出现错误警告； Err.Number置为32755(cdCancel)。 False(缺省)：选择“取消”按钮，没有错误警告。 工程/部件 选定 部件标签 选定Microsoft CommDialog Control 6.0 通用对话框添加到工具箱 通用对话框的类型 Action 方法 打开(Open) 1 ShowOpen 另存为(Save As) 2 ShowSave 颜色(Color) 3 ShowColor 字体(Font) 4 ShowFont 打印机(Printer) 5 ShowPrinter 和帮助(Help) 6 ShowHelp 确定 打开通用对话框：

1.“打开”文件对话框 属性页 打开/另存为颜色]字体打印帮助 DialogTiltle 对话框标题)： 标志)：口 FileName 文件名称)： 缺省扩展名)： DefaultExt InitDir 初始化路径①) 文件最大长度仙)：280 Filter 过滤器⑧)： 过滤器索引@) 0 Filterlndex 口取消引发错误心) 确定 取消 应用) 帮助 属性 FileName: 包含路径 FileTitle:不包含路径 Filter:例如， Documents(*.DOC)|*.DOC]Text Files(*.TXT)|*.txt|All Files|*.* Filterlndex:决定在文件类型列表框中显示第几组类型的文件。 InitDir:初始化路径

属性 FileName：包含路径 FileTitle：不包含路径 Filter：例如， Documents(*.DOC)|*.DOC|Text Files(*.TXT)|*.txt|All Files|*.* FilterIndex：决定在文件类型列表框中显示第几组类型的文件。 InitDir：初始化路径 1. “打开”文件对话框 DialogTiltle FileName InitDir Filter FilterIndex DefaultExt

例8.1简单的文本编辑程序，当按“打开”按钮，在“打开”对 话框按“取消”按钮，显示有关信息。 通用对话框应用示例 口回☒ Open CommonDialog1.filename For Input As #1 打开， Do While Not EOF(1) 另存为， Line Input #1,inputdata 颜色 txtNoteEdit.Text txtNoteEdit.Text inputdata + Chr(13)+Chr(10) 字体 Loop 打印 Close #1 结束

例8.1 简单的文本编辑程序,当按“打开”按钮，在“打开”对 话框按“取消”按钮，显示有关信息。 Open CommonDialog1.filename For Input As #1 Do While Not EOF(1) Line Input #1, inputdata txtNoteEdit.Text = txtNoteEdit.Text + inputdata + _ Chr(13) + Chr(10) Loop Close #1

2.“另存为”对话框 没有提供真正的存储文件操作，仍需要编程完成储存操作。 属性 DefaultExt:缺省扩展名 例8.1中“另存为."按钮的事件过程 3.“颜色”对话框 属性 Color:返回或设置选定的颜色。 例8.1中“颜色."按钮的事件过程

2. “另存为”对话框 没有提供真正的存储文件操作，仍需要编程完成储存操作。 属性 DefaultExt：缺省扩展名 例8.1中“另存为.”按钮的事件过程 3. “颜色”对话框 属性 Color：返回或设置选定的颜色。 例8.1中“颜色.”按钮的事件过程

4.“字体”对话框 FontName FontBold,Fontltalic FontSize 字体 ☒☒ 字体) 字体样式健) 大小) Regula 六号 确定 1红@仿宋GB2312 Regular 四号 Italic 取消 Bold Bold Italic Min、Max 红宋体繁体 效果 示例 FontStrikethru ◆■加删除线区) FontUnderline ·■加下划线) 颜色C): Color 黑色 语系⑧)： Flags属性：指示所显示的字体类型，必须设置。 cdlCFScreenFonts &H1 屏幕字体 cdlCFPrinterFonts &H2 打印机字体 cdlCFBoth &H3 打印机字体和屏幕字体。 cdlCFEffects &H100 显示删除线和下划线检查框以及颜色组合框 例8.1中“字体.”按钮的事件过程

4. “字体”对话框 Flags属性：指示所显示的字体类型，必须设置。 cdlCFScreenFonts &H1 屏幕字体 cdlCFPrinterFonts &H2 打印机字体 cdlCFBoth &H3 打印机字体和屏幕字体。 cdlCFEffects &H100 显示删除线和下划线检查框以及颜色组合框 FontName FontBold、FontItalic FontSize FontStrikethru FontUnderline Color Min、Max 例8.1中“字体.”按钮的事件过程

5.“打印”对话框 属性 FromPage:起始页号 ToPage:终止页号 Copies:打印份数 如果打印驱动程序不支持多份打印，该属性有可能始终返回1。 例8.1中“打印."按钮的事件过程 6.“帮助”对话框 帮助文件需要用其它的工具制作，如Microsoft Windows Help Compiler. 属性 例8.5 HelpCommand:在线Help帮助类型 HelpFile:Help文件的路径及其名称 HelpKey:在帮助窗口显示由该帮助关键字指定的帮助信息

5. “打印”对话框 属性 FromPage：起始页号 ToPage：终止页号 Copies：打印份数 如果打印驱动程序不支持多份打印，该属性有可能始终返回1。 例8.1中“打印.”按钮的事件过程 6. “帮助”对话框 帮助文件需要用其它的工具制作，如Microsoft Windows Help Compiler。 属性 例8.5 HelpCommand：在线Help帮助类型 HelpFile：Help文件的路径及其名称 HelpKey：在帮助窗口显示由该帮助关键字指定的帮助信息

8.2菜单的设计 菜单形式： 未命名·画图 主菜单条 文件⑧编辑包)查看图象1)颜色C) 主菜单名 菜 v工具箱) Ctrl+T y颜料盒C) Ctrl+L 快捷键 项 V状伏态栏S 热键 文宇工栏 子菜单名 缩放@) 子菜单标记 全图) Ctrl+F 分隔线

8.2 菜单的设计 菜单形式： 主菜单名 快捷键 热键 子菜单标记 主菜单条 分隔线 菜 单 项 子菜单名

一、菜单编辑器的使用 工具/菜单编辑器(CTRL+E) 窗体上快显菜单/菜单编辑器 菜单缤铝器 ☒ 常用属性： 标题) 确定 名称：「 取消 L.标题(Caption)热键：前面加& 菜单项属性」 索引0： 快捷键⑤)： 0one） 帮助上下文D0:5 协调位置0：0-e习 2.名称Name)文本框分隔符也应有名称。 工复选c) 口有效您) 口可见的 厂显示窗口列表) 3.快捷键(Shortcut)菜单名没有快捷键 操作按钮 下一个回 香入)除红) 文件 Ctrl+ 4.复选(Checked)检查框TRUE有√ Ctrl+0 菜单列 嘉 Ctrl+S 5.有效(Enabled)检查框 表框 出 复制 Ctrl+C 6.可见(Visible)检查框 示例8.6建立一个有菜单功能的文本编辑器

菜单列 表框 一、菜单编辑器的使用 工具／菜单编辑器(CTRL+E) 窗体上快显菜单／菜单编辑器 菜单项属性 常用属性： 1. 标题(Caption) 热键：前面加& 2. 名称(Name)文本框 分隔符也应有名称。 3. 快捷键(Shortcut) 菜单名没有快捷键 4. 复选(Checked)检查框 TRUE 有✓ 5. 有效(Enabled)检查框 6. 可见(Visible)检查框 操作按钮 示例 8.6 建立一个有菜单功能的文本编辑器

二、菜单项增减 在程序运行时，菜单随时增减，如“文件”菜单能保留最近打开 的文件数。这同控件数组一样，使用菜单数组。 步骤： 1.在菜单设计时，加入一个菜单项，其Index为0（菜单数组）， Visual为False。 2.在程序运行时，通过Load方法向菜单数组增加新的菜单项。 例8.☑在8.6中的文件菜单中保留最近打开的文件清单。 同样，要删除所建立的菜单项，使用UnLoad方法向菜单数组减少 菜单项

二、 菜单项增减 在程序运行时，菜单随时增减，如“文件”菜单能保留最近打开 的文件数。这同控件数组一样，使用菜单数组。 步骤： 1.在菜单设计时，加入一个菜单项，其Index为0（菜单数组）, Visual为False。 2.在程序运行时，通过Load方法向菜单数组增加新的菜单项。 例8.7在8.6中的文件菜单中保留最近打开的文件清单。 同样，要删除所建立的菜单项，使用UnLoad方法向菜单数组减少 菜单项