TestScript/form2.vbs

   1 option explicit
   2
   3 dim obj
   4 set obj = CreateObject("SeraphyScriptTools.Instance")
   5
   6 dim slst,mlst
   7 dim cmd1,cmd2,cmd3,cmd4
   8 dim count
   9
  10 wscript.ConnectObject obj.mainframe, "event_"
  11 with obj.mainframe
  12         .backcolor = "&HF0F0FF"
  13         .SetPlacement ,,,320
  14         .SetWindowStyle 0,1,0
  15         with .form
  16                 .ControlPad ,5
  17                 .label "\92P\88ê\91I\91ð\83\8a\83X\83g\83{\83b\83N\83X"
  18                 set slst = .listbox(,5)
  19                 .label "\95¡\90\94\91I\91ð\83\8a\83X\83g\83{\83b\83N\83X"
  20                 set mlst = .multilistbox(,5)
  21                 .controlbreak
  22                 .controlpad ,10
  23                 set cmd1 = .button("\92Ç\89Á",6)
  24                 set cmd2 = .button("\8dí\8f\9c",6)
  25                 .controlbreak
  26                 set cmd3 = .button("\91I\91ð\82Ì\95\\8e¦",6)
  27                 set cmd4 = .button("\8d\80\96Ú\82Ì\95\\8e¦",6)
  28                 .controlpad 5
  29                 .button("\8fI\97¹",5).SetID(1)
  30         end with
  31         .open "\83\8a\83X\83g\83{\83b\83N\83X\83T\83\93\83v\83\8b"
  32         .domodal
  33 end with
  34 wscript.disconnectobject obj
  35
  36 sub event_OnCommand
  37         dim idx1,idx2,mes,enm,x
  38         select case obj.mainframe.event.parameter
  39                 case slst.id
  40                         obj.dialog.messagebox "\92P\88ê\91I\91ð\83\8a\83X\83g\82Ì\83_\83u\83\8b\83N\83\8a\83b\83N"
  41                         slst.currentselecteditem = -1
  42                 case mlst.id
  43                         obj.dialog.messagebox "\95¡\90\94\91I\91ð\83\8a\83X\83g\82Ì\83_\83u\83\8b\83N\83\8a\83b\83N"
  44                 case cmd1.id
  45                         count = count + 1
  46                         idx1 = slst.addstring("Single-" & count)
  47                         idx2 = mlst.addstring("Single-" & count)
  48                         slst.ItemObject(idx1).Value("COUNT") = count / 2
  49                         mlst.ItemObject(idx2).Value("COUNT") = count * 2
  50                 case cmd2.id
  51                         msgbox "delete"
  52                         slst.deleteselecteditem
  53                         mlst.deleteselecteditem
  54                         msgbox "delete-end"
  55                 case cmd3.id
  56                         mes = "\92P\88ê\91I\91ð\83\8a\83X\83g = " & slst.currentselecteditem
  57                         mes = mes & vbcrlf & "\95¡\90\94\91I\91ð\83\8a\83X\83g"
  58                         for each enm in mlst
  59                                 mes = mes & vbcrlf & "(no." & enm & ") " & mlst.ItemText(enm)
  60                         next
  61                         obj.dialog.messagebox mes
  62                 case cmd4.id
  63                         idx1 = slst.currentselecteditem
  64                         mes = "\92P\88ê\91I\91ð\83\8a\83X\83g\8d\80\96Ú = " & idx1
  65                         if(idx1 >= 0) then
  66                                 x = slst.ItemObject(idx1).Value("COUNT")
  67                                 x = x + 1
  68                                 slst.ItemObject(idx1).Value("COUNT") = x
  69                                 mes = mes & vbcrlf & "COUNT=" & x
  70                         end if
  71                         mes = mes & vbcrlf & "\95¡\90\94\91I\91ð\83\8a\83X\83g"
  72                         for each enm in mlst
  73                                 x = mlst.ItemObject(enm).Value("COUNT")
  74                                 mes = mes & vbcrlf & "(no." & enm & ") " & x
  75                                 x = x + 1
  76                                 mlst.ItemObject(enm).Value("COUNT") = x
  77                         next
  78                         obj.dialog.messagebox mes
  79         end select
  80 end sub