TestScript/event1.vbs

   1 option explicit
   2 dim obj
   3 set obj = CreateObject("SeraphyScriptTools.Instance")
   4
   5 '------------------
   6 ' \90F\82Æ\90}\8c`\82Ì\8aÇ\97\9d
   7 dim mode,sx,sy,col
   8 mode = 0
   9 col  = 0
  10
  11 '-----------------
  12 ' \8f\89\8aú\89»\82Æ\8eÀ\8ds
  13 WScript.ConnectObject obj.mainframe , "event_"
  14 with obj.mainframe
  15         with .canvas
  16                 .layer(0).Color = "&H000000"
  17                 .layer(1).Color = "&H0000FF"
  18                 .layer(2).Color = "&H00FF00"
  19                 .layer(3).Color = "&HFF0000"
  20         end with
  21         .SetMenu "/\83t\83@\83C\83\8b(&F),\8fI\97¹/\90}\8c`(&D),\89~(&C),\90ü(&L)/\83J\83\89\81[(&C),\8d\95(&B),\90Ô(&R),\97Î(&G),\90Â(&B)"
  22         .CheckMenu 300,true
  23         .open "\83}\83E\83X\83C\83x\83\93\83g\81A\83\81\83j\83\85\81[\82Æ\83\8c\83C\83\84\81[\82Ì\83T\83\93\83v\83\8b"
  24         .domodal
  25 end with
  26 WScript.DisconnectObject obj.mainframe
  27
  28 '----------------
  29 ' \83n\83\93\83h\83\89
  30
  31 sub event_OnClick
  32         with obj.mainframe
  33                 dim x,y
  34                 with .event
  35                         x = .posx
  36                         y = .posy
  37                         select case mode
  38                                 case 0
  39                                         obj.mainframe.canvas.layer(col).circle x,y,3
  40                                 case 1
  41                                         sx = x
  42                                         sy = y
  43                                         mode = 2
  44                         end select
  45                 end with
  46                 .draw
  47         end with
  48 end sub
  49
  50 sub event_OnMouseMove
  51         with obj.mainframe
  52                 dim x,y,dx,dy
  53                 with .event
  54                         x = .posx
  55                         y = .posy
  56                         dx = .dposx
  57                         dy = .dposy
  58                 end with
  59                 with .canvas.layer(10)
  60                         .clear
  61                         .SetMappingMode 1
  62                         .FontSize = 20
  63                         .text 0, 0, "LOCAL " & x & " / " & y
  64                         .text 0,20, "PIX " & dx & " / ," & dy
  65                 end with
  66                 select case mode
  67                         case 2
  68                                 .canvas.layer(col).line sx,sy,x,y
  69                                 sx = x
  70                                 sy = y
  71                 end select
  72                 .draw
  73         end with
  74 end sub
  75
  76 sub event_OnClickOut
  77         if(mode = 2) then
  78                 mode = 1
  79         end if
  80 end sub
  81
  82 sub event_OnCommand
  83         select case obj.mainframe.event.parameter
  84                 case 200 mode = 0
  85                 case 201 mode = 1
  86                 case 300 col  = 0
  87                 case 301 col  = 1
  88                 case 302 col  = 2
  89                 case 303 col  = 3
  90                 case 100 obj.mainframe.close
  91         end select
  92         dim i
  93         for i = 0 to 3
  94                 obj.mainframe.CheckMenu 300+i , false
  95         next
  96         obj.mainframe.CheckMenu 300+col,true
  97 end sub