vb通用对话框

CommonDialog 控件提供一组标准的操作对话框，进行诸如打开和保存文件，设置打印选项，以及选择颜色和字体等操作。

通过运行Windows 帮助引擎控件还能显示帮助。

CommonDialog 控件在Visual Basic 和Microsoft Windows 动态连接库Commdlg.dll
例程之间提供了接口。

为了用该控件创建对话框，必须要求Commdlg.dll 在Microsoft Windows \System 目录下。

为了在应用程序中使用CommonDialog 控件，应将其添加到窗体上并设置属性。

控件显示的对话由控件的方法决定。

运行时，调用相应方法后将显示对话框或执行帮助引擎；设计时在窗体上将CommonDialog 控件显示成一个图标。

此图标的大小不能改变。

CommonDialog 控件可以显示如下常用对话框：
“打开”
“另存为”
“颜色”
“字体”
“打印”
注意无法指定对话框显示在什么地方。

要使用CommonDialog 控件
若未添加CommonDialog 控件，则应从“工程”菜单中选定“部件”，将控件添加到工具箱中。

在标记对话的“控件”中找到并选定控件，然后单击“确定”按钮。

单击工具箱中的“CommonDialog”控件并在窗体上绘制该控件。

在窗体上绘制CommonDialog 控件时，控件将自动调整大小。

象Timer 控件一样，CommonDialog 控件在运行时不可见。

运行时，请适当使用下表所列方法显示需要的对话。

方法显示的对话
ShowOpen 打开
ShowSave 另存为
ShowColor 颜色
ShowFont 字体
ShowPrinter 打印
ShowHelp 调用Windo ws“帮助”
示例代码：
下例显示“打开”对话框然后在信息框中显示所选的文件名：
Private Sub Command1_Click()
' 设置“CancelError”为True
CommonDialog1.CancelError = True
On Error GoTo ErrHandler
' 设置标志
CommonDialog1.Flags = cdlOFNHideReadOnly
' 设置过滤器
CommonDialog1.Filter = "All Files (*.*)|*.*|Text Files" & _
"(*.txt)|*.txt|Batch Files (*.bat)|*.bat"
' 指定缺省的过滤器
CommonDialog1.FilterIndex = 2
' 显示“打开”对话框
CommonDialog1.ShowOpen
' 显示选定文件的名字
MsgBox CommonDialog1.filename
Exit Sub
ErrHandler：
' 用户按了“取消”按钮
Exit Sub
End Sub
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－下例显示“打印”对话框。

Private Sub Command1_Click()
Dim BeginPage, EndPage, NumCopies, i
' 设置“取消”为True
CommonDialog1.CancelError = True
On Error GoTo ErrHandler
' 显示“打印”对话框
CommonDialog1.ShowPrinter
' 从该对话框取得选定的值
BeginPage = CommonDialog1.FromPage
EndPage = CommonDialog1.ToPage
NumCopies = CommonDialog1.Copies
For i = 1 To NumCopies
' 此处放置将数据发送到打印机的代码
Next i
Exit Sub
ErrHandler：
' 用户按了“取消”按钮
Exit Sub
End Sub
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－下面的示例显示“颜色”对话框并设置窗体的BackColor 为选定的颜色：
Private Sub Command1_Click()
' 设置“取消”为True
CommonDialog1.CancelError = True
On Error GoTo ErrHandler
'设置Flags 属性
CommonDialog1.Flags = cdlCCRGBInit
' 显示“颜色”对话框
CommonDialog1.ShowColor
' 设置窗体的背景颜色为选定的颜色
Form1.BackColor = CommonDialog1.Color
Exit Sub
ErrHandler：
' 用户按了“取消”按钮
End Sub
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－下面的示例显示“字体”对话框，将文本框中的字体属性设置为所选定的：
Private Sub Command1_Click()
' 设置“取消”为True
CommonDialog1.CancelError = True
On Error GoTo ErrHandler
' 设置Flags 属性
CommonDialog1.Flags = cdlCFEffects Or cdlCFBoth
' 显示“字体”对话框
CommonDialog1.ShowFont
= CommonDialog1.FontName
Text1.Font.Size = CommonDialog1.FontSize
Text1.Font.Bold = CommonDialog1.FontBold
Text1.Font.Italic = CommonDialog1.FontItalic
Text1.Font.Underline = CommonDialog1.FontUnderline
Text1.FontStrikethru = CommonDialog1.FontStrikethru
Text1.ForeColor = CommonDialog1.Color
Exit Sub
ErrHandler：
' 用户按了“取消”按钮
Exit Sub
End Sub。