From: Miyamoto Hiroaki <miyamoto.hiroak@...>
Date: 2008-10-02T14:40:35+09:00
Subject: [ruby-list:45523] vrubyのtabPanelについて質問です。

みやもとと申します。

vrubyのtabPanelについてですが、

下記コードで、tabPanel0上のbutton1クリックで、同一tabPanel0上のedit1は
@edit2.caption
で参照できますが、
tabPanel1上のedit2を参照しようとして、@edit2.captionに変更するとエラーになります。

どのように記述すればいいかできれば教えていただけないでしょうか？


# ここからコード
require 'vr/vruby'
require 'vr/vrcomctl'
require 'vr/vrcontrol'

def btn1_clk_func
  p @edit1.caption      # ここでtabPanel1上のedit2を参照したいのですが？
end

module Cntn_tabPanel1_panel0
  include VRStdControlContainer
  attr :button1
  attr :edit1

  def _cntn_init
    addControl(VRButton,'button1',"button1",76,61,120,40,1342177280)
    addControl(VREdit,'edit1',"edit1",36,29,196,20,1342177408)
  end

  def button1_clicked
    btn1_clk_func
  end
end

module Cntn_tabPanel1_panel1
  include VRStdControlContainer
  attr :edit2

  def _cntn_init
    addControl(VREdit,'edit2',"edit2",20,37,220,20,1342177408)
  end
end

module Cntn_tabPanel1
  attr :panel0
  attr :panel1
  def _cntn_init
    vrinit
    @panel0.extend(Cntn_tabPanel1_panel0)._cntn_init
    @panel1.extend(Cntn_tabPanel1_panel1)._cntn_init
  end
end

module Frm_form1
  def _form1_init
    self.caption = 'form1'
    self.move(288,549,300,200)
    addControl(VRTabbedPanel,'tabPanel1',"tabPanel1",8,8,272,152,1409286144)
    @tabPanel1.setupPanels(
*[
  'パネル１',
  'パネル２',
]
)
    @tabPanel1.extend(Cntn_tabPanel1)._cntn_init
  end

  def construct
    _form1_init
  end
end

# Top Form表示
frm=VRLocalScreen.newform
frm.extend Frm_form1
frm.move 100,100,300,300
frm.create.show
VRLocalScreen.messageloop