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

文章作者 100test 发表时间 2007:03:10 18:27:30
来源 100Test.Com百考试题网

8．８ 通用对话框控件

　Windows应用程序里的Open对话框，Save As对话框在各个应用程序里看起来都是一样的，通用对话框控件就可以提供这些对话框的标准功能。

1．Open对话框及Save As对话框

　　打开Open对话框使用ShowOpen方法，打开Save As对话框使用ShowSave方法。

　　Private Sub mnuOpen_Click ()
　　　　　 On Error GoTo ErrorHandler
　　　　　 CommonDialog1.CancelError = True
　　　　　 CommonDialog1.Filter = "Text Files (*.txt)|*.txt|Batch Files (*.bat)|*.bat|All Files (*.*)|*.*"
　　　　　 CommonDialog1.ShowOpen 显示打开对话框
　　　　　 Call OpenFile(CommonDialog1.FileName)
　　　　　 ErrorHandler:
　　Exit Sub
　　 End Sub

其中第三行决定了在文件格式类型栏里出现的文件类型。第五行需要一个自己的打开文件的过程，这个过程需要的参数就是通用对话框返回的文件名。通用对话框的CancelError属性设为True的话，用户单击Cancel按钮将产生一个错误信息程序，凭借这个信息程序可以检测到用户的放弃操作。

2．Color对话框

下面的过程可用用户选择的颜色作为窗体的底色。

　　Private Sub mnuColor_Click ()
　　　　　　 On Error GoTo CancelButton
　　　　　　　CommonDialog1.CancelError = True
　　　　　　　CommonDialog1.ShowColor
　　　　　　 Form1.BackColor = CommonDialog1.Color
　　　　　　 CancelButton:
　　　　 Exit Sub
　 End Sub

3．Fonts对话框

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

　　Private Sub mnuFonts_Click ()
　　　　　 On Error GoTo CancelButton
　　　　　 CommonDialog1.CancelError = True
　　　　　 CommonDialog1.Flags = cdlCFBoth Flags property must be set to cdlCFBoth
　　　　　 CommonDialog1.ShowFont Display Font common dialog box.
　　　　　　　 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.Color
　　　　　　　 CancelButton:
　　　　　 Exit Sub
　　 End Sub

　代码的第三行出现了通用对话框的Flags属性决定了通用对话框的一些可选项，不过即使不赋值给Flags，代码也一样会按缺省的情况去执行的。