ver2.1 フォント修正、ファイルダイアログの初期フォルダ指定修正、モードレス時のイベントハンドリング修正

[seraphyscrtools/SeraphyScriptDialog.git] / help / examplecode / sample_combo_modeless.vbs

diff --git a/help/examplecode/sample_combo_modeless.vbs b/help/examplecode/sample_combo_modeless.vbs
new file mode 100644 (file)
index 0000000..1f7162e
--- /dev/null
+++ b/help/examplecode/sample_combo_modeless.vbs
@@ -0,0 +1,24 @@
+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;CANCEL")
+frm.ComposeForm()
+Do
+    Dim ret: ret = frm.WaitEvent(100)
+    If Not IsNull(ret) Then
+        If ret = btn1 Then
+            MsgBox "cbo1=" & frm.Value(cbo1) & vbCrLf & _
+                "cbo2=" & frm.Value(cbo2) & vbCrLf & _
+                "cbo3=" & frm.Value(cbo3)
+            Exit Do
+        ElseIf ret = -1 Or ret = btn1 + 1 Then
+            Exit Do
+        Else
+            MsgBox ret
+        End If
+    End If
+Loop
+frm.DestroyForm()