・ MBCS->Unicode対応

[seraphyscrtools/SeraphyScriptTools.git] / TestScript / form2.vbs

diff --git a/TestScript/form2.vbs b/TestScript/form2.vbs
index be94eb0..58dc1ad 100644 (file)
--- a/TestScript/form2.vbs
+++ b/TestScript/form2.vbs
@@ -4,13 +4,13 @@ dim obj
 set obj = CreateObject("SeraphyScriptTools.Instance")
 
 dim slst,mlst
-dim cmd1,cmd2,cmd3,cmd4
+dim cmd1,cmd2,cmd3,cmd4,cmd5
 dim count
 
 wscript.ConnectObject obj.mainframe, "event_"
 with obj.mainframe
        .backcolor = "&HF0F0FF"
-       .SetPlacement ,,,320
+       .SetPlacement ,,,350
        .SetWindowStyle 0,1,0
        with .form
                .ControlPad ,5
@@ -25,7 +25,8 @@ with obj.mainframe
                .controlbreak
                set cmd3 = .button("\91I\91ð\82Ì\95\\8e¦",6)
                set cmd4 = .button("\8d\80\96Ú\82Ì\95\\8e¦",6)
-               .controlpad 5
+               set cmd5 = .button("\90æ\93ª",4)
+               .controlbreak
                .button("\8fI\97¹",5).SetID(1)
        end with
        .open "\83\8a\83X\83g\83{\83b\83N\83X\83T\83\93\83v\83\8b"
@@ -76,5 +77,12 @@ sub event_OnCommand
                                mlst.ItemObject(enm).Value("COUNT") = x
                        next
                        obj.dialog.messagebox mes
+               case cmd5.id
+                       if slst.GetCount > 0 then
+                               slst.currentselecteditem = 0
+                       end if
+                       if mlst.GetCount > 0 then
+                               mlst.currentselecteditem = 0
+                       end if
        end select
 end sub