acShowMessage
説明
AutoCADをオーナーウインドウとするメッセージボックスを表示します。
書式
Object.acShowMessage(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.acShowMessage("メッセージ1", vbCritical + vbOKOnly)
Ret=Acad.acShowMessage("メッセージ2", vbExclamation + vbYesNo + vbDefaultButton1)
Ret=Acad.acShowMessage("メッセージ3", vbExclamation + vbOKCancel + vbDefaultButton2)
Ret=Acad.acShowMessage("メッセージ4", vbInformation + vbAbortRetryIgnore + vbDefaultButton3)