通用对话框控件

Text Files(*.TXT)
All Files|(*.*)
扩展名为TXT的文本文件
所有文件
通用对话框
4 FilterIndex（过滤器索引）属性：为整型值，表示 用户在文件类型列表框选定了第几组文件类型。
5 InitDir（初始化路径）属性：该属性用来指定打开
对话框中的初始目录，若不设置，系统则默认为“C:\My Documents\”。 6 ． DefaultExt 属性：字符型，用于确定保存文件的缺 省扩展名。
通用对话框的类型 打开 (Open) 另存为 (Save As) 颜色 (Color) 字体 (Font) 打印机 (Printer) 帮助 (Help) Action 1 2 3 4 5 6 方法 ShowOpen ShowSave ShowColor ShowFont ShowPrinter ShowHelp
通用对话框
3 Filter（过滤器）属性：确定文件列表框中所显示文件的 类型，该属性的值显示在“文件类型”列表框中。如设置其值 为：
Cocuments(*.DOC)|*.DOC|Text Files(*.TXT)|*.txt|All Files|(*.*)
则在“文件类型”列表框显示下列三种文件类型以供用户 选择 Cocuments(*.DOC) 扩展名为DOC的Word文件
FontName FontBold、FontItalic FontSize
Min、Max FontStrikethru FontUnderline Color
通用对话框
Flags属性：设置所显示的字体类型，数据类型为Long。 注意 在显示“字体”对话框前，必须先将 Flags 属性
设置为 cdlCFScreenFonts，cdlCFPrinterFonts，或 cdlCFBoth。否则，会发生字体不存在的错误。
通用对话框
1 属性 Action属性：数值型，决定打开何种类型的对话框（见上表） DialogTiltle属性：对通用话框标题。 CancelError属性：逻辑型值，表示用户在与对话框进行信息 交换时，按下“取消”按钮时是否产生出错信息。 True：选择“取消”按钮，出现错误警告； Err置为32755 (cdlCancel) 。 False(缺省)：选择“取消”按钮，没有错误警告。 2 通用对话框的方法 除了Acton属性，VB还提供了一组方法用来打开不同类型 对话框 ShowOpen ShowSave ShowColor ShowFont ShowPrinter ShowHelp
例 设计一个窗体，包含 1 个文本框（ Text1 ）和 6 个分别为 “打开”（cmdOpen）、“另存为”（cmdSave）、“颜色” （ cmdColor ） 、 “ 字 体 ” （ cmdFont ） 、 “ 打 印 ” （cmdPrinter）和“帮助”（cmdHelp）命令按钮。本例中仅 涉及前两种对话框的使用，当用户要求单击“打开”就弹出打 开对话框，当用户选择一文本文件，便可将该文件内容读入到 文本框；当单击“另存为”就打开另存为对话框。用户输入文 件名后，便可以新的文件名保存文本框的内容。
…………………………... End Sub
.4 “打印”对话框 打印对话框是当Action为5时的 通用对话框，是一个标准打印对话 窗口界面，如右图。 wenku.baidu.com性 FromPage：整型，起始页号 Topage：整型，终止页号 Copies：整型，打印份数 如果打印驱动程序不支持多份 打印，该属性有可能始终返回 1。
通用对话框
.3 “字体”对话框
字体对话框是Action为4时的通用对话框，如下图所示，提 供用户选择字体、字号及字体样式等。 字体对话框重要的属性有：Color, FontName, FontSize, FontBold FontItalic , FontStrikethru, FontUnderline, Max等.
FromPage
Topage
Copies
注意：打印对话框本身不能处理打印工作，仅仅是一个供用户选 择打印参数的界面，所选参数存于各属性中，再通过编程来处理打 印操作。
例 中“打印...”按钮的事件过程
通用对话框
.5 “帮助”对话框 帮助对话框是当Action为6时的对话框，是一个标准的对 话窗口用于制作应用程序的在线帮助。 帮助文件需要用其它的工具制作， 如Microsoft Windows Help Compiler。 属性 1 HelpCommand（帮助命令）属性：用于返回或设置需要的 在线Help帮助类型。 2 HelpFile（帮助文件）属性：用于指定已制作好的帮助文件 的路径及文件名 3 HelpKey（帮助关键字）属性：用于指定帮助信息的内容， 帮助窗口中显示由该帮助关键字指定的帮助信息。 4 HelpContext（帮助上下文）属性：
通用对话框
通用对话框控件是一种ActiveX控件，可以用来产生 如打开、保存、字体等通用对话框。如下图
“打开”对话框
“字体”对话框
选定Microsoft CommDialog Control 6.0 确定
通用对话框添加到工具箱
工程/部件 选定部 件标签
通用对话框
一、通用对话框的基本属性和方法
通用对话框可以提供6种形式的对话框，通过设置Action 属性值或调用Show方法来建立不同类型的对话框。如下表：
7 ． CancelError 属性：逻辑型值，表示用户在与对话
框进行信息交换时，按下“取消”按钮时是否产生出错信息。
例7－10 设计一个简单图片查看器
通用对话框
.2 “颜色”对话框
颜色对话框是当Action值为3时的通用
对话框，如右图。 重要属性 Color：用来返回或设置选定的颜色。 例10.3 例 中“颜色...”按钮的事件过 程 Private Sub cmdColor_Click() CommonDialog1.Action = 3 „打开颜对话框 Text1.ForeColor = CommonDialog1.Color End Sub
Flages属性应取下列值：
cdlCFScreenFonts &H1 屏幕字体 cdlCFPrinterFonts &H2 打印机字体 cdlCFBoth &H3 打印机字体和屏幕字体。 cdlCFEffects &H100 显示删除线和下划线检查框以及颜色组合框
通用对话框
例中“字体...”按钮的事件过程 Private Sub cmdFont_Click( ) CommonDialog1.Flags = cdlCFBoth Or cdlCFEffects CommonDialog1.Action = 4
.1 “打开”/“另存为”对话框
DialogTiltle FileName InitDir Filter FilterIndex DefaultExt
属性 1 FileName(文件名称）属性：在程序中可用该属性值设 置或返回用户所选定的文件名（包含路径） 2 FileTitle（文件标题）属性：在程序中可用该属性值设 置或返回用户所选定的文件名（不包含路径）