CommonDialog1.Action=3
CommonDialog1.Action=6
5
3. 打开通用对话框的“方法” ⑴ 显示打开文件对话框 CommonDialog1.ShowOpen ⑵ 显示保存文件对话框 CommonDialog1.ShowSave ⑶ 显示颜色对话框 CommonDialog1.ShowColor ⑷ 显示字体对话框 CommonDialog1.ShowFont ⑸ 显示打印机设置对话框 CommonDialog1.ShowPrinter ⑹ 显示Windows帮助对话框 CommonDialog1.ShowHelp
⑵ 字体大小（FontSize）：用于设置对话框中字体大小，并可 返回用户所选择的字体大小。 ⑶ 最小（Min）：用于设置对话框中“大小”列表框中的最小 值。
⑷ 最大（Max）：用于设置对话框中“大小”列表框中的最大 15 值。
⑸ 标志（Flags）：设置对话框的一些选项。

cdlCFScreenFonts或1：使用屏幕字体。 cdlCFPrinterFonts或2：使用打印字体。
6
4. 执行通用对话框所改变的控件属性及其应用 例: Action为1或2，改变Dialog控件Filename属性 Private Sub Command1_Click() '运行时通过对话选择在图片框所装入的图片文件。 CommonDialog1.Action = 1 Picture1.Picture= LoadPicture(CommonDialog1.Filename) End Sub
⒉ 运行时显示“另存为”对话框
使用通用对话框控件的ShowSave方法，或将Action属性赋值为 2，可以在运行时显示“另存为”对话框。
12
6.2.4 “颜色”对话框
“颜色”对话框用来提供调色板并从中选择颜色，或创建自定 义颜色。
⒈ 设计时建立“颜色”对话框 设计时，在通用对话框控件的属性页窗口“颜色”选项卡设置 属性，如图所示。 ⒉ 运行时显示“颜色”对话框 运行时，使用通用对话框控件的ShowColor方法，或将Action 属性赋值为3，可显示“颜色”对话框，如图所示。
21
⑹ 有效：设置Enabled属性，缺省值为True。 ⑺ 可见：设置Visible属性，缺省值为True。 ⑻ 菜单项移动按钮
左移、右移按钮可以使编辑器窗口选定的菜单项左边减少、增 加4个点，若某菜单项比它上1行的菜单项多4个点，则该选项作 为上1菜单项的子菜单（VB允许最多6级菜单）。 上移按钮可以使编辑器窗口选定的菜单项移动到上1行菜单项的 上边，下移按钮可以使编辑器窗口选定的菜单项移动到下1行菜 单项的下边。
Text1.ForeColor = CommonDialog1.Color
End Sub
8
6.2.2 “打开文件”对话框
⒈ 设计时建立“打开文件”对话框 设计时建立“打开”文件对话框的步骤如下：
⑴ 在窗体上添加通用对话框控件。
⑵ 打开“属性页”对话框。 ⑶ 选择“打开/另存为”选项卡，设置属性。 其中“属性页”中有关属性的含义如下：

