X-Git-Url: http://git.osdn.net/view?a=blobdiff_plain;f=help%2Fexamplecode%2Fsample_radiobutton2_modeless.vbs;fp=help%2Fexamplecode%2Fsample_radiobutton2_modeless.vbs;h=5d4986c11e6a50c7b93d1df74d87105f0fadba61;hb=6c6de7c31df42802d5582c9aacbbab09d96039b2;hp=0000000000000000000000000000000000000000;hpb=14fb47aaf345c4ba96e5767d46a75ffd113ab5ba;p=seraphyscrtools%2FSeraphyScriptDialog.git

diff --git a/help/examplecode/sample_radiobutton2_modeless.vbs b/help/examplecode/sample_radiobutton2_modeless.vbs
new file mode 100644
index 0000000..5d4986c
--- /dev/null
+++ b/help/examplecode/sample_radiobutton2_modeless.vbs
@@ -0,0 +1,28 @@
+Option Explicit
+Dim obj: Set obj = CreateObject("SeraphyScriptDialog")
+Dim frm: Set frm = obj.CreateForm()
+Dim chk1: chk1 = frm.DefineRadioButton("ƒ‰ƒWƒI1;ƒ‰ƒWƒI2;ƒ‰ƒWƒI3", 0, 1)
+Dim lbl1: lbl1 = frm.DefineLabel("")
+Dim chk2: chk2 = frm.DefineRadioButton("ƒ‰ƒWƒIa;ƒ‰ƒWƒIb",,1)
+Dim lbl2: lbl2 = frm.DefineLabel("")
+Dim btn1: btn1 = frm.DefineButton("OK")
+frm.ComposeForm()
+Do
+    Dim ret: ret = frm.WaitEvent(100)
+    If Not IsNull(ret) Then
+        If ret = btn1 Then
+            MsgBox "chk1=" & frm.Value(chk1) & vbCrLf & "chk2=" & frm.Value(chk2)
+            Exit Do
+
+        ElseIf ret = chk1 Then
+            frm.Value(lbl1) = frm.Value(chk1)
+
+        ElseIf ret = chk2 Then
+            frm.Value(lbl2) = frm.Value(chk2)
+
+        ElseIf ret = btn1 + 1 Or ret = -1 Then
+            Exit Do
+        End If
+    End If
+Loop
+frm.DestroyForm()