UserFormメソッド/コントロールの配置
Short DefineDropdownList(Variant title, Variant value, Variant list)
ドロップダウンリストボックスを作成します。
指定方法はComboBoxとほぼ同じですが、エディットボックスは編集不可能であり、 valueが選択番号となります。
引数
- title
- タイトル欄は省略可能で、指定した場合は左側にタイトルが作成されます。
- value
- リストの0より始まる選択番号を数値で指定します。
未選択の場合は-1を指定します。
- list
- ドロップダウンによって選択できるリストはlistに区切り文字「;」によって指定します。
戻り値
コントロール番号が返されます。
イベント
モードレスの場合、ドロップダウンリストの選択操作によりコントロール番号のイベントが発生します。
備考
未選択を表すValue値は-1となります。
サンプル
Option Explicit
Dim obj: Set obj = CreateObject("SeraphyScriptDialog")
Dim frm: Set frm = obj.CreateForm()
Dim cbo1: cbo1 = frm.DefineDropdownList(,1,"data1;data2;data3")
Dim cbo2: cbo2 = frm.DefineDropdownList("label3",,"data1a;data2a;data3a")
Dim btn1: btn1 = frm.DefineButton("OK")
Dim ret: ret = frm.ExecuteForm()
If ret = btn1 Then
MsgBox "cbo1=" & frm.Value(cbo1) & vbCrLf & _
"cbo2=" & frm.Value(cbo2) & vbCrLf
End If


例: ドロップダウンリストの例