窗体上添加了CommonDinlog控件,打开颜色对话框,如何判断鼠标单击了"确定"按钮?

Question

如题.

Answer 1

Private Sub Command1_Click()
On Error GoTo Err_do
CommonDialog1.CancelError = True
CommonDialog1.ShowColorMsgBox "OK click"
Exit SubErr_do:
Err.Clear
End Sub
  
*****************************************************************************
欢迎使用CSDN论坛专用阅读器 : CSDN Reader(附全部源代码) http://feiyun0112.cnblogs.com/

Answer 2

Private Sub Command1_Click()
On Error Resume Next
CommonDialog1.CancelError = True
CommonDialog1.ShowColor
If Err.Number > 0 Then
Err.Clear
Exit Sub
Else
MsgBox "单击了确定"
End If
End Sub

Answer 3

Private Sub Command1_Click() 
On Error GoTo Err_do 
CommonDialog1.CancelError = True 
CommonDialog1.ShowColor MsgBox "OK click" 
Exit Sub Err_do: 
Err.Clear 
End Sub