common dialog 控件的问题，保存或打开时点击取消后仍然会保存或打开？？

Question

用的是microsoft common dialog6.0控件，按书本的介绍初始化数据，运行点击，出现对话框，点击取消，若做的是"保存"，仍然会保存一个空文件名的文件，若做的是"打开",仍然会匹配文件类型，然后用空文件名匹配文件夹中的文件，若刚好有满足要求的文件就会打开，若没有就会在文件夹创建一个空的，然后打开，不知道怎么解决？？
是不是要对窗口返回值分别处理，请问怎么获得返回值，或者还有什么其他办法？请前辈们，高手们给点指点！小弟在此谢过！

Answer 1

MSDNCommonDialog 控件（“打开”、“另存为”对话框）示例
下例显示“打开”对话框然后在信息框中显示所选的文件名：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 SubErrHandler：
' 用户按了“取消”按钮
Exit Sub
End Sub

Answer 2

你用一變量來得到他的結果..
str=dialgbox.showsave
if str<>"" then...........

Answer 3

如果你的dlg.FileName=""就不用退出..

Answer 4

Private Function ShowOpen() as Boolean
   On Error Goto ErrHandle
   CommandDialog.CancelError=True
   CommandDialog.ShowOpen
   ShowOpen=True
   Exit Function
ErrHandle:
   ShowOpen=False
End Function==================
'调用
if not ShowOpen then Exit Function/Sub
MsgBox CommandDialog.FileName