・ MBCS->Unicode対応

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

diff --git a/TestScript/clip1.vbs b/TestScript/clip1.vbs
index 878e5d2..bf422b5 100644 (file)
--- a/TestScript/clip1.vbs
+++ b/TestScript/clip1.vbs
@@ -15,12 +15,12 @@ class mainframe
                set instance = createobject("seraphyscripttools.instance")
                with instance.mainframe
                        .classobject = me
-                       .SetMenu "/&FILE,&NEW@OnNew,\8aJ\82­(&O)@OnOpen,&SAVE@OnSave,SAVE &AS@OnSaveAs:EXIT/&EDIT,&COPY@OnClipboardCopy,CUT(&X),&PASTE@OnClipboardPaste"
+                       .SetMenu "/&FILE,&NEW@OnNew,\8aJ\82­(&O)@OnOpen,&SAVE@OnSave,SAVE &AS@OnSaveAs:EXIT/&EDIT,&COPY@OnClipboardCopy,CUT(&X)@OnClipboardCut,&PASTE@OnClipboardPaste"
                        with .form
                                .label "\93ü\97Í\97\93"
-                               set edit = .edit(,,5)
-                               .button("\83N\83\8a\83b\83v\83{\81[\83h\82©\82ç\8eæ\93¾").SetClassEvent("OnClipboardCopy").SetID(50)
-                               .button("\83N\83\8a\83b\83v\83{\81[\83h\82É\93ü\82ê\82é").SetClassEvent("OnClipboardPaste").SetID(51)
+                               set edt = .edit(,,5)
+                               .button("\83N\83\8a\83b\83v\83{\81[\83h\82©\82ç\8eæ\93¾").SetClassEvent("OnClipboardPaste").SetID(50)
+                               .button("\83N\83\8a\83b\83v\83{\81[\83h\82É\93ü\82ê\82é").SetClassEvent("OnClipboardCopy").SetID(51)
                        end with
                        .caption = "\83N\83\8a\83b\83v\83{\81[\83h\83e\83X\83g"
                        .open
@@ -30,14 +30,23 @@ class mainframe
        end sub
 
        public sub OnClipboardCopy
-               msgbox "copy"
+                instance.mainframe.SetClipboardText(edt.Text)
        end sub
 
        public sub OnClipboardPaste
-               msgbox "paste"
+               dim text
+               text = instance.mainframe.GetClipboardText()
+               if Not IsEmpty(text) then
+                       edt.Text = text
+               end if
+       end sub
+       
+       public sub OnClipboardCut
+               instance.mainframe.SetClipboardText(edt.Text)
+               edt.Text = ""
        end sub
 
-       public sub OnMenuO
-               msgbox "open"
+       public sub OnNew
+               edt.Text = ""
        end sub
 end class