hakeの日記

Windows環境でプログラミングの勉強をしています。

ボタンとテキスト

ruby visualuruby

VisualuRubyの勉強　その２
例によってボタンを押したらテキストエリアに文字を表示させるプログラム。
部品（コントロールという？）の配置はaddControllでおこなう。引数の２番目が部品のインスタンス変数になるみたいです。テキストエリアに文字を表示させるには@text1.text=strみたいなかんじ。また、部品に応じたイベントハンドラが使用できるようになる、button1をクリックした場合のイベントハンドラはbutton1_clicked
ちなみにWStyle::WS_VSCROLL|WStyle::WS_HSCROLLは縦横スクロールバーの表示です。

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

class MyForm < VRForm

  def construct
    @i = 0
    self.caption = 'form1'
    self.move(140,124,500,400)
    addControl(VRButton,'button1',"button1",176,240,136,64)
    addControl(VRText,'text1',"",56,32,360,136,WStyle::WS_VSCROLL|WStyle::WS_HSCROLL)
  end 

  def button1_clicked
      @text1.text += "#{@i.to_s}\n"
      @text1.scrollTo(@text1.countLines,0)
      @i += 1
   end

end 

VRLocalScreen.start(MyForm)