TestScript/sample5.vbs

   1 dim mainframe
   2 set mainframe = new MainWindow
   3
   4 class MainWindow
   5         public Instance
   6         public edt
   7         public sub class_initialize
   8                 set Instance = CreateObject("SeraphyScriptTools.Instance")
   9                 with Instance.Mainframe
  10                         .ClassObject = me
  11                         with .Form
  12                                 .Label "\83\89\83x\83\8b"
  13                                 set edt = .Edit("\93ü\97Í\97\93",,8)
  14                                 .Button("\83R\83s\81[",8).SetClassEvent("OnCopy")
  15                                 .Button("\93\\82è\95t\82¯",8).SetClassEvent("OnPaste")
  16                         end with
  17                         .Open "sample4"
  18                         .DoModal
  19                 end with
  20         end sub
  21
  22         public sub OnCopy
  23                 Instance.MainFrame.SetClipboardText edt.Text
  24         end sub
  25
  26         public sub OnPaste
  27                 edt.Text = Instance.MainFrame.GetClipboardText
  28         end sub
  29 end class