vb通用对话框的使用

Private Sub Command1_Click()
On Error GoTo exitone
Dim pstr As String
Dim fm As String 'fm变量用来获取用户输入的文件名
CommonDialog2.CancelError = True
CommonDialog2.Filter = "MDB文件(*.mdb)|*.mdb|AllFiles(*.*)|*.*|" '创建mdb格式的文件
CommonDialog2.FilterIndex = 1 '设置文件初始过滤方式为*.mdb
CommonDialog2.InitDir = "D:\"
CommonDialog2.Flags = 6 '隐藏只读对话框
CommonDialog2.ShowSave
'action控件一共有6个值：1为打开文件showopen，2为保存文件showsave,3为选择颜色showcolor,4为选择字体showfont，5为打印showprint,6不常用
If CommonDialog2.FileName = "" Then
MsgBox "你必须输入一个文件名，请重新保存一次！"
Exit Sub
Else
fm = CommonDialog2.FileName
End If
Exit Sub
exitone:

End Sub这样 取消的话就直接跳出了 不弹框 而你那个文件名为空则弹框的不能实现 因为这个是系统自带控件 为空的时候 对话框自动判断 不做任何处理 所以代码招待不到的