第6章 通用对话框

例如:
CommonDialog1. Flags=&H8&Or&H4&
上一页 下一页 返回
6.1 添加通用对话框

将所希望的常数值相加也能产生同样的结果，如 CommonDialog1. Flags = &Hc „相当于&H8和&H4
运行结果如图6 -2所示，效果是显示了对话框中的帮助按钮，并且将 对话框中的自定义按钮设置为无效。
上一页 下一页 返回

6.1 添加通用对话框

可以设置一个过滤器，如:“* . rtf(所有的rtf文件)| * . rtf;也可以设置几 个过滤器，如:“*.rtf|*.rtf|*.txt|*.txt”就有两个过滤器，每个过滤器都 是由两部分构成的，这两部分之间用“|”隔开，前面部分是说明性 文字，后面部分起到真正的过滤作用，例如第一个过滤器的两部分 分别是“*.rtf(所有:tf文件)”和“* . rtf”，其中“*.rlf(所有:tf文件)”是说 明性文字，而真正起到过滤作用的是“* . rtf” 。 如文件类型下拉列表框中列出以下几种文件供用户选择: (1)*.DOC。Word编辑的文件。 (2)* . TXT。扩展名为.TXT的文本文件。



MagBox(” „对话框标题!”)
Exit Sub End If


CommonDialog1.Action=1
End Sub
上一页 下一页 返回
6.1 添加通用对话框

6.1.2 "Open"(打开)和“Save As"(另存为)对话 框
通过使用通用对话框控件的ShowOpen和ShowSave方法(或Action值的 设定)可显示Open和“Save As”对话框。两个对话框均可用以指定驱 动器、目录、文件扩展名和文件名。除对话的标题不同外，两者外 观上基本相似。在运行时，当用户选择一个文件关闭对话框时， FileName属性即为选定的文件名。可以设置Filter属性，这样对话框 就只显示某种文件类型，如文本文件。该属性的值必须为文本字符 串，可以由一组或多组元素组成。每组分别表示不同的文件类型， 用“|”符号分隔。Filter属性的具体含义是:在对话框中返回或者设置 要显示文件的过滤器。
上一页 下一页 返回
6.1 添加通用对话框


6.1.3 "Color"(颜色)对话框
“颜色”对话框的主要功能是让用户选择所需要的颜色，或自行调 配特殊的色彩。它返回颜色值，该值记录在“Color"属性中。"Color” 对话框的另一个重要属性是Flags，表6-2列出了其设置值。 这些常数在对象浏览器的Microsoft CommonDialog控件对象库中列出， 也可以定义所选择的标志。使用“Or”运算符可以为一个对话框设置 多个标志。


" Open”对话框其实只是替用户找到文件名而已，它只提供给用户一 个打开文件的界面，返回一些参数，并不能打开文件。打开(或其他 处理)文件的操作还需通过编写程序完成。
上一页 下一页 返回
6.1 添加通用对话框

例6-1 用命令按钮的click事件显示“打开”对话框，在对话框内只允 许显示位图文件，初始目录为“c : \ windows” 。当选定一个位图文 件后，单击“打开”按钮，则在标签上显示选定的位图文件名;单击 “取消”按钮，则在标签上显示“单击”了“取消”按钮，放弃操 作。 代码如下: Private sub commond1 click() On error gotoL Commondialog1. initdir=”c:windows" Commondialog1. filter =”位图文件(. bmp |* . bmp) " Commondialog1. filtercancelerror=true



L:
‟错误处理
„单击取消按钮
If err. number=32755 then
Label1. caption =“取消，放弃操作!”

Exit sub
上一页 下一页 返回
6.1 添加通用对话框

Else Label1. caption=”其他错误!” End if End sub " Save As”对话框可以用来指定文件所要保存的驱动器、文件夹和文 件名以及文件扩展名，其中，FileNatne返回要保存的文件位置和名 称。" Save As”对话框和“Open”对话框除了标题不一样外，其他功 能基本相同。另外，Save As对话框有一个DefaultExt属性，该属性值 为1~3个字符确定的扩展名，表示所存文件的缺省扩展名，在用户没 有给定文件扩展名时，VB采用DefaultExt指定的缺省扩展名。


6.1.1 通用对话框的公共属性
通用对话框有两种打开方法。 (1)通过如表6-1所示设置通用对话框的Action属性。
上一页 下一页 返回
6.1 添加通用对话框

(2)通过如表6-1所示的属性分别打开对应的对话框。 这样，在程序中用语句“CommonDialog1. Action = 1”或 “CommonDialog1.ShowOpen”即可以打开“Open”通用对话框。注 意，当打开“Font"(字体)设置和“Help"(帮助)设置时，需先设置一些 必需的其他属性才可完成。 通用对话框除了以上重要属性外，还有“DialogTitle”和“CancelError” 两个常用属性。其中，" DialogTitle”是对话框的标题，为“空”时调 用通用对话框的缺省标题，可以由用户任意设定;" CancelError”表示 用户在与对话框进行信息交互时，单击" Cancel”按钮进行取消操作 的效果，True选项会出现错误警告，False(缺省)选项不出现错误标志。


