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

Short DefineButton(BSTR title, Variant commandnumber)

ボタンを作成します。

引数

title
ボタンのタイトルを指定します。
複数ボタンを横に並べて表示する場合には、「a;b;c」のように区切り文字「;」によって区切ります。
commandnumber
ボタンが押されたときのイベントとして返される番号で、最初のボタンから1づつカウントアップされます。
たとえば、「a;b;c」と3つのボタンを定義し、commandnumberが100であれば、ボタンCは102という番号が返ります。
Commandnumberを省略するとコントロール番号と同じ番号になりますが、 2つ以上のボタンを使う場合は次のコントロールのイベントと重複するため、必ずcommandnumberに大きな値を指定する必要があります。

戻り値

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

イベント

モードレス、モーダルのどちらの場合でもボタン押下によりイベントが発生します。

サンプル

Option Explicit
Dim obj: Set obj = CreateObject("SeraphyScriptDialog")
Dim frm: Set frm = obj.CreateForm()
Dim btn1: btn1 = frm.DefineButton("コマンド1;コマンド2;コマンド3", 10)
Dim btn2: btn2 = frm.DefineButton("コマンド4;コマンド5", 20)
Dim btn3: btn3 = frm.DefineButton("コマンド6")
Dim ret: ret = frm.ExecuteForm()
MsgBox "commandnumber=" & ret

例: ボタンの例