ファイル選択

VisualuRubyの勉強　その３
ウィンドウズの標準ダイアログを使ってファイルを選択する。選択されたファイル名（フルパス）をテキストエリアに表示。
VREditはフォントの大きさに対してheightが小さいと文字が見えないので注意（少しハマった(^^ゞ）

• SWin::CommonDialog
• VREdit

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

class MyForm < VRForm

  def construct
    self.caption = 'form1'
    self.move(137,124,500,400)
    addControl(VRButton,'button1',"file",320,72,48,25)
    addControl(VREdit,'edit1',"",48,72,256,25)
  end 

  def button1_clicked
    file = SWin::CommonDialog::openFilename(self,[["すべて","*.*"],["Ruby Script","*.rb"]])
    @edit1.text = file if file
  end
end 

VRLocalScreen.start(MyForm)