CommonDialog控件的取消问题。（急。。期待中。。）

[battlet]

我在VB中用了一个CommonDialog控件（.showSave)，
但不知道如何确定用户点选的是"保存"还是"取消"?

msdn中有一段如下：（但试了一下没用）
CommonDialog1.ShowOpen
If Err <> cdlCancel Then
If FileChannel Is Nothing Then
MsgBox "No File Exchange channel"
Else
Set FileXfer = FileChannel.SendFile(Nothing, Nothing, _
CommonDialog1.FileName, CNFF_SFOPT_NONE)
If FileXfer Is Nothing Then
ErrorMsg "Failed to send file"
End If
End If
End If

急。期待答案中。。。

[battlet]

急啊~~
期待。。。

[battlet]

我试了一下你们的方法，不知道为什么还没跳出“打开文件”对话框就
goto errline:

xxlroad(土八路) 、hsn1982(我爱猫猫) 的方法好像都是在执行到
On Error GoTo ErrLine的后面一句（也就是第一句）就跳到了
ErrLine:

各位能分析一下为什么吗？

[xxlroad]

1、你的form1上面有没有CommonDialog控件
2、这个控件的名字 Name 是不是叫CommonDialog1

[yoki]

Private Sub Command1_Click()
On Error Resume Next
CommonDialog1.CancelError = True
CommonDialog1.ShowSave
If Err.Number = 32755 Then MsgBox "你选择了取消！"
End Sub

[battlet]

急啊~~
为什么？

[battlet]

咋还没人啊~

[battlet]

怎么还没人来啊？~
救命啊~~

[thirdapple]

ComonDialog1.CancelError = True
设置错误陷阱，如果点击“取消”就触发错误陷阱。

[niucloud-admin]

VB中通用对话框取消只能使用捕获错误的方法
on error goto ERR:
作者主页http://zaixian.yahtour.com

[myhfit]

也可以用Filename是否为""来判断是否Cancel

[xxlroad]

Private Sub Command1_Click()
On Error GoTo ErrLine
CommonDialog1.DialogTitle = "打开文件"
CommonDialog1.Filter = "All File(*.*)|*.*|文本文档|*.txt|实验记录文档|*.sy"
CommonDialog1.FilterIndex = 2
CommonDialog1.InitDir = "C:\"
CommonDialog1.Flags = 1 '只读 最后一个文件
CommonDialog1.Action = 1
Open CommonDialog1.filename For Input As #1
' 如果这里出现错误就麻烦了：）
Close #1
Exit Sub
ErrLine:
MsgBox "你点了取消按牛"
End Sub

[xxlroad]

hsn1982(我爱猫猫) thirdapple(陨落雕) 二位

的方法不错