CommonDialogでの、キャンセル時の値

お世話になります。
VB6のCommonDialogでフォントを指定していますが、キャンセルボタンを押されたことを知るにはどうすればよいのでしょうか？
よろしくお願いします。

No.1 ベストアンサー 回答者： Hayashi_Trek 回答日時： 2006/10/12 13:04

ヘルプにも書いてありますが、

CommonDialogからキャンセルで抜けた場合は
エラーイベントが発生します。
だから On Error 命令を使います。
以下、ヘルプから引用したサンプル。
Private Sub Command1_Click()
' CancelError プロパティを真 (True) に設定します。
CommonDialog1.CancelError = True
On Error GoTo ErrHandler
' Flags プロパティを設定します。
CommonDialog1.Flags = cdlCFEffects Or cdlCFBoth
' [フォントの指定] ダイアログ ボックスを表示します。
CommonDialog1.ShowFont
Text1.Font.Name = CommonDialog1.FontName
Text1.Font.Size = CommonDialog1.FontSize
Text1.Font.Bold = CommonDialog1.FontBold
Text1.Font.Italic = CommonDialog1.FontItalic
Text1.Font.Underline = CommonDialog1.FontUnderline
Text1.FontStrikethru = CommonDialog1.FontStrikethru
Text1.ForeColor = CommonDialog1.Color
Exit Sub
ErrHandler:
' ユーザーが [キャンセル] をクリックしました。
Exit Sub
End Sub

この回答へのお礼

ご回答ありがとうございます。
最近は、すぐgooに頼るクセがついてしまい、ヘルプを調べるのを怠っていました。
お世話になりました。

お礼日時：2006/10/12 16:00