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),&PASTE@OnClipboardPaste"
  19                         with .form
  20                                 .label "\93ü\97Í\97\93"
  21                                 set edit = .edit(,,5)
  22                                 .button("\83N\83\8a\83b\83v\83{\81[\83h\82©\82ç\8eæ\93¾").SetClassEvent("OnClipboardCopy").SetID(50)
  23                                 .button("\83N\83\8a\83b\83v\83{\81[\83h\82É\93ü\82ê\82é").SetClassEvent("OnClipboardPaste").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                 msgbox "copy"
  34         end sub
  35
  36         public sub OnClipboardPaste
  37                 msgbox "paste"
  38         end sub
  39
  40         public sub OnMenuO
  41                 msgbox "open"
  42         end sub
  43 end class