VB基础教程：第八章第八节通用对话框控件

8.8常规对话框控件

Windows应用程序中的打开对话框和另存为对话框在每个应用程序中看起来都一样，通用对话框控件可以提供这些对话框的标准功能。

1.打开对话框和另存为对话框

用ShowOpen方法打开“打开”对话框，用ShowSave方法打开“另存为”对话框。

private Sub mnu open _ Click()
On Error GoTo Error handler
common dialog 1。CancelError = True
common dialog 1 . filter = " text files(*。txt) | *。txt | batchfiles。bat) | *。bat | allfiles (*。*) | *.*"
commondialog1.show open '显示打开对话框
调用OpenFile(CommonDialog1。FileName)
错误处理程序:
Exit Sub
End Sub

第三行确定出现在“文件格式类型”列中的文件类型。第五行需要自己的文件打开过程，这个过程需要的参数是通用对话框返回的文件名。如果常规对话框的CancelError属性设置为True，当用户单击取消按钮时，将生成一个错误消息程序，用它可以检测到用户的放弃操作。

2.颜色对话框

下面的过程可以使用用户选择的颜色作为窗体的背景色。

private Sub mnu color _ Click()
On Error GoTo cancel button
common dialog 1。CancelError = True
common dialog 1。ShowColor
Form1。BackColor = CommonDialog1。彩色
取消按钮:
退出订阅
结束订阅

3.字体对话框

下面的过程可以使用字体对话框来改变文本框的字体:

private Sub mnu fonts _ Click()
On Error GoTo cancel button
common dialog 1。CancelError = True
common dialog 1。“Flags = cdlCFBoth”Flags属性必须设置为cdlCFBoth
CommonDialog1。“显示字体”显示字体通用对话框。[/ br/] Text1。FontName = CommonDialog1。FontName
Text1。FontSize = CommonDialog1。FontSize
Text1。FontBold = CommonDialog1。FontBold
Text1。FontItalic = CommonDialog1。FontItalic
Text1。FontUnderline = CommonDialog1。FontUnderline
Text1。FontStrikethru = CommonDialog1。FontStrikethru
Text1。ForeColor = CommonDialog1。彩色
取消按钮:
退出订阅
结束订阅

“常规”对话框的Flags属性出现在代码的第三行，它决定了“常规”对话框的一些选项，但即使没有指定标志，默认情况下也会执行代码。