メニュー作成

VisualuRubyの勉強　その６

VRMenuUseableをインクルードして使用。
newMenuでVRMenuのインスタンスを作成して、setMenuでメニュー表示される。イベントハンドラ名はxxx_clicked。newMenuの引数はpopupさせるか否か、デフォルトはfalse。

• VRMenuUseable
• VRMenu

require 'vr/vruby'
require 'vr/vrcontrol'

class MyForm < VRForm

  include VRMenuUseable

  def construct
    self.caption = 'form1'
    self.move(137,124,500,400)
    addControl(VRText,'text1',"",16,16,448,304,WStyle::WS_VSCROLL)

    @fmenu = newMenu(true).set([["F&ile1","f1"],["E&xit","f2"]])
    @emenu = newMenu(true).set([["E&dit1","e1"],["Edi&t2","e2"]])

    setMenu newMenu.set([["&File",@fmenu],["&Edit",@emenu]])
  end 

  def f1_clicked
      @text1.text += "File1 selected\n"
  end

  def f2_clicked
      self.close
  end

  def e1_clicked
      @text1.text += "Edit1 selected\n"
  end

  def e2_clicked
      @text1.text += "Edit2 selected\n"
  end

end 

VRLocalScreen.start(MyForm)