# Re: Commondialog.showprinter 的问题 !!

Posted by Joyce on August 16, 1999 at 12:10:21:

In Reply to: Commondialog.showprinter 的问题 !! posted by kk on August 16, 1999 at 09:06:34:

: 请教各位:
: 通用对话方块出现后,如何侦测使用者是按确定或按取消.

: 谢谢 !!

两个办法：

1.把 CommonDialog.CancelError=True ，那按 Cancel 键就会引发一个错误事件，你再依此错误事件写结束程式如：
Sub Command1_Click
On Error GoTo CancelError
CommonDialog1.ShowOpen
'..................执行它项叙述
Exit Sub

CancelError:

MsgBox Err.Description, vbOKOnly, "错误代码：" & Err.Number
End Sub

2.在 CommonDialog.ShowOpen 之前，先 CommonDialog.FileName=""
在 CommonDialog.ShowOpen 之后，再用 If 判断是否 CommonDialog.FileName=""，来决定是否终止程式，如：
Sub Command1_Click
CommonDialog.FileName=""
CommonDialog1.ShowOpen
If CommonDialog.FileName="" Then
Exit Sub
Else
'..................执行它项叙述
End If
End Sub

Follow Ups: