vb6对话框和菜单解析

7
例:Action为3改变Dialog控件Color属性 Private Sub Command1_Click() CommonDialog1.Action = 3
Text1.BackColor = CommonDialog1.Color
End Sub Private Sub Command2_Click() CommonDialog1.ShowColor '等价于CommonDialog1.Action = 3
第 6章
6.1 用户对话框
对话框和菜单
用户对话框是用户根据应用程序设计的需要，自行定义的 对话框，通常由标签、文本框与命令按钮等控件组合而成。 例 6-1 用户对话框示例。
1
2
6.2
通用对话框控件（CommonDialog1）
它属于VB的ActiveX控件，在使用前需要将它添加到工具 箱中。将通用对话框图标添加到工具箱的方法如下：
6
4. 执行通用对话框所改变的控件属性及其应用 例: Action为1或2，改变Dialog控件Filename属性 Private Sub Command1_Click() '运行时通过对话选择在图片框所装入的图片文件。 CommonDialog1.Action = 1 Picture1.Picture= LoadPicture(CommonDialog1.Filename) End Sub
3
6.2.1
通用对话框的基本属性和方法
⒈设计时设置控件属性 ⑴ 用鼠标右键单击窗体上的CommonDialog控件图标，在弹出 的快捷菜单中选择“属性”选项，打开“属性页”对话框。在 “属性页”对话框中有5个选项卡，用于对不同类型的对话框 进行属性设置。 (2) 也可以在属性窗口中设置通用对话框的属性。

10
文件最大长度（MaxFileSize）：用于指定文件名的最大字节
数。
过滤器索引（FilterIndex）：设置过滤器的默认索引值。如下
列语句使文件类型列表中首行显示为“WORD文档”，文件显 示窗口中显示所有指定文件夹下的Word文档。 CommonDialog1.Filter = "所有文件|*.*|WORD文档|*.doc|位图 文件|*.bmp"
CommonDialog1.Action=3
CommonDialog1.Action=6
5
3. 打开通用对话框的“方法” ⑴ 显示打开文件对话框 CommonDialog1.ShowOpen ⑵ 显示保存文件对话框 CommonDialog1.ShowSave ⑶ 显示颜色对话框 CommonDialog1.ShowColor ⑷ 显示字体对话框 CommonDialog1.ShowFont ⑸ 显示打印机设置对话框 CommonDialog1.ShowPrinter ⑹ 显示Windows帮助对话框 CommonDialog1.ShowHelp

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

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

过滤器（Filter）：字符串类型，用于设置显示文件的类型。 字符串中有若干个“|”号，奇数个数的“|”号左边的字符显示在 类型列表框中、右边的字符决定所显示的文件类型。
4
2. 打开通用对话框的Action 属性 Action 属性是只写属性，只能在程序中赋值，而后即刻出现 1个对话框。
⑴ 显示打开文件对话框
CommonDialog1.Action=1 ⑵ 显示保存文件对话框 CommonDialog1.Action=2 ⑶ 显示颜色对话框
⑷ 显示字体对话框
CommonDialog1.Action=4 ⑸ 显示打印机设置对话框 CommonDialog1.Action=5 ⑹ 显示Windows帮助对话框
Text1.ForeColor = CommonDialog1.Color
End Sub
8
6.2.2 “打开文件”对话框
⒈ 设计时建立“打开文件”对话框 设计时建立“打开”文件对话框的步骤如下：
⑴ 在窗体上添加通用对话框控件。
⑵ 打开“属性页”对话框。 ⑶ 选择“打开/另存为”选项卡，设置属性。 其中“属性页”中有关r属性值为下列字符串，
“所有文件|*.*|WORD文档|*.doc|位图文件|*.bmp”
则类型列表框中显示“所有文件、Word文档、位图文件”。 标志（Flags）：用于设置对话框的一些选项。如设置为1， 则以只读方式打开文件。

缺省扩展名（DefaultExt）：为字符串类型，用于设置缺省 的文件扩展名，当保存一个没有指定扩展名的文件时，自动指 定为该属性所指定的扩展名。
⒉ 运行时显示“另存为”对话框
使用通用对话框控件的ShowSave方法，或将Action属性赋值为 2，可以在运行时显示“另存为”对话框。
12
6.2.4 “颜色”对话框
“颜色”对话框用来提供调色板并从中选择颜色，或创建自定 义颜色。
CommonDialog1.FilterIndex = 2
⒉ 运行时显示“打开文件”对话框 通过Show方法或对Action属性赋值1，显示“打开文件”对话框。 例6-2 “打开文件”对话框示例。
11
6.2.3 “另存为”对话框
“另存为”对话框可以用来指定所要保存文件的驱动器、文件 夹、文件名和扩展名。 ⒈ 设计时建立“另存为”对话框 设计时建立“另存为”对话框与建立“打开文件”对话框的方 法相同：打开通用对话框后的属性页如图所示。
(1) 单击“工程”菜单的“部件”选项，或者用鼠标右键单击 工具箱，在弹出的菜单中选择“部件”，打开“部件”对话框。
(2)在“部件”对话框中，选中“Microsoft Common Dialog Control 6.0”。 (3) 单击“确定”按钮即可将通用对话框控件添加到工具箱中。 (4) 把通用对话框控件(CommonDialog1)拖放到窗体。