TestScript/wait1.vbs

   1 Option Explicit
   2
   3 dim instance
   4 dim md
   5
   6 set instance = WScript.CreateObject("SeraphyScriptTools.Instance")
   7 wscript.connectobject instance.mainframe,"event_"
   8
   9 with instance.mainframe
  10         with .form
  11                 .label "\83E\83F\83C\83g\83J\81[\83\\83\8b"
  12                 .button "-WAIT-"
  13                 .button "-Wait OneShot -"
  14                 .label "\83E\83B\83\93\83h\83E\82Ì\8dì\90¬"
  15                 .button "Create Child"
  16                 .button "Create Frame"
  17         end with
  18         .SetPlacement ,,,200
  19         .SetWindowStyle 0,2,0
  20         .Open "\83E\83F\83C\83g\83J\81[\83\\83\8b\82Ì\8aÇ\97\9d"
  21         .domodal
  22 end with
  23
  24 sub event_oncommandex (ev)
  25         dim i,mes
  26         if(ev.event.parameter = 11) then
  27                 if(md = 0) then
  28                         md = 1
  29                         ev.form.control(11).text = "NORMAL"
  30                         instance.waitcursor = 1
  31                 else
  32                         md = 0
  33                         ev.form.control(11).text = "WAIT"
  34                         instance.waitcursor = 0
  35                 end if
  36         elseif(ev.event.parameter = 12) then
  37                 instance.waitcursor = 1
  38                 mes = ""
  39                 for i = 0 to 5000
  40                         mes = mes & ":" & i
  41                 next
  42                 instance.waitcursor = 0
  43         elseif(ev.event.parameter = 14) then
  44                 with instance.mainframe.createchild
  45                         .SetPlacement ,,100,100
  46                         .backColor = "&H800080"
  47                         .canvas.layer(0).text 10,10,"CHILD FRAME"
  48                         .open("child")
  49                         .draw
  50                 end with
  51         elseif(ev.event.parameter = 15) then
  52                 with instance.createframe
  53                         .SetPlacement ,,100,100
  54                         .backColor = "&H008080"
  55                         .canvas.layer(0).text 10,10,"FRAME WINDOW"
  56                         .open("child")
  57                         .draw
  58                 end with
  59         end if
  60 end sub