ドラッグ＆ドロップ

VisualuRubyの勉強　その４
エクスプローラなどからファイル選択してD&Dされたファイル名をテキストエリアに表示。
VRDropFileTargetをインクルードすると、self_dropfilesが使えるようになる。D&Dされたファイル名はArrayで渡されるのでひとつずつ表示。

• VRDropFileTarget

require 'vr/vruby'
require 'vr/vrcontrol'
require 'vr/vrddrop.rb'

class MyForm < VRForm

  include VRDropFileTarget

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

  def self_dropfiles(files)
    return if files.size == 0
    files.each do |file|
      @text1.text += "#{file}\n"
    end
  end
end 

VRLocalScreen.start(MyForm)