| 投稿日 | ： 2002/12/14(Sat) 19:09 |
| 投稿者 | ： くりちゃん |
| Ｅメール | ： yrk00325@nifty.com |
| ＵＲＬ | ： http://homepage1.nifty.com/kurichan/ |
| タイトル | ： Re: showcolorのcancelボタン |
こんな感じでしょうか？
Private Sub Command1_Click()
On Error GoTo Err
CommonDialog1.CancelError = True
CommonDialog1.ShowColor
Err:
If Err.Number = cdlCancel Then
MsgBox "キャンセルボタンがクリックされました"
End If
End Sub