如何判断对话框是否执行，用户是点击了Ok 还是 Cancel

Question

如何判断对话框是否执行，用户是点击了Ok 还是 Cancel

Answer 1

if msgbox("请选择",vbyesno+vbdefault2,"提示")=vbyes then
    '单击OK
else
    '单击CANCEL
end if

Answer 2

On Error GoTo Err
  CommonDialog1.CancelError = True
  CommonDialog1.ShowOpen
  Exit Sub
Err:
  If Err.Number = cdlCancel Then
    MsgBox "用户点取消"
  Else
    MsgBox "出现其它错误"
  End If

Answer 3

當設置了相應的按鈕后,下列值為點擊相應按鈕的返回值:常数       值   描述 
vbOK       1    OK 
vbCancel   2    Cancel 
vbAbort    3    Abort 
vbRetry    4    Retry 
vbIgnore   5    Ignore 
vbYes      6    Yes 
vbNo       7    No