第六讲 对话框和菜单程序设计

图7-14 画板程序的运行结果
7.2.5 “字体”对话框


◆ ◆ ◆ ◆ ◆ ◆ ◆

运行时，使用通用对话框控件的 ShowFont方法，或将 Action 属性赋值为 4，可以显示“字体”对话框。在“字体”对话框中 选定设置并关闭对话框，读者可以通过使用以下属性得到所需要 的设置对象的字体属性。 1．字体格式属性 Font Name：选定字体的名称 FontBold：是否选定了粗体 FontItalic：是否选定了斜体 FontStrikethru：是否选定了水平删除线 FontUnderline：是否选定了下划线 FontSize：选定字体的大小 Color：选定的颜色 “字体”对话框为用户提供了一个标准的进行字体设置的界面， 通过该对话框用户可以选择字体、字体样式、字体大小、字体效 果以及字体颜色。



Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then PopupMenu popMenu End If End Sub
小 结
对话框与窗体的区别； 通用对话框的使用； 菜单设计。

字体对话框



Private Sub Command2_Click() CmDLG.Flags = cdlCFBoth Or cdlCFEffects CmDLG.FontName = Text1.FontName CmDLG.ShowFont Text1.FontBold = CmDLG.FontBold Text1.FontItalic = CmDLG.FontItalic Text1.FontName = CmDLG.FontName Text1.FontSize = CmDLG.FontSize Text1.ForeColor = CmDLG.Color Text1.FontStrikethru = CmDLG.FontStrikethru End Sub

3．FilterIndex属性 FilterIndex属性为整型，用于确定选择了何种文件类型， 缺省设置为0，系统取Filter属性设置中的第一项。 4．InitDir属性 InitDir属性为字符型，用于确定初始化打开或保存的路径。 例如： CommonDialog1.InitDir ="D:\LCSFile" 如果不设置初始化路径或指定的路径不存在，系统则默认 为本程序文件所在的文件夹。 5．DefaultExt属性 DefaultExt属性为字符型，用于确定保存文件的缺省扩展 名。

7.2.3 “打开”/“另存为”对话框


7．FileName属性 FileName属性为字符型，用于返回或设置用户要打开或保存的文 件全名（含路径），运行时用户在通用对话框中选择的文件或输入的 文件就保存在该属性中，关闭对话框后，可用 FileName属性得到文 件全名。 8．FileTitle属性 FileTitle属性为字符型，用于返回或设置用户要打开或保存的文件 名（不含路径）。运行时，用户选定的文件名或在“文件名”文本框 中输入文件名后， FileTitle 属性为该文件名（而 FileName 属性则由 文件名及其路径共同组成）。
方提供引用具体实例，一般指当前窗体。
通用对话框控件CommonDialog


Windows系统为常用的任务设计了“通用对话框” 控件。该控件并非为 VB 所独有。而是任何应用程 序均可使用的ActiveX类型控件。 通用对话框任务：



“打开”（Open）、 “另存为”（Save As）、 “颜色”（Color）、 “字体”（Font）、 “打印”（Printer） “帮助”（Help）对话框。
系统常数 CdlCFScreenFonts CdlCFPrinterFonts CdlCFBoth &H1 &H2 &H3 值 说明 使对话框只列出系统支持的屏幕字体 使对话框只列出打印机支持的字体 使对话框列出可用的打印机和屏幕字体
CdlCFEffects
&H100
指定对话框允许删除线、下划线以及颜 色效果
7.3.1 菜单的类型


窗体控制菜单; 下拉菜单; 快捷菜单。 每一个菜单项就是一个控件。菜单控件只能识别一个 Click事件，当用鼠标或键盘选中某个菜单控件时，将引 发该事件。
菜单编辑器
设计时右击窗体 可启动“菜单编 辑器” 最多可设置6级 子菜单。

7.3.3 下拉式菜单


7.2.5 “字体”对话框

2．Flags属性 Flags 属性确定对话框中显示字体的类型，在显示字体对话框前 必须设置该属性，否则会产生不存在字体的错误。常用设置如表 7-2 所示。使用 Or 运算符可以为一个对话框设置多个标志，如 cdlCFScreenFonts Or cdlCFEffects。 其 中 ， 要 使 用 FontStrikethru、FontUnderline 和 Color 这 3 个属性，必须先将通 用对话框的Flags属性设置为cdlCFEffects或256。 表7-2 “字体”对话框的Flags属性


在下拉式菜单中，一般有一个主菜单，称为菜单栏。每个菜单 栏包括一个或多个选择项，称为菜单标题，如Visual Basic 6.0集 成开发环境中的文件、编辑、视图、工程等。 当单击一个菜单标题时，包含菜单项的列表（即菜单）被打开， 在列表项目中，可以包含分隔条和子菜单标题（其右边含有三角 的菜单项）等。当选择子菜单标题时又会“下拉”出下一级菜单 项列表，称为子菜单。 Visual Basic的菜单系统最多可达 6级，但在实际应用中一般不 超过3层，因为菜单层次过多，会影响操作的方便性。 建立下拉式菜单的步骤如下：(1) 启动菜单编辑器。(2) 输入菜 单标题。(3) 输入菜单名称。(4) 选择快捷键、复选、有效、可见 等属性。(5) 运用菜单项移动按钮调整菜单位置。(7) 重复以上步 骤(2)～(5)，直到完成菜单输入。(8) 单击“确定”按钮。 下拉式菜单建立以后，需要为相应的菜单项编写事件过程代码， 以便当程序运行时选择菜单实现具体的功能。
第六讲 对话框和菜单
浙江理工大学信息学院 姜旭升 2012-5-8
第7章 对话框和菜单程序设计
7.1 7.2 7.3 7.4

