dlShowMessage
説明
ダイアログをオーナーウインドウとするメッセージボックスを表示します。
※ダイアログは常に最前面ウインドウとして表示されます。通常のMsgBox関数等を使うとダイアログの背面に隠れてしまいますので、必ずdlShowMessageメソッドをお使い下さい。
書式
Object.dlShowMessage(Message,[Buttons=vbOKOnly],[WindowTitle="AcadRemocon"]) As Long
引数 | 説明 |
---|---|
Message | 表示させたいメッセージを指定します。 |
Buttons | 省略可能です。ボタンやアイコンのスタイルをを指定します。VBおよびVBAのVbMsgBoxStyle定数が使用出来ます。 |
WindowTitle | 省略可能です。メッセージボックスのタイトルバーに表示される文字列を指定します。 |
戻り値
戻り値 | 説明 |
---|---|
vbOK(1) | [OK]が押されました。 |
vbCancel(2) | [キャンセル]が押されました。 |
vbAbort(3) | [中止]が押されました。 |
vbRetry(4) | [再試行]が押されました。 |
vbIgnore(5) | [無視]が押されました。 |
vbYes(6) | [はい]が押されました。 |
vbNo(7) | [いいえ]が押されました。 |
使用例
Set
Acad=CreateObject("AcadRemocon.Body")
Ret=Acad.dlShowMessage("メッセージ1", vbCritical + vbOKOnly)
Ret=Acad.dlShowMessage("メッセージ2", vbExclamation + vbYesNo + vbDefaultButton1)
Ret=Acad.dlShowMessage("メッセージ3", vbExclamation + vbOKCancel + vbDefaultButton2)
Ret=Acad.dlShowMessage("メッセージ4", vbInformation + vbAbortRetryIgnore + vbDefaultButton3)