カテゴリー
Wiki内検索
*
最近更新したページ
最新コメント
win32/guitest by stunning seo guys
FrontPage by stunning seo guys
SWIG by awesome things!
Win32/Console by stunning seo guys
FrontPage by awesome things!
Win32SDK_ICM by stunning seo guys
Win32SDK_MM by check it out
Win32SDK_process by stunning seo guys
VisualuRuby by stunning seo guys

VisualuRuby/コントロール配列

addArrayedControlで配置。
@hogehoge[1].checked?みたいに使える。
addArrayedControl(index,ctype,name,caption,x=0,y=0,w=10,h=10,style=0) 

Sample




# eight_bits.rb
require 'vr/vruby'
require "vr/vrcontrol"
SS_RIGHT = 2
 
class MyForm < VRForm
  def construct
    self.caption= "8 bits"
    self.move(200, 200, 165, 90)
    (0..7).each do |i|
      addArrayedControl(i, VRCheckbox, 'cbs', '', 10+16*i+(i/4)*10, 30, 16, 24)
    end
    @val = 0
    addControl(VRStatic, 'label1', @val, 10, 7, 135, 23, SS_RIGHT)
  end
  
  def cbs_clicked(index)
    @val = @val ^ (1 << (7-index))
    @label1.caption = @val
  end
end
 
frm = VRLocalScreen.showForm MyForm
VRLocalScreen.messageloop
2006年03月19日(日) 10:33:49 Modified by aqualung

添付ファイル一覧(全1件)
96c633ed78c63775.jpg (4.20KB)
Uploaded by aqualung 2006年03月19日(日) 09:19:14



スマートフォン版で見る