《Visual Basic 教程》第八章 界面设计

第八章界面设计(3学时 81通用对话框 82菜单设计 83多重窗体和多文档界面 84工具栏和状态栏 85 RichTextBox控件 8.6应用程序向导

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

81通用对话框( Common Dialog) 通用对话框添加到工具箱 工程/部件 选定部件 选定 Microsoft CommDialog 标签 Control 6.0 确定 打开通用对话框: 通用对话框的类型 Action方法 打开(Open) ShowOpen [另存为 Save as) ShowSave 颜色( Color) ShowColor 字体(om 4w ShowFont 打印机( Printer 5 ShowPrinter 和帮助(Hep) 6 ShowHelp 属性 Action:打开通用对话框 DialogTiltle:对通用话框标题 y Cancel Error 选择“取消”按钮,出现错误警告 Err. Number置为32755( cdCa 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 对话框标题() 标志():p Filename文件名称c 缺省扩展名Q DefaultExt InitDir 初始化路径①) 文件最大长度) Filter 过滤器①) 过滤器萦引⑩:p FilterIndex 厂取错误 匚确定」取清」应用)」_帮助」 属性 Filename:包含路径 FileTitle:不包含路径 Filter:例如 Documents(*.DOC)*.DOC Text Files(*TXT)I *. txt All Files/**2 Filterlndex:决定在文件类型列表框中显示第几组类型的文件。 nitIn:初始化路径

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

例81简单的文本编辑程序当按“打开”按钮,在“打开”对话框按“取消”按 钮,显示有关信息。 「通用对话框应用示例 □口区 Open Common Dialog 1. filename For Input As #1 打开 Do While Not EOF (1) 另存为 Line Input #1, inputdata 施色 txtNoteEdit. Text=txtNoteEdit Text +inputdata +ily Chr(13)+Chr(10) LO 打印 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:缺省扩展名 例81中“另存为按钮的事件过程 3.“颜色”对话框 属性 Color:返回或设置选定的颜色。 例81“颜色.”按钮的事件过程

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

-4“字体“对话框 FontName FontBold, Fontltalic FontSize 字体 F式) 确定 GB231 Regular a 取消 Bold Bold Italic Min、Max 车指GB2312 体繁体 效果 示例 Fontstrikethru 厂加删除线 Fontunderline 加下划线Q 颜色C Color □黑色 语系) F|ags属性:指示所显示的字体类型,必须设置。 cdICFScreen Fonts48H1屏幕字体 cdICF PrinterFonts &H2 打印机字体 7lmiuersily cdICF Both &H3 打印机字体和屏幕字体 cdIcFEffects 8H100显示删除线和下划线检查框以及颜色组合框 例81中“字体.按钮的事件过程

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

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

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

8.2菜单的设计 菜单形式: 芣命名画图 主菜单条 单酬盒0tm主菜单名 文件)编辑g)查看0图象)鲍色 菜工具箱)ctl 9 快捷键 项 ˇ状态栏() 热键 子菜单名 缩放凹) 子菜单标记 全图0)ctr 分隔线

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

一、菜单编辑器的使用 工具/菜单编辑器(CTRL+E) 窗体上快显菜单/菜单编辑器 区常用属性 标题①) 1标题( Caption)热键:前面加& 菜单项属性』0 快捷键):「0e) 帮助上下文m: 协调位置0:-Eae 2名称(Name文本框分隔符也应有名称。 厂复选)有效)可见厂显示窗口列表) 3.快捷键( Shortcut)菜单名没有快捷键 操作按钮一“+·+区间雌 4复选 Checkec检查框TRUE有 丞例86建立一个有菜单功能的文本编辑器。1m可8 菜单列 Ctrlts 另存为 5.有效( Enabled检查框 表框 Ctrl 6.可见sbe检查框

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

二、菜单项增减 在程序运行时,菜单随时增减,如“文件”菜单能保留最近打开的文件数 这同控件数组一样,使用菜单数组 步骤 1在菜单设计时,加入一个菜单项,其 -Index为0(菜单数组) Visua|为 False 2.在程序运行时,通过Load方法向菜单数组增加新的菜单项 例87在86中的文件菜单中保留最近打开的文件清单。 同样,要删除所建立的菜单项,使用 Unload方法向菜单数组减少菜单项。 1no 7lmioervilp 中

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