UserFormメソッド/コントロールの配置
Short DefineComboBox(Variant title, Variant value, Variant list)
コンボボックスを作成します。
編集可能なエディットボックスと、ドロップダウンリストの組み合わせです。
引数
- title
- タイトル欄は省略可能で、指定した場合は左側にタイトルが作成されます。
- value
- エデイットコントロール部にはvalueが初期値として入ります。
- list
- ドロップダウンによって選択できるリストはlistに区切り文字「;」によって指定します。
戻り値
コントロール番号が返されます。
イベント
モードレスの場合、コンボボックスのドロップダウンリストの選択によりコントロール番号のイベントが発生します。
サンプル
Option Explicit
Dim obj: Set obj = CreateObject("SeraphyScriptDialog")
Dim frm: Set frm = obj.CreateForm()
Dim cbo1: cbo1 = frm.DefineComboBox()
Dim cbo2: cbo2 = frm.DefineComboBox(,"data2","data1;data2;data3")
Dim cbo3: cbo3 = frm.DefineComboBox("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 & _
"cbo3=" & frm.Value(cbo3)
End If


例: コンボボックスの例