RSS

Windows.Forms sample(3)

19 10月

form3

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

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

class Form1 < Form
# constructor
def initialize()
self.Text = “FormMaker Test”
self.Size = Size.new(512, 320)
self.StartPosition = FormStartPosition.CenterScreen
self.Icon = Icon.new(‘FOLDER03.ICO’)
@mainMenu = MainMenu.new
self.Menu = @mainMenu
@mnuFile = MenuItem.new
@mnuFile.Name = “mnuFile”
@mnuFile.Text = “&File”
@mainMenu.MenuItems.Add(@mnuFile)
@mnuQuit = MenuItem.new
@mnuQuit.Name = “mnuQuit”
@mnuQuit.Text = “&Quit”
@mnuQuit.Click do |sender, e|
self.Close()
end
@mnuFile.MenuItems.Add(@mnuQuit)
@mnuContext1 = ContextMenu.new
@mnuContext1.Name = “mnuContext1”
self.ContextMenu = @mnuContext1
@mnuQuit2 = MenuItem.new
@mnuQuit2.Name = “mnuQuit2”
@mnuQuit2.Text = “&Quit”
@mnuQuit2.Click do |sender, e|
self.Close()
end
@mnuContext1.MenuItems.Add(@mnuQuit2)
@statusBar = StatusBar.new
@statusBarPanel1 = StatusBarPanel.new
@statusBarPanel1.BorderStyle = StatusBarPanelBorderStyle.Sunken
@statusBarPanel1.AutoSize = StatusBarPanelAutoSize.Spring
@statusBarPanel1.Text = “Ready”
@statusBar.Panels.Add(@statusBarPanel1)
@statusBar.ShowPanels = true
self.Controls.Add(@statusBar)

end # constructor

end # Class

Application.run(Form1.new)

 
コメントする

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

 

タグ: , , ,

コメントを残す

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

WordPress.com ロゴ

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

Twitter 画像

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

Facebook の写真

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

Google+ フォト

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

%s と連携中

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