Gz:lsplistboxmulti
（Gz:listboxmultiから転送）
- 構文
- (gz:lspListBoxMulti main msg1 list)
- 機能
- 複数項目選択可能なリストボックスを表示する。
- 引数
-
- main … ダイアログのタイトル
- msg1 … ダイアログボックスに表示する文字列または文字列のリスト。
- list … リストボックスに表示するリスト
- 戻り値
- 新仕様 → リストボックスで選択された項目の list のリスト。キャンセルだったら nil
- 旧仕様 → リストボックスで選択された項目のインデックス値の文字列、キャンセルだったら nil
- サンプル
; 新仕様関数
(gz:lspListBoxMulti "複数選択リストボックス" '("メッセージ１") '("aaa" "AA" "あああ" "ぁぁぁ" "1234567890"))
(gz:lspListBoxMulti "複数選択リストボックス" nil '("aaa" "AA" "あああ" "ぁぁぁ" "1234567890"))
; "0 2 3" が選ばれた時の返り値 : ("aaa" "あああ" "ぁぁぁ")
; 旧仕様関数
(gz:lspListBoxMulti "複数選択リストボックス" '("メッセージ１") '("aaa" "AA" "あああ" "ぁぁぁ" "1234567890"))
(gz:lspListBoxMulti "複数選択リストボックス" nil '("aaa" "AA" "あああ" "ぁぁぁ" "1234567890"))
; 返り値サンプル : "0 2 3"
(defun gz_msgbox_test (/ result)
; gz_msgbox 関連関数のテスト
(setq msg1 '("メッセージ1" "メッセージ2" "メッセージ3")
lst1 '("aaa" "AA" "あああ" "ぁぁぁ" "1234567890"))
(setq result (gz:lspOkCancel "OK-Cancel メッセージボックス" msg1))
(alert (if (= T result) "OK" "キャンセル"))
(setq result (gz:lspYesNo "Yes-No メッセージボックス" msg1 ))
(alert (if (= T result) "Yes" "No"))
(setq result (gz:lspokonly "OK Only メッセージボックス" msg1 ))
(alert (if (= T result) "OK" "エラー"))
(setq result (gz:lspRetryCancel "Retry-Cancel メッセージボックス" msg1 ))
(alert (if (= T result) "リトライ" "キャンセル"))
(setq result (gz:lspGetPass "GetPass メッセージボックス" msg1 ))
(alert (strcat "パスワードは" result))
(setq result (gz:lspInputBox "インプットボックス" msg1 ))
(alert (if (= nil result) "キャンセル" result))
(setq result (gz:lspComboBox "コンボボックス" msg1 lst1))
(alert (if (= nil result) '("キャンセル") result))
(setq result (gz:lspListBox "リストボックス" msg1 lst1))
(alert (if (= nil result) '("キャンセル") result))
(setq result (gz:lspListBoxMulti "複数選択リストボックス" msg1 lst1))
(alert (if (= nil result) '("キャンセル") result))
(setq result (gz:lspListBoxMulti "複数選択リストボックス" nil lst1))
(princ result)
(setq result (gz:lspbrowsefolder "○○のフォルダを選択" nil))
(alert (if (= nil result) '("キャンセル") result))
(setq result (GZ:popup "ポップアップメッセージ" "メッセージ文字列。" (+ 2 48 4096)))
(alert (if (= nil result) '("キャンセル") result))
(princ)
)
関連事項