RSS

Windows.Forms sample(4)

19 10月

 

 

 

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

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

class Form3 < Form
# constructor
def initialize()
    self.Text = "FormMaker Test"
    self.Size = Size.new(512, 320)
    self.StartPosition = FormStartPosition.CenterScreen
    @mainMenu = MainMenu.new
    self.Menu = @mainMenu
    @openDialog1 = OpenFileDialog.new
    @openDialog1.RestoreDirectory = true
    @mnuFile = MenuItem.new
    @mnuFile.Name = "mnuFile"
    @mnuFile.Text = "File"
    @mainMenu.MenuItems.Add(@mnuFile)
    @mnuOpen = MenuItem.new
    @mnuOpen.Name = "mnuOpen"
    @mnuOpen.Text = "Open"
    @mnuOpen.Click do |sender, e|
        if @openDialog1.ShowDialog() == DialogResult.OK then
   
end
        end
    @mnuFile.MenuItems.Add(@mnuOpen)
    @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(Form3.new)

 
コメントする

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

 

コメントを残す

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

WordPress.com ロゴ

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

Twitter 画像

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

Facebook の写真

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

Google+ フォト

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

%s と連携中

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