TestScript/clip1.vbs

   1 '---------------------------------------------------
   2 ' \83N\83\8a\83b\83v\83{\81[\83h\82Ì\97\98\97p\97á
   3 '---------------------------------------------------
   4
   5 ' \83N\83\89\83X\82ð\90¶\90¬\82·\82é
   6 dim obj
   7 set obj = new mainframe
   8
   9 '----------------------------------------------------
  10 ' \83\81\83C\83\93\83t\83\8c\81[\83\80\82Ì\90¶\90¬\82Æ\83C\83x\83\93\83g\82ð\82¤\82¯\82é\83N\83\89\83X\82Ì\92è\8b`
  11 class mainframe
  12         public instance
  13         public edt
  14         public sub class_initialize
  15                 set instance = createobject("seraphyscripttools.instance")
  16                 with instance.mainframe
  17                         .classobject = me
  18                         .SetMenu "/&FILE,&NEW@OnNew,\8aJ\82(&O)@OnOpen,&SAVE@OnSave,SAVE &AS@OnSaveAs:EXIT/&EDIT,&COPY@OnClipboardCopy,CUT(&X)@OnClipboardCut,&PASTE@OnClipboardPaste"
  19                         with .form
  20                                 .label "\93ü\97Í\97\93"
  21                                 set edt = .edit(,,5)
  22                                 .button("\83N\83\8a\83b\83v\83{\81[\83h\82©\82ç\8eæ\93¾").SetClassEvent("OnClipboardPaste").SetID(50)
  23                                 .button("\83N\83\8a\83b\83v\83{\81[\83h\82É\93ü\82ê\82é").SetClassEvent("OnClipboardCopy").SetID(51)
  24                         end with
  25                         .caption = "\83N\83\8a\83b\83v\83{\81[\83h\83e\83X\83g"
  26                         .open
  27                         .defaultaction = false
  28                         .domodal
  29                 end with
  30         end sub
  31
  32         public sub OnClipboardCopy
  33                  instance.mainframe.SetClipboardText(edt.Text)
  34         end sub
  35
  36         public sub OnClipboardPaste
  37                 dim text
  38                 text = instance.mainframe.GetClipboardText()
  39                 if Not IsEmpty(text) then
  40                         edt.Text = text
  41                 end if
  42         end sub
  43
  44         public sub OnClipboardCut
  45                 instance.mainframe.SetClipboardText(edt.Text)
  46                 edt.Text = ""
  47         end sub
  48
  49         public sub OnNew
  50                 edt.Text = ""
  51         end sub
  52 end class