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

Short DefineEdit(VARIANT title, VARIANT value, VARIANT multiline)

エデイットコントロールを作成します。

引数

title
タイトルを指定する場合、左側にタイトル欄が作成されます。
省略した場合はタイトル欄は作成されません。
value
初期値を指定します。
Multiline
複数行エディットコントロールにする場合に、その行数を指定します。
Multilineは複数行にした場合、改行が許可されます。

戻り値

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

サンプル

Option Explicit
Dim obj: Set obj = CreateObject("SeraphyScriptDialog")
Dim frm: Set frm = obj.CreateForm()
Dim edt1: edt1 = frm.DefineEdit(, "edt1-value")
Dim edt2: edt2 = frm.DefineEdit("edt2-title", "edt2-value")
Dim edt3: edt3 = frm.DefineEdit(,"xx" & vbCrLf & "yy", 5)
Dim btn1: btn1 = frm.DefineButton("OK")
If frm.ExecuteForm() = btn1 Then
    MsgBox frm.Value(edt1) & ":" & frm.Value(edt2) & ":" & frm.Value(edt3)
End If

例: エディットボックスの例