Vle-alert

提供:GizmoLabs - だいたい CAD LISP なサイト
2018年12月27日 (木) 16:50時点におけるGizmon (トーク | 投稿記録)による版 (→‎引数:flag の内容)
構文
(vle-alert title msg flags)


機能
Windows の MessageBox を使ったメッセージボックスを表示する。


引数
  • title :メッセージボックスのタイトル(キャプション文字列)
  • msg : 表示されるメッセージ。ワードラップされます
  • flags : 振る舞いを指定する整数の組み合わせ(加算)


戻り値
終了するために使用されたボタンの番号
* 1 OK ボタン
* 2 キャンセルボタン
* 3 中止ボタン
* 4 再試行ボタン
* 5 無視ボタン
* 6 Yes ボタン
* 7 No ボタン
* 10 [再試行]ボタン
* 11 続行ボタン

引数:flag の内容

ボタンのフラグ

0   MB_OK
1   MB_OKCANCEL
2   MB_ABORTRETRYIGNORE
3   MB_YESNOCANCEL
4   MB_YESNO
5   MB_RETRYCANCEL
6   MB_CANCELTRYCONTINUE

アイコンのフラグ

32   MB_ICONQUESTION
48   MB_ICONEXCLAMATION
64   MB_ICONASTERISK /MB_ICONINFORMATION

デフォルトボタンのフラグ

0       MB_DEFBUTTON1
256   MB_DEFBUTTON2
512   MB_DEFBUTTON3
768   MB_DEFBUTTON4


サンプル

<syntaxhighlight lang="lisp" line> (vle-alert "My CAD App" "Dear Customer ...." (+ 4 32 4096))

</syntaxhighlight>



関連事項