UserFormメソッド/コントロールの配置

Short DefineEditButton(VARIANT title, VARIANT value, VARIANT btnTitle, VARIANT commandnumber)

ボタン付エディットコントロールを作成します。

引数

title
タイトルを指定する場合、左側にタイトル欄が作成されます。
省略した場合はタイトル欄は作成されません。
value
初期値を指定します。
btnTitle
右側に作成されるボタン欄のタイトルを指定します。
commandnumber
ボタンが押されたときにイベントとして返される値を指定します。
省略するとコントロール番号と同じとなります。

戻り値

コントロール番号が返されます。

備考

コントロール番号は定義順に1より割り当てられるため、commandnumberを明示的に指定する場合には、 他のコントロール番号と衝突しないように十分に大きな値を設定してください。

サンプル

Option Explicit
Dim obj: Set obj = CreateObject("SeraphyScriptDialog")
Dim frm: Set frm = obj.CreateForm()
Dim edt1: edt1 = frm.DefineEditButton(, "edt1-value", "ボタン1")
Dim edt2: edt2 = frm.DefineEditButton("edt2-label:", "edt2-value", "ボタン2")
Dim ret: ret = frm.ExecuteForm()
If ret = edt1 Then
    MsgBox frm.Value(edt1)
ElseIf ret = edt2 Then
    MsgBox frm.Value(edt2)
End If

例: エディットボタンの例