10
文件最大长度（MaxFileSize）：用于指定文件名的最大字节
数。
过滤器索引（FilterIndex）：设置过滤器的默认索引值。如下
列语句使文件类型列表中首行显示为“WORD文档”，文件显 示窗口中显示所有指定文件夹下的Word文档。 CommonDialog1.Filter = "所有文件|*.*|WORD文档|*.doc|位图 文件|*.bmp"
6.2.6 其他对话框
VB 6.0中除以上介绍的4种通用对话框外，还提供了“打印”和 “帮助”对话框。
19
6.3 菜单设计
6.3.1 菜单的类型
菜单的两种基本类型：下拉式菜单和弹出式菜单。
6.3.2 菜单编辑器
选择“工具”菜单中的“菜单编辑器”选项，可以进入菜单编 辑器。
20
⑴ 标题：运行时各项菜单的字面解释，即在菜单中显示的文本， 自定义。 ⑵ 名称：菜单名称，用来唯一识别该菜单，也是运行时单击该 菜单项所执行的事件过程的名称。
⑼ “下一个”按钮：单击该按钮，光标从当前菜单项移到下一 项。如果当前菜单项是最后一项，则加入一个新的菜单项。 ⑽ “插入”按钮：在当前选择的菜单项前插入一个新的菜单项。
⑾ “删除”按钮：删除当前选择的菜单项。
22
6.3.3 下拉式菜单
在下拉式菜单中，一般有一个主菜单，称为菜单栏。每个菜单 栏包括一个或多个选择项，称为菜单标题。 当单击一个菜单标题时，包含菜单项的列表（即菜单）被打开， 在列表项目中，可以包含分隔条和子菜单标题（其右边含有三 角的菜单项）等。当选择子菜单标题时又会“下拉”出下一级 菜单项列表，称为子菜单。 VB的菜单系统最多可达6级，但在实际应用中一般不超过3层， 因为菜单层次过多，会影响操作的方便性。
第6章
6.1 用户对话框
对话框和菜单
用户对话框是用户根据应用程序设计的需要，自行定义的 对话框，通常由标签、文本框与命令按钮等控件组合而成。 例 6-1 用户对话框示例。
1
2
6.2
通用对话框控件（CommonDialog1）
它属于VB的ActiveX控件，在使用前需要将它添加到工具 箱中。将通用对话框图标添加到工具箱的方法如下：
• FontUnderline：是否选定了下划线 • FontSize：选定字体的大小 • Color：选定的颜色。 注意：使用FontStrikethru、FontUnderline和Color属性时， 必须先将通用对话框的Flags属性设置为cdlCFEffects或256。
18
例6-4 “字体”对话框示例。在文本框上显示文字，利用“字体” 对话框来设置所显示文字的字体、字型、大小、颜色等。
例6-5 建立下拉式菜单，控制标签上显示文字的字体、颜色等。
24
6.3.4 弹出式菜单
弹出式菜单是独立于菜单栏显示在窗体或指定控件上的浮动菜 单，菜单的显示位置与鼠标当前位置有关。实现步骤如下： 1. 在菜单编辑器中建立该菜单。 2. 设置其顶层菜单项（主菜单项）的Visible属性为False。 3. 在窗体或控件的MouseUp或MouseDown事件中调用 PopupMenu方法显示该菜单。PopupMenu的使用方法为： [对象名].PopupMenu <菜单名>[,flags[,x[,y[,Boldcommand]]]] 其中： ⑴ [对象名]缺省为当前窗体。 ⑵ <菜单名>是指通过菜单编辑器设计的、至少有一个子菜单 项的菜单名称（Name）。
23
建立下拉式菜单的步骤如下： 1. 启动菜单编辑器。 2. 输入菜单标题。
3. 输入菜单名称。
4. 选择快捷键、复选、有效、可见等属性。 5. 运用菜单项移动按钮调整菜单位置。 6. 重复2至5步骤，直到完成菜单输入。 7. 单击“确定”按钮。
下拉式菜单建立以后，需要为相应的菜单项编写事件过程代码， 以便当程序运行时选择菜单实现具体的功能。

对话框标题（Dialog Title）：字符串类型，缺省值为“打开”。

文件名称（FileName） ：字符串类型，程序运行后该属性返 回用户所选择的文件名。
初始化路径（InitDir）：字符串类型，用于设置初始的文件目 录，字符串中的字符表示某文件夹名称。
9

过滤器（Filter）：字符串类型，用于设置显示文件的类型。 字符串中有若干个“|”号，奇数个数的“|”号左边的字符显示在 类型列表框中、右边的字符决定所显示的文件类型。

如Filter属性值为下列字符串，
“所有文件|*.*|WORD文档|*.doc|位图文件|*.bmp”
则类型列表框中显示“所有文件、Word文档、位图文件”。 标志（Flags）：用于设置对话框的一些选项。如设置为1， 则以只读方式打开文件。

缺省扩展名（DefaultExt）：为字符串类型，用于设置缺省 的文件扩展名，当保存一个没有指定扩展名的文件时，自动指 定为该属性所指定的扩展名。
(1) 单击“工程”菜单的“部件”选项，或者用鼠标右键单击 工具箱，在弹出的菜单中选择“部件”，打开“部件”对话框。
(2)在“部件”对话框中，选中“Microsoft Common Dialog Control 6.0”。 (3) 单击“确定”按钮即可将通用对话框控件添加到工具箱中。 (4) 把通用对话框控件(CommonDialog1)拖放到窗体。
4
2. 打开通用对话框的Action 属性 Action 属性是只写属性，只能在程序中赋值，而后即刻出现 1个对话框。
⑴ 显示打开文件对话框
CommonDialog1.Action=1 ⑵ 显示保存文件对话框 CommonDialog1.Action=2 ⑶ 显示颜色对话框
⑷ 显示字体对话框
CommonDialog1.Action=4 ⑸ 显示打印机设置对话框 CommonDialog1.Action=5 ⑹ 显示Windows帮助对话框


cdlCFBoth或3（=1+2）：使用两种字体。
如设置为25色、效果等 选项。
⑹ 样式（Style）：用于设置字体风格。包括4个选项：粗体 （FontBold）、斜体（FontItalic）、下划线（FontUnderline） 和水平删除线（FontStrikethru）。
3
6.2.1
通用对话框的基本属性和方法
⒈设计时设置控件属性 ⑴ 用鼠标右键单击窗体上的CommonDialog控件图标，在弹出 的快捷菜单中选择“属性”选项，打开“属性页”对话框。在 “属性页”对话框中有5个选项卡，用于对不同类型的对话框 进行属性设置。 (2) 也可以在属性窗口中设置通用对话框的属性。