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

例: ボタンの例