通用对话框控件

1、通用对话框工程工程/部件部件 选定部选定部件标签件标签选定选定Microsoft CommDialog Control 6.0 通用对话框添加到工具箱通用对话框添加到工具箱确定确定 通用对话框控件是一种ActiveX控件，可以用来产生如打开、保存、字体等通用对话框。如下图“打开”对话框“字体”对话框 通用对话框一、通用对话框的基本属性和方法一、通用对话框的基本属性和方法 通用对话框可以提供通用对话框可以提供6种形式的对话框，通过设置种形式的对话框，通过设置Action属性属性值或调用值或调用Show方法方法来建立不同类型的对话框。如下表：来建立不同类型的对话框。如下表：1 属性属性 Actio

2、n属性属性：数值型，决定打开何种类型的对话框（见上表）：数值型，决定打开何种类型的对话框（见上表） DialogTiltle属性属性：对通用话框标题。：对通用话框标题。CancelError属性：逻辑型值，表示用户在与对话框进行信息属性：逻辑型值，表示用户在与对话框进行信息交换时，按下交换时，按下“取消取消”按钮时是否产生出错信息。按钮时是否产生出错信息。 True：选择：选择“取消取消”按钮，出现错误警告；按钮，出现错误警告； Err置为置为32755 (cdlCancel) 。 False(缺省缺省)：选择：选择“取消取消”按钮，没有错误警告。按钮，没有错误警告。2 通用对话框的方法通用对

3、话框的方法 除了除了Acton属性，属性，VB还提供了一组方法用来打开不同类型还提供了一组方法用来打开不同类型对话框对话框 ShowOpen ShowSave ShowColor ShowFont ShowPrinter ShowHelp 通用对话框属性 1 FileName(文件名称）属性文件名称）属性：在程序中可用该属性值设置或返回用户所选定的文件名（包含路径） 2 FileTitle（文件标题）属性（文件标题）属性：在程序中可用该属性值设置或返回用户所选定的文件名（不包含路径） .1 “打开打开”/“另存为另存为”对话框对话框DialogTiltleFileName InitDirFil

4、terFilterIndexDefaultExt 3 Filter（过滤器）属性：（过滤器）属性：确定文件列表框中所显示文件的确定文件列表框中所显示文件的类型，该属性的值显示在类型，该属性的值显示在“文件类型文件类型”列表框中。如设置其值列表框中。如设置其值为：为： Cocuments(*.DOC)|*.DOC|Text Files(*.TXT)|*.txt|All Files|(*.*) 则在则在“文件类型文件类型”列表框显示下列三种文件类型以供用户列表框显示下列三种文件类型以供用户选择选择 Cocuments(*.DOC) 扩展名为扩展名为DOC的的Word文件文件 Text Files(

5、*.TXT) 扩展名为扩展名为TXT的文本的文本文件文件 All Files|(*.*) 所有所有文件文件 通用对话框 4 FilterIndex（过滤器索引）属性（过滤器索引）属性：为整型值，表示：为整型值，表示用户在文件类型列表框选定了第几组文件类型。用户在文件类型列表框选定了第几组文件类型。 5 InitDir（初始化路径）属性（初始化路径）属性：该属性用来指定打开：该属性用来指定打开对话框中的初始目录，若不设置，系统则默认为对话框中的初始目录，若不设置，系统则默认为“C:My Documents”。 6DefaultExt属性属性：字符型，用于确定保存文件的缺：字符型，用于确定保存文件

6、的缺省扩展名。省扩展名。 7CancelError属性属性：逻辑型值，表示用户在与对话：逻辑型值，表示用户在与对话框进行信息交换时，按下框进行信息交换时，按下“ “取消取消” ”按钮时是否产生出错信息。按钮时是否产生出错信息。 通用对话框例例710 设计一个简单图片查看器设计一个简单图片查看器.2 “颜色颜色”对话框对话框 颜色对话框是当颜色对话框是当Action值为值为3时的通用时的通用对话框，如右图。对话框，如右图。 重要属性重要属性 Color：用来返回或设置选定的颜色。用来返回或设置选定的颜色。 例例10.3 例例 中中“颜色颜色.”按钮的事件过按钮的事件过程程Private Sub

7、cmdColor_Click() CommonDialog1.Action = 3 打开颜对话框打开颜对话框 Text1.ForeColor = CommonDialog1.Color End Sub 通用对话框.3 “字体字体”对话框对话框 字体对话框是字体对话框是Action为为4时时的通用对话框，如下图所示，提的通用对话框，如下图所示，提供用户选择字体、字号及字体样式等。供用户选择字体、字号及字体样式等。字体对话框重要的属性有：字体对话框重要的属性有：Color, FontName, FontSize, FontBold FontItalic , FontStrikethru, Font

8、Underline, Max等等. FontName FontBold、FontItalicFontSizeFontStrikethruFontUnderline ColorMin、Max 通用对话框Flags属性：属性：设置所显示的字体类型，设置所显示的字体类型，数据类型为数据类型为Long。 注意注意 在显示在显示“字体字体”对话框前，必须先将对话框前，必须先将 Flags 属性属性设置为设置为 cdlCFScreenFonts，cdlCFPrinterFonts，或，或cdcdlCFBoth。否则，会发生字体不存在的错误。否则，会发生字体不存在的错误。 Flages属性应取下列值：属性应

9、取下列值： cdlCFScreenFonts&H1屏幕字体屏幕字体 cdlCFPrinterFonts &H2打印机字体打印机字体 cdlCFBoth&H3打印机字体和屏幕字体。打印机字体和屏幕字体。 cdlCFEffects &H100 显示删除线和下划线检查框以及颜色组合框显示删除线和下划线检查框以及颜色组合框 通用对话框例中例中“字体字体.”按钮的事件过程按钮的事件过程Private Sub cmdFont_Click( ) CommonDialog1.Flags = cdlCFBoth Or cdlCFEffects CommonDialog1.Acti

10、on = 4 .End Sub 通用对话框.4 “打印打印”对话框对话框 打印对话框是当打印对话框是当Action为为5时时的的通用对话框，是一个标准打印对话通用对话框，是一个标准打印对话窗口界面，如右图。窗口界面，如右图。属性属性FromPage：整型，起始页号整型，起始页号Topage：整型，终止页号整型，终止页号Copies：整型，打印份数整型，打印份数 如果打印驱动程序不支持多份如果打印驱动程序不支持多份 打印，该属性有可能始终返回打印，该属性有可能始终返回 1。 FromPageTopageCopies 注意：打印对话框本身不能处理打印工作，仅仅是一个供用户选注意：打印对话框本身不能

11、处理打印工作，仅仅是一个供用户选择打印参数的界面，所选参数存于各属性中，再通过编程来处理打印择打印参数的界面，所选参数存于各属性中，再通过编程来处理打印操作。操作。例例 中中“打印打印.”按钮的事件过程按钮的事件过程.5 “帮助帮助”对话框对话框 帮助对话框是当帮助对话框是当Action为为6时的对话框，是一个标准的对时的对话框，是一个标准的对话窗口用于制作应用程序的在线帮助。话窗口用于制作应用程序的在线帮助。 帮助文件需要用其它的工具制作，帮助文件需要用其它的工具制作， 如如Microsoft Windows Help Compiler。 属性属性1 HelpCommand（帮助命令）属性（

12、帮助命令）属性：用于返回或设置需要的：用于返回或设置需要的在线在线Help帮助类型。帮助类型。2 HelpFile（帮助文件）属性（帮助文件）属性：用于指定已制作好的帮助文件：用于指定已制作好的帮助文件的路径及文件名的路径及文件名3HelpKey（帮助关键字）属性（帮助关键字）属性：用于指定帮助信息的内容，：用于指定帮助信息的内容， 帮助窗口中显示由该帮助关键字指定的帮助信息。帮助窗口中显示由该帮助关键字指定的帮助信息。4 HelpContext（帮助上下文）属性：（帮助上下文）属性： 通用对话框 设计一个窗体，包含设计一个窗体，包含1个文本框（个文本框（Text1）和）和6个分别为个分别为 “打开打开”（cmdOpen）、）、“另存为另存为”（cmdSave）、）、“颜色颜色”（cmdColor）、）、“字体字体”（cmdFont）、）、“打印打印”（cmdPrinter）和）和“帮助帮助”（cmdHelp）命令按钮。本例中仅）命令按钮。本例中仅涉及前两种对