作成 2010.01.05
更新 2011.11.27
更新 2011.11.27
PowerShell で Windows フォームを表示するサンプル
フォームを表示するサンプルです。
Function Open-Dialog(){
[void][reflection.assembly]::LoadWithPartialName("System.Windows.Forms")
# メニューバー
$mymi1 = New-Object Windows.Forms.MenuItem("File")
$mymi1_1 = New-Object Windows.Forms.MenuItem("Open")
$mymi1_2 = New-Object Windows.Forms.MenuItem("Save")
$mymi1_3 = New-Object Windows.Forms.MenuItem("Close")
$myms = New-Object Windows.Forms.MenuItem("-")
$res = $mymi1.MenuItems.Add($mymi1_1)
$res = $mymi1.MenuItems.Add($mymi1_2)
$res = $mymi1.MenuItems.Add($myms)
$res = $mymi1.MenuItems.Add($mymi1_3)
$mymi2 = New-Object Windows.Forms.MenuItem("Data")
$mymainmenu = New-Object Windows.Forms.MainMenu
$res = $mymainmenu.MenuItems.Add($mymi1)
$res = $mymainmenu.MenuItems.Add($mymi2)
# ボタン
$myb1 = New-Object Windows.Forms.Button
$myb1.Text = "OK"
$myb1.Location = New-Object Drawing.Point(10,50)
$myb2 = New-Object Windows.Forms.Button
$myb2.Text = "Cancel"
$myb2.Location = New-Object Drawing.Point($myb1.left, ($myb1.top + $myb1.height + 10))
# ツールバー
$mytbb1 = New-Object Windows.Forms.ToolBarButton
$mytbb1.Text = "Open"
$mytbb2 = New-Object Windows.Forms.ToolBarButton
$mytbb2.Text = "Save"
$mytb = New-Object Windows.Forms.ToolBar
$res = $mytb.Buttons.Add($mytbb1)
$res = $mytb.Buttons.Add($mytbb2)
$myform = New-Object Windows.Forms.Form
$myform.Text = "Original PowerShell Form"
$myform.FormBorderStyle = [Windows.Forms.FormBorderStyle]::Sizable
$myform.AcceptButton = $myb1
$myform.CancelButton = $myb2
$myform.StartPosition = [Windows.Forms.FormStartPosition]::CenterScreen
$myform.Menu = $mymainmenu
$myform.Controls.Add($mytb)
$myform.Controls.Add($myb1)
$myform.Controls.Add($myb2)
$res = $myform.ShowDialog()
}
参照
タグ: PowerShell