RSS

Windows.Forms sample(5)

19 10月

 

form5

 

# coding: Windows-31J
require "mscorlib"
require "System.Windows.Forms"
require "System.Drawing"

include System::Windows::Forms
include System::Drawing

class Form5 < Form
# constructor
def initialize()
    self.Text = "Control Test"
    self.Size = Size.new(640, 480)
    self.StartPosition = FormStartPosition.CenterScreen
    @combo1 = ComboBox.new
    @combo1.Name = "combo1"
    @combo1.DropDownStyle = ComboBoxStyle.DropDownList
    @combo1.Location = Point.new(40, 80)
    @combo1.Size = Size.new(200, 200)
    self.Controls.Add(@combo1)
    @button1 = Button.new
    @button1.Name = "button1"
    @button1.Location = Point.new(100, 120)
    @button1.Text = "Test"
    @button1.Width = 100
    self.Controls.Add(@button1)
    @button2 = Button.new
    @button2.Name = "button2"
    @button2.Location = Point.new(380, 350)
    @button2.Text = "Quit"
    @button2.Width = 100
    self.Controls.Add(@button2)
    @label1 = Label.new
    @label1.Name = "label1"
    @label1.Text = "Select"
    @label1.AutoSize = true
    @label1.Location = Point.new(40, 40)
    self.Controls.Add(@label1)
    @label2 = Label.new
    @label2.Name = "label2"
    @label2.Text = "Selected: "
    @label2.AutoSize = true
    @label2.Location = Point.new(40, 280)
    self.Controls.Add(@label2)
    @combo1.Items.Add("1")
    @combo1.Items.Add("2")
    @combo1.Items.Add("3")
    @combo1.Items.Add("4")
    @button1.Click do |sender, e|
    @label2.Text = @combo1.SelectedItem.ToString()
    end
    @button2.Click do |sender, e|
    self.Close()
    end

end # constructor

end # Class

Application.run(Form5.new)

 
コメントする

投稿者: : 2011/10/19 投稿先 IronRuby

 

コメントを残す

以下に詳細を記入するか、アイコンをクリックしてログインしてください。

WordPress.com ロゴ

WordPress.com アカウントを使ってコメントしています。 ログアウト / 変更 )

Twitter 画像

Twitter アカウントを使ってコメントしています。 ログアウト / 変更 )

Facebook の写真

Facebook アカウントを使ってコメントしています。 ログアウト / 変更 )

Google+ フォト

Google+ アカウントを使ってコメントしています。 ログアウト / 変更 )

%s と連携中

 
%d人のブロガーが「いいね」をつけました。