用户自定义对话框 通用对话框控件Fra Baidu bibliotekommonDialog 菜单设计 小 结
对话框
对话框是一类窗体； 对话框与窗体的区别：

对话框一般只完成特定的用户交互任务。如登
7.2.6 其他对话框

Visual Basic 6.0 中除以上介绍的 4种通用对话 框外，还提供了“打印”和“帮助”对话框。 “打印”对话框可以设置打印输出的方法，如打 印范围、打印份数以及当前安装的打印机信息等。 “ 帮 助 ” 对 话 框 则 通 过 使 用 ShowHelp 方 法 调 用 Windows系统的帮助引擎。这两种对话框的使用方 法与前面介绍的类似，读者可以参考 Visual Basic 有关资料，得到进一步的说明。
通用对话框控件CommonDialog的使用

将通用对话框控件添加到控件箱（在控件箱上右击选择部件）
打开通用对话框

在运行阶段，通过调用通用对话框的方法或将Action属性设置为 相关值，具体设置如表7-1所示。 表7-1 打开通用对话框的方法与Action属性设置
类 型 无对话框 “打开”对话框 “另存为”对话框 “颜色”对话框 “字体”对话框 “打印”对话框 “帮助”对话框 Action属性 0 1 2 3 4 5 6 方法 — ShowOpen ShowSave ShowColor ShowFont ShowPrinter ShowHelp


1．对话框标题（Dialog Title） 2．Filter属性（文件类型过滤）
Filter属性设置的格式为： 文件说明字符|类型描述|文件说明字符|类型描述 例如：

Jpeg图像(*.jpeg)|*.jpg|位图文件(*.bmp)|*.bmp|所有文件(*.*)|*.*
7.2.3 “打开”/“另存为”对话框
图7-1 “添加窗体”对话框
图7-2 “登录”对话框
显示与关闭“自定义”对话框



•
•
显示“自定义”对话框 〈窗体名〉 .Show vbModal（其中 vbModal 是系统常数，值为1） 关闭“自定义”对话框 Me.Hide 或 <窗体名>.Hide UnLoad <窗体名>。
这里的“Me”是一个关键字，Me代表正在执行的地
录、选择文件、颜色、显示应用程序版本版权 信息等； 对话框一般以焦点独占(Modal)的方式运行，在 完成对话任务前，不允许转移到其它窗体； 对话框一般不包含菜单、工具栏等应用程序命 令； 对话框一般没有最大、最小化按钮，有时也没 有控制菜单。
使用对话框模板窗体创建对话框

通过“工程”菜单中的“添加窗体”命令，即 可打开“添加窗体”对话框。
7.3.4 弹出式菜单（快捷菜单）




一般使用鼠标右键触发快捷菜单。实现步骤如下： (1) 在菜单编辑器中建立该菜单。 (2) 设置其顶层菜单项（主菜单项）的Visible属性为False。 ( 3 ) 在 窗 体 或 控 件 的 MouseUp 或 MouseDown 事 件 中 调 用 PopupMenu方法显示该菜单。PopupMenu的使用方法为： PopupMenu <菜单名>[,flags[,x[,y[,Boldcommand]]]] 例如：
注意： 通用对话框仅提供了一个用户和应用程序的信息交互界面，具体功能 的实现还需编写相应的程序。
7.2.2 通用对话框的属性页
图7-5 “属性页”对话框
7.2.3 “打开”/“另存为”对话框

打开方法：


ShowOpen，或将Action属性赋值为1。 ShowSave，或将Action属性赋值为2。
7.2.3 “打开”/“另存为”对话框
6．CancelError属性 CancelError属性为逻辑型值，表示用户在与对话框进行信息交换 时，按下“取消”按钮时是否产生出错信息。 当该属性设置为 True 时，无论何时单击“取消”按钮，将出现错 误警告；Err对象的Number属性值置为32755（cdlCancel）。 当该属性设置为 False（缺省）时，单击“取消”按钮，不会出现 错误警告。 注意： 上述属性若在程序中设置，都必须放在使用Action属性或用ShowOpen 和ShowSave方法调用“打开”或“另存为”对话框的语句之前；否 则该属性不效。
7.2.4 “颜色”对话框

使用通用对话框控 件 的 ShowColor 方 法 ， 或 将 Action 属 性 赋 值 为 3，可显示“颜色” 对 话框， 它为 用户 提 供 了一个 标准 的调 色 板界面，如图 7-12 所 示 ，用户 可以 使用 其 中 的基本 颜色 ，也 可 以自己调色 。 当用户 选 中某一 种颜 色后 ， 该 颜色值 （长 整型 ） 赋给Color属性。