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


例: コンボボックスの例