例6-2 用“颜色”对话框最重要的属性，返回或没置用户选定的颜色。
当用户在调色板中选中某种颜色时，该颜色赋值给color属性。 程序代码如下:


Private Sub Command1 Click()
CommonDialog1.cancelerror=false
上一页 下一页 返回
6.1 添加通用对话框


上一页 下一页 返回
6.1 添加通用对话框

上一页 下一页 返回
6.1 添加通用对话框

在使用ShowFont方法前，必须先设置CommonDialog控件的Flags属性 为下列3个常数或值中的一个:cd1CFScreenFonts或&H1(屏幕字体)、 cd1CFPrinterFonts或&H2(打印机字体)以及cd1CFBoth或&H3(既可以是 屏幕字体又可以是打印机字体)。设置这个值，将给ShowFont提供显 示字体的字库标准，如果不设置Flags，将会显示一个信息框，提示 “没有安装的字体。”并产生一个运行错误。 " Font”对话框上的常用属性包括:字体名(fontname)、字体大小(fontsize)、粗体(fontbold)、斜体(fontItalic ) ,删除线(FontStrikethru)、下划 线(FontUnderline).

上一页 下一页 返回
6.1 添加通用对话框

(3)*.*。所有类型文件。 那么，Filler属性的值可设为“CommonDialog1. Filter=”Word文档 |*.DOC |文本文件| *.TXT |所有文件|*.*|””。 FilterIndex用来确定缺省的过滤器。Flags属性可用来改变对话框的元 素，进行许多设置。当诸如覆盖文件之类的动作发生时，还可用来 提示用户。 当" Action"属性设为1时，打开Open标准对话框，如图6-1所示。
上一页 下一页 返回

6.1 添加通用对话框

Commondialog1. showopen „显示于打开对话框(也可用 Commondialog1. action =1) Label1. caption = Commondialog1. filename „显示选择的文件名 End sub

上一页 下一页 返回
6.1 添加通用对话框

例6-3 用“字体”对话框设置文本框的字体，要求字体对话框内出现 删除线、下划线、颜色元素控制。 分析:在窗体上放置一个通用对话框、一个文本框和一个命令按钮， 在命令按钮的Click事件中编写如下的代码:


Private Sub Command1 Click()

上一页 下一页 返回
6.1 添加通用对话框

如以下程序行，可以使“CancelError"为“True”时显示“对话框标 题!”，" CancelError”为“False”时调用“Open"对话框: Private Sub Form Load() If CommonDialog1.CancelError=True Then

CommonDialog1.showcolor
„也可用commondialog. act=CommonDialog.Color End Sub


6.1.4 "Font"(字体)对话框
Font(字体)对话框提供了标准字体的标准对话框界面，让用户选择需 要的字体、字的大小和字的一些修饰等，如图6-3所示。
CommonDialog1. Flags =cdlcfllother or cdlcfeffects CommonDialog1.showfont
Text1 .fontname=CommonDialog1.fontname
上一页 下一页 返回
6.1 添加通用对话框

Text1 .Fontsize= CommonDialog1.fontsize text1 .fontbold= CommonDialog1.fontbold text1.fontitalie= CommonDialog1.fontitalie text1.FontStrikethru= CommonDialog1. FontStrikethru text1. FontUnderline= CommonDialog1. FontUnderline text1.forecolor= CommonDialog1. color End Sub
第6章 通用对话框
6.1 添加通用对话框 6.2 使用内部对话框设计对话框
6.1 添加通用对话框

通用对话框是标准控件，使用时，需要将控件添加到工具箱。将通 用对话框控件添加到工具箱的方法有以下两种。 (f)选择“工程”/“部件”命令，或用鼠标右键单击控件工具箱，再从 弹出菜单中选“部件”项。打开“部件”选项，在控件选项卡(页)中 选中“Microsoft Common Dialog Control 6. 0"，单击“确定”按钮， 即可将“通用对话框”控件添加到控件，在工具箱中出现它的图标。 (2)用鼠标右键单击工具箱，在弹出的快捷菜单中执行“部件”命令。 后续操作同上。


下一页 返回
6.1 添加通用对话框

完成后，就可以像使用标准控件一样使用通用对话框控件。用通用 对话框工具在窗体上可以创建6种标准对话框窗口，分别为 “Open(打开)”、“ Save As(另存为)”、“Color(颜色)”、“ Font(字体)”、 “ Print(打印)”及“Help(帮助)”窗口。设计时在工具箱中选择通用对话 框工具图标，双击或拖动到窗体上显示，图标的大小不变。程序执 行时，通用对话框图标在窗体上不显示。直到在程序中需要调用时， 用属性设置分别调出所需的对话框。
上一页 下一页 返回
6.1 添加通用对话框


6.1.5 Printer(打印)对话框
“打印”对话框允许用户设置打印输出的打印范围、打印质量和打 印份数等打印属性，并且会显示目前的打印机，如图6 -4所示。 用户可以通过设置表6-3所示的属性来控制Printer对话框。 例6-4 在窗体中添加一个命令按钮command1，用于调试“打印”对 话框，打印文本框中的信息。 程序代码如下: Private Sub Command1 Click()