|
|
||||||||||||||||||||||||||||||
|
|
||||||||||||||||||||||||||||||
|
Windows Form を作成してみよう(4/4) ( System.Windows.Forms ) |
H.Kamifuji . |
|
PowerShell では、System.Windows.Forms のアセンブリを利用して、Windows Form を作成できます。 VB や cpp + MFC などで、Windows Form 開発の経験者なら容易と考えます。未経験者なら、別のドキュメントなどを参照してからの方が良いと思います。 これらの情報の取得方法について説明します。 PowerShell 7.15 インストールに共ない見直します。 現在(2024/10/27)では、PowerShell 7.4.6 が最新のようです。見直しをはじめましたが、 何と、" > パイプ問題(?)"が 解 消 されています。 パイプ関連事項を見直します。 現在(2024/10/26)では、ImageMagick 7.1.1-39 が最新のようです。上位互換について確認します。 |
次の事例を実行してみよう。
# ユーザーフォームを作る - 基礎編 -
# アセンブリの読み込み
Add-Type -AssemblyName System.Windows.Forms
Add-Type -AssemblyName System.Drawing
# フォームの作成
$form = New-Object System.Windows.Forms.Form
$form.Text = "入力"
$form.Size = New-Object System.Drawing.Size(260,180)
# OKボタンの設定
$OKButton = New-Object System.Windows.Forms.Button
$OKButton.Location = New-Object System.Drawing.Point(40,100)
$OKButton.Size = New-Object System.Drawing.Size(75,30)
$OKButton.Text = "OK"
$OKButton.DialogResult = "OK"
# 列挙子名：None, OK, Cancel, Abort, Retry, Ignore, Yes, No
# キャンセルボタンの設定
$CancelButton = New-Object System.Windows.Forms.Button
$CancelButton.Location = New-Object System.Drawing.Point(130,100)
$CancelButton.Size = New-Object System.Drawing.Size(75,30)
$CancelButton.Text = "Cancel"
$CancelButton.DialogResult = "Cancel"
# 列挙子名：None, OK, Cancel, Abort, Retry, Ignore, Yes, No
# ラベルの設定
$label = New-Object System.Windows.Forms.Label
$label.Location = New-Object System.Drawing.Point(10,30)
$label.Size = New-Object System.Drawing.Size(250,20)
$label.Text = "好きな言葉を入力してください"
# 入力ボックスの設定
$textBox = New-Object System.Windows.Forms.TextBox
$textBox.Location = New-Object System.Drawing.Point(10,70)
$textBox.Size = New-Object System.Drawing.Size(225,50)
# キーとボタンの関係
$form.AcceptButton = $OKButton
$form.CancelButton = $CancelButton
# ボタン等をフォームに追加
$form.Controls.Add($OKButton)
$form.Controls.Add($CancelButton)
$form.Controls.Add($label)
$form.Controls.Add($textBox)
# フォームを表示させ、その結果を受け取る
$result = $form.ShowDialog()
# 結果による処理分岐
if ($result -eq "OK") {
$x = $textBox.Text
$x
}
このページでは、System.Windows.Forms 及び System.Drawing を利用したユーザーフォームを作ります。先ずは、基礎編として、TextBox とボタン２個を配置した簡単な事例を説明します。４〜５行で、System.Windows.Forms 及び System.Drawing のアセンブリを読み込みます。 ８〜１０行で、フォームの作成と設定を行っています。 １３〜１７行で、OKボタンの作成と設定を行っています。 ２１〜２５行で、Cancelボタンの作成と設定を行っています。 ２９〜３２行で、ラベルの作成と設定を行っています。 ３５〜３７行で、テキストボックスの作成と設定を行っています。 ４０行目では、$form.AcceptButton = $OKButton と [ Enter ] キー入力で [ OK ] ボタンクリックとします。 ４１行目では、$form.CancelButton = $CancelButton と [ Esc ] キー入力で [ Cancel ] ボタンクリックとします。 ４４〜４７行で、$OKButton , $CancelButton , $label 及び $textBox を $form に配置します。 ５０行目では、フォームを表示（実行）して、結果を $result に格納します。 ５３〜５６行で、結果による処理分岐して、"OK" のときに $textBox.Text を PowerShell 画面に表示します。 それでは、実行してみましょう。 下記のような Windows 画面が表示されます。TextBox( 入力ボックス ) に適宜、文字列を入力して、[ OK ] ボタンをクリックして閉じてください。  abcdefg上記を実行すると PowerShell 7.15 でも、正常（同様）に、実行されます。 ただし、utf-8 保存したファイル(.ps1)で、実行すること。 PowerShell 7.4.6 でも、同様です。 |
次の事例を実行してみよう。
# ユーザーフォームを作る - 各種修飾子について -
# アセンブリの読み込み
Add-Type -AssemblyName System.Windows.Forms
Add-Type -AssemblyName System.Drawing
# フォームの作成
$form = New-Object System.Windows.Forms.Form
$form.Text = "入力"
$form.Size = New-Object System.Drawing.Size(260,180)
$form.StartPosition = "CenterScreen"
$form.BackColor = "lightseagreen"
$form.MaximizeBox = $false
$form.MinimizeBox = $false
$form.FormBorderStyle = "FixedSingle"
$form.Opacity = 1
# OKボタンの設定
$OKButton = New-Object System.Windows.Forms.Button
$OKButton.Location = New-Object System.Drawing.Point(40,100)
$OKButton.Size = New-Object System.Drawing.Size(75,30)
$OKButton.Text = "OK"
$OKButton.DialogResult = "OK"
$OKButton.Flatstyle = "Popup"
$OKButton.Backcolor = "black"
$OKButton.forecolor = "yellow"
# キャンセルボタンの設定
$CancelButton = New-Object System.Windows.Forms.Button
$CancelButton.Location = New-Object System.Drawing.Point(130,100)
$CancelButton.Size = New-Object System.Drawing.Size(75,30)
$CancelButton.Text = "Cancel"
$CancelButton.DialogResult = "Cancel"
$CancelButton.Flatstyle = "Popup"
$CancelButton.backcolor = "red"
$CancelButton.forecolor = "black"
# フォントの設定
$Font = New-Object System.Drawing.Font("ＭＳ ゴシック",11)
# ラベルの設定
$label = New-Object System.Windows.Forms.Label
$label.Location = New-Object System.Drawing.Point(10,30)
$label.Size = New-Object System.Drawing.Size(250,20)
$label.Text = "好きな言葉を入力してください"
$label.forecolor = "blue"
$label.font = $Font
# 入力ボックスの設定
$textBox = New-Object System.Windows.Forms.TextBox
$textBox.Location = New-Object System.Drawing.Point(10,70)
$textBox.Size = New-Object System.Drawing.Size(225,50)
# 最前面に表示：する
$form.Topmost = $True
# 入力ボックス部分を選択した状態にする
$form.Add_Shown({$textBox.Select()})
# キーとボタンの関係
$form.AcceptButton = $OKButton
$form.CancelButton = $CancelButton
# ボタン等をフォームに追加
$form.Controls.Add($OKButton)
$form.Controls.Add($CancelButton)
$form.Controls.Add($label)
$form.Controls.Add($textBox)
# フォームを表示させ、その結果を受け取る
$result = $form.ShowDialog()
# 結果による処理分岐
if ($result -eq "OK") {
$x = $textBox.Text
$x
}
この事例は、前項の基礎編に対して、各種修飾子を追加しました。１１行目では、$form.StartPosition = "CenterScreen" とモニタースクリーンの中央に表示することを指定します。 １２行目では、$form.BackColor = "lightseagreen" と背景色を指定します。 １３行目では、$form.MaximizeBox = $false と最大化ボタンを配置しないと指定します。 １４行目では、$form.MinimizeBox = $false と最小化ボタンを配置しないと指定します。 １５行目では、$form.FormBorderStyle = "FixedSingle" とフレームのボーダスタイルを指定します。 １６行目では、$form.Opacity = 1 とフォームの描画透明度を 0 〜 1.0 の値で指定します。 ２４行目では、$OKButton.Flatstyle = "Popup" とフラットスタイルを指定しています。 ２５行目では、$OKButton.Backcolor = "black" と背景色を指定しています。 ２６行目では、$OKButton.forecolor = "yellow" と前景色を指定しています。 ３４行目では、$CancelButton.Flatstyle = "Popup" とフラットスタイルを指定しています。 ３５行目では、$CancelButton.backcolor = "red" と背景色を指定しています。 ３６行目では、$CancelButton.forecolor = "black" と前景色を指定しています。 ３９行目では、$Font = New-Object System.Drawing.Font("ＭＳ ゴシック",11) とフォントを作成しています。 ４６行目では、$label.forecolor = "blue" とラベルの前景色を指定しています。 ４７行目では、$label.font = $Font とラベルの描画フォントを指定します。 以外は、前項と同じです。 それでは、実行してみましょう。 下記のような Windows 画面が表示されます。TextBox( 入力ボックス ) に適宜、文字列を入力して、[ OK ] ボタンをクリックして閉じてください。  abcdefgここで、各種修飾子について纏めておきます。
● タイトル文字列を指定する
$form.Text = "タイトル"
● フォームの大きさを指定する
$form.Size = "200,200"
● フォームを画面の中心に表示する
$form.StartPosition = "CenterScreen"
● フォームを画面の任意の位置に表示する
$form.StartPosition = "Manual"
$form.Location = "100,100"
● フォームの背景色を指定する
$form.BackColor = "Black"
もしくは
$form.BackColor = "#000000"
● フォームの前景色(＝文字色)を指定する
$form.ForeColor = "White"
● 最大化ボタンを表示させない
$form.MaximizeBox = $False
● 最小化ボタンを表示させない
$form.MinimizeBox = $False
● 境界線のスタイルを設定する
$form.FormBorderStyle = "Fixed3D"
スタイルは次の中から選択する
None … 境界線なし。サイズ変更できない。
FixedSingle … 固定された（サイズ変更できない）一重線の境界線。
Fixed3D … 固定された（サイズ変更できない） 3D 境界線。
FixedDialog … 太い固定されたダイアログ スタイルの境界線。
Sizable … サイズ変更できる境界線。
FixedToolWindow … サイズ変更できないツール ウィンドウの境界線。
SizableToolWindow … サイズ変更できるツール ウィンドウの境界線。
● フォームの透明度を指定する
$form.Opacity = 1
透明度は0〜1の間で指定する。(0.5や0.9など)
0に近い程、透明になっていく。
● 常に最前面に表示する(他のアプリケーションに隠れない)
$form.TopMost = $True
● 起動時は最前面に表示する(他のアプリケーションに隠れる)
$form.TopLevel = $true
● タスクバーにフォームを表示しない
$form.ShowInTaskbar = $False
● タイトルバーを表示しない(閉じるボタンや境界線も消える)
$form.FormBoderStyle = "None"
● タイトルバーを表示しない(境界線は残る)
$form.ControlBox = $False
$form.Text = ""
● 特定の色を透明にする
$form.TransparencyKey = "Black"
例えば、$form.BackColor = "Black" と組み合わせれば、背景色に黒を指定しつつ、
黒は透明になるので、結果、背景部分だけが透明になる。
Opacityプロパティはフォーム全体の透明度を指定するので、
微妙に異なる。
● アイコン(タイトルの左側に表示されるもの)の画像を指定する
$form.Icon = "C:\Pictures\TAKE.ico"
指定できるファイルはicoファイルだけのようだ。
jpegやpngで試したところエラーが出た。
● アイコン(タイトルの左側に表示されるもの)を非表示にする
$form.ShowIcon = $False
● フォーム起動時、最大化の状態で表示させる
$form.WindowState = "Maximized"
● フォーム起動時、最小化の状態で表示させる
$form.WindowState = "Minimized"
● フォームを最大化させたときのサイズを指定する
$form.MaximumSize = "800,800"
● 背景に画像を指定する
$form.BackgroundImage = [system.drawing.image]::FromFile("C:\Pictures\TAKE.jpeg")
● 背景画像の表示方法を指定する
$form.BackgroundImageLayout = "zoom"
このプロパティで指定できる値(列挙体)は次の通り。
Center … 四角形の中央に配置されます。
None … 四角形の上部で左寄せに配置されます。
Stretch … 四角形全体に伸縮されます。
Tile … 四角形全体に並べて表示されます。
Zoom … 四角形内で拡大されます。
上記を実行すると PowerShell 7.15 でも、正常（同様）に、実行されます。 ただし、utf-8 保存したファイル(.ps1)で、実行すること。 PowerShell 7.4.6 でも、同様です。 |
次の事例を実行してみよう。
# ユーザーフォームを作る - リストボックス編 -
# アセンブリのロード
Add-Type -AssemblyName System.Windows.Forms
Add-Type -AssemblyName System.Drawing
# フォーム全体の設定
$form = New-Object System.Windows.Forms.Form
$form.Text = "選択"
$form.Size = New-Object System.Drawing.Size(250,300)
$form.StartPosition = "CenterScreen"
# ラベルを表示
$label = New-Object System.Windows.Forms.Label
$label.Location = New-Object System.Drawing.Point(10,10)
$label.Size = New-Object System.Drawing.Size(230,20)
$label.Text = "好きな果物を選択してください"
# OKボタンの設定
$OKButton = New-Object System.Windows.Forms.Button
$OKButton.Location = New-Object System.Drawing.Point(40,200)
$OKButton.Size = New-Object System.Drawing.Size(75,30)
$OKButton.Text = "OK"
$OKButton.DialogResult = [System.Windows.Forms.DialogResult]::OK
# キャンセルボタンの設定
$CancelButton = New-Object System.Windows.Forms.Button
$CancelButton.Location = New-Object System.Drawing.Point(130,200)
$CancelButton.Size = New-Object System.Drawing.Size(75,30)
$CancelButton.Text = "Cancel"
$CancelButton.DialogResult = [System.Windows.Forms.DialogResult]::Cancel
# リストボックスの設定
$listBox = New-Object System.Windows.Forms.ListBox
$listBox.Location = New-Object System.Drawing.Point(10,30)
$listBox.Size = New-Object System.Drawing.Size(210,150)
# リストボックスに項目を追加
[void] $listBox.Items.Add("りんご")
[void] $listBox.Items.Add("みかん")
[void] $listBox.Items.Add("メロン")
[void] $listBox.Items.Add("レモン")
[void] $listBox.Items.Add("バナナ")
[void] $listBox.Items.Add("すいか")
[void] $listBox.Items.Add("いちご")
[void] $listBox.Items.Add("パパイヤ")
[void] $listBox.Items.Add("キュウイ")
[void] $listBox.Items.Add("オレンジ")
[void] $listBox.Items.Add("ぶどう")
# フォームにアイテムを追加
$form.Controls.Add($label)
$form.Controls.Add($OKButton)
$form.Controls.Add($CancelButton)
$form.Controls.Add($listBox)
# キーとボタンの関係
$form.AcceptButton = $OKButton
$form.CancelButton = $CancelButton
# フォームを最前面に表示
$form.Topmost = $True
# フォームを表示＋選択結果を変数に格納
$result = $form.ShowDialog()
# 選択後、OKボタンが押された場合、選択項目を表示
if ($result -eq "OK") {
$AAA = $listBox.SelectedItem
$AAA
}
else {
exit
}
この事例は、System.Windows.Forms.ListBox を含む Windows 画面を表示します。ListBox 以外は、前項と同じですので説明を省略します。 ３４〜３６行で、ListBox を作成と設定を行っています。 ３９〜４９行で、KistBox に項目を追加しています。 それでは、実行してみましょう。 下記のような Windows 画面が表示されます。ListBox( リストボックス ) の項目を適宜、選択して、[ OK ] ボタンをクリックして閉じてください。  すいか上記を実行すると PowerShell 7.15 でも、正常（同様）に、実行されます。 ただし、utf-8 保存したファイル(.ps1)で、実行すること。 PowerShell 7.4.6 でも、同様です。 |
次の事例を実行してみよう。
# ユーザーフォームを作る - リストボックス編 -
Add-Type -AssemblyName System.Windows.Forms
$form = New-Object System.Windows.Forms.Form
$form.Text = "選択"
$form.Size = "250,300"
$form.StartPosition = "CenterScreen"
$label = New-Object System.Windows.Forms.Label
$label.Location = "10,10"
$label.Size = "230,20"
$label.Text = "好きな果物を選択してください"
# 削除ボタンの設定
$Button = New-Object System.Windows.Forms.Button
$Button.Location = "40,200"
$Button.Size = "75,30"
$Button.Text = "削除"
# ボタンのクリックイベント
$Delete = {
# 選択している項目のインデックス番号をすべて取得
$select = $listBox.SelectedIndices
# 繰り返し処理
For ($i = $select.count - 1 ; $i -ge 0 ; $i-- ) {
# 選択した項目のn番目のインデックス番号を変数に入れる
$index = $select[$i]
# リストボックスのn番目の項目を削除する
$listBox.Items.RemoveAt($index)
}
}
$Button.Add_Click($Delete)
# リストボックスの設定
$listBox = New-Object System.Windows.Forms.ListBox
$listBox.Location = "10,30"
$listBox.Size = "210,150"
$listBox.SelectionMode = "MultiExtended"
# リストボックスに項目を追加
[void] $listBox.Items.AddRange(@("りんご","みかん","メロン","レモン","バナナ",
"すいか","いちご","パパイヤ","キュウイ"))
# フォームにアイテムを追加
$form.Controls.AddRange(@($label,$Button,$listBox))
# フォームを表示＋選択結果を変数に格納
$result = $form.ShowDialog()
$result
この事例は、ListBox の項目を削除するものです。２１〜３４行で、削除ボタンのクリックイベントを定義して、$Button.Add_Click($Delete) とクリックイベントを登録しています。 イベント処理の中身を見てみよう。２３行目で、選択された項目のインデックス配列を取得します。 ２６〜３２行で、１項目毎に削除しています。 ４０行目で、$listBox.SelectionMode = "MultiExtended" と複数個の項目を選択できるように設定ています。 ４３行目では、$listBox.Items.AddRange を利用して配列変数で項目を登録しています。 ４６行目では、$form.Controls.AddRange を利用して配列変数でアイテムをフォームに追加しています。 以外は、前項と同じです。 それでは、実行してみましょう。 下記のような Windows 画面が表示されます。ListBox( リストボックス ) の項目を適宜、選択して、[ 削除 ] ボタンをクリックしてください。  ⇒
 Cancel上記を実行すると PowerShell 7.15 でも、正常（同様）に、実行されます。 ただし、utf-8 保存したファイル(.ps1)で、実行すること。 PowerShell 7.4.6 でも、同様です。 |
次の事例を実行してみよう。
# ユーザーフォームを作る - チェックボックス編 -
# アセンブリのロード
Add-Type -AssemblyName System.Windows.Forms
# フォームの作成
$form = New-Object System.Windows.Forms.Form
$form.Size = "250,280"
$form.Startposition = "CenterScreen"
$form.Text = "選択"
# ラベルを作成
$label = New-Object System.Windows.Forms.Label
$label.Location = "10,20"
$label.Size = "250,20"
$label.Text = "好きな果物を選択してください"
# チェックボックスを作成
$CheckedBox = New-Object System.Windows.Forms.CheckedListBox
$CheckedBox.Location = "5,40"
$CheckedBox.Size = "220,150"
# 配列を作成
$RETU = ("りんご","みかん","メロン","レモン","バナナ","すいか","いちご","パパイヤ","キュウイ","オレンジ","ぶどう")
# チェックボックスに10項目を追加
$CheckedBox.Items.AddRange($RETU)
# すべての既存の選択をクリア
$CheckedBox.ClearSelected()
# OKボタンの設定
$OKButton = New-Object System.Windows.Forms.Button
$OKButton.Location = "40,200"
$OKButton.Size = "75,30"
$OKButton.Text = "OK"
$OKButton.DialogResult = [System.Windows.Forms.DialogResult]::OK
# キャンセルボタンの設定
$CancelButton = New-Object System.Windows.Forms.Button
$CancelButton.Location = "130,200"
$CancelButton.Size = "75,30"
$CancelButton.Text = "Cancel"
$CancelButton.DialogResult = [System.Windows.Forms.DialogResult]::Cancel
# フォームにアイテムを追加
$form.Controls.Add($label)
$form.Controls.Add($OKButton)
$form.Controls.Add($CancelButton)
$form.Controls.Add($CheckedBox)
# キーとボタンの関係
$form.AcceptButton = $OKButton
$form.CancelButton = $CancelButton
# 最前面に表示：する
$form.Topmost = $True
# フォームを表示
$result = $Form.ShowDialog()
# 処理分岐
if ( $result -eq "OK" ) {
$AAA = @($CheckedBox.CheckedItems)
$AAA
}
else {
exit
}
この事例は、前々項に対して、ListBox を CheckBox に変更したものです。 １９〜２１行で、CheckBox を作成しています。 ２４行目では、登録項目を配列変数 $RETU に格納します。 ２７行目では、$CheckedBox.Items.AddRange($RETU) と項目を登録しています。 ６３〜６９行で、閉じられた時のチェックされた項目を PowerShell 画面に表示しています。 以外は、これまで説明してきたことと同じです。 それでは、実行してみましょう。 下記のような Windows 画面が表示されます。ListBox( リストボックス ) の項目を適宜、選択して、[ 削除 ] ボタンをクリックしてください。  レモン すいか パパイヤ上記を実行すると PowerShell 7.15 でも、正常（同様）に、実行されます。 ただし、utf-8 保存したファイル(.ps1)で、実行すること。 PowerShell 7.4.6 でも、同様です。 |
次の事例を実行してみよう。
# ユーザーフォームを作る - ラジオボタン編 -
# アセンブリのロード
Add-Type -AssemblyName System.Windows.Forms
Add-Type -AssemblyName System.Drawing
# フォームを作る
$Form = New-Object System.Windows.Forms.Form
$Form.Size = New-Object System.Drawing.Size(300,260)
$Form.Text = "Gender&Age"
$Form.StartPosition = "CenterScreen"
# Gender(性別)グループを作る
$MyGroupBox = New-Object System.Windows.Forms.GroupBox
$MyGroupBox.Location = New-Object System.Drawing.Point(10,10)
$MyGroupBox.size = New-Object System.Drawing.Size(125,100)
$MyGroupBox.text = "Gender"
# Gender(性別)グループの中のラジオボタンを作る
$RadioButton1 = New-Object System.Windows.Forms.RadioButton
$RadioButton1.Location = New-Object System.Drawing.Point(20,20)
$RadioButton1.size = New-Object System.Drawing.Size(80,30)
$RadioButton1.Checked = $True
$RadioButton1.Text = "Man"
$RadioButton2 = New-Object System.Windows.Forms.RadioButton
$RadioButton2.Location = New-Object System.Drawing.Point(20,60)
$RadioButton2.size = New-Object System.Drawing.Size(80,30)
$RadioButton2.Text = "Woman"
# Age(年齢)グループを作る
$MyGroupBox1 = New-Object System.Windows.Forms.GroupBox
$MyGroupBox1.Location = New-Object System.Drawing.Point(145,10)
$MyGroupBox1.size = New-Object System.Drawing.Size(105,140)
$MyGroupBox1.text = "Age"
# Age(年齢)グループの中のラジオボタンを作る
$RadioButton3 = New-Object System.Windows.Forms.RadioButton
$RadioButton3.Location = New-Object System.Drawing.Point(20,20)
$RadioButton3.size = New-Object System.Drawing.Size(80,30)
$RadioButton3.Checked = $True
$RadioButton3.Text = "11〜30"
$RadioButton4 = New-Object System.Windows.Forms.RadioButton
$RadioButton4.Location = New-Object System.Drawing.Point(20,60)
$RadioButton4.size = New-Object System.Drawing.Size(80,30)
$RadioButton4.Text = "31〜50"
$RadioButton5 = New-Object System.Windows.Forms.RadioButton
$RadioButton5.Location = New-Object System.Drawing.Point(20,100)
$RadioButton5.size = New-Object System.Drawing.Size(80,30)
$RadioButton5.Text = "51〜100"
# OKボタンを作る
$OKButton = new-object System.Windows.Forms.Button
$OKButton.Location = New-Object System.Drawing.Point(55,170)
$OKButton.Size = New-Object System.Drawing.Size(80,40)
$OKButton.Text = "OK"
$OKButton.DialogResult = "OK"
# キャンセルボタンを作る
$CancelButton = new-object System.Windows.Forms.Button
$CancelButton.Location = New-Object System.Drawing.Point(145,170)
$CancelButton.Size = New-Object System.Drawing.Size(80,40)
$CancelButton.Text = "キャンセル"
$CancelButton.DialogResult = "Cancel"
# グループにラジオボタンを入れる
$MyGroupBox.Controls.AddRange(@($Radiobutton1,$RadioButton2))
$MyGroupBox1.Controls.AddRange(@($Radiobutton3,$RadioButton4,$RadioButton5))
# フォームに各アイテムを入れる
$Form.Controls.AddRange(@($MyGroupBox,$MyGroupBox1,$OKButton,$CancelButton))
# Enterキー、Escキーと各ボタンの関連付け
$Form.AcceptButton = $OKButton
$Form.CancelButton = $CancelButton
# フォームをアクティブにする＝Topmost？
$Form.TopMost = $True
# フォームを表示させ、押されたボタンの結果を受け取る
$dialogResult = $Form.ShowDialog()
# ボタン押下による条件分岐
if ($dialogResult -eq "OK") {
# 性別の判定
if ($RadioButton1.Checked) {
$Gender = "男性"
}
elseif ($RadioButton2.Checked) {
$Gender = "女性"
}
# 年齢の判定
if ($RadioButton3.Checked) {
$Age = "11 〜 30 代"
}
elseif ($RadioButton4.Checked) {
$Age = "31 〜 50 代"
}
elseif ($RadioButton5.Checked) {
$Age = "51 〜 100 代"
}
}
else {
exit
}
[System.Windows.Forms.MessageBox]::Show("Gender(性別)：$Gender`nAge (年齢)年齢：$Age" , "結果")
ここでは、あらたに GroupBox と RadioButton が出現します。 １４〜１７行で、性別の $MyGroupBox を作成しています。 １９〜２９行で、性別用の RadioButton を作成しています。 ３２〜３５行で、年齢の $MyGroupBox1 を作成ています。 ３７〜５２行で、年齢用の RadioButton を作成しています。 RadioButton を GroupBox に配置することで、排他的にチェックさせることができます。 ６９〜７０行で、それぞれの GroupBox に RadioButton を追加しています。 ８６〜１０９行で、[ OK ] ボタンで閉じられた時に、各グループのラジオボタンのチェック状況を解析します。 １１１行目では、解析結果をメッセージボックスで表示します。 以外は、これまでの事例と同じです。 それでは、実行してみましょう。 下記のような Windows 画面が表示されます。性別グループと年齢グループのラジオボタンを適宜、チェックして、[ OK ] ボタンをクリックしてください。  ⇒
 上記を実行すると PowerShell 7.15 でも、正常（同様）に、実行されます。 ただし、utf-8 保存したファイル(.ps1)で、実行すること。 PowerShell 7.4.6 でも、同様です。 |
次の事例を実行してみよう。
# ユーザーフォームを作る - コンボボックス編 -
# アセンブリのロード
Add-Type -AssemblyName System.Windows.Forms
Add-Type -AssemblyName System.Drawing
# フォントの指定
$Font = New-Object System.Drawing.Font("メイリオ",12)
# フォーム全体の設定
$form = New-Object System.Windows.Forms.Form
$form.Text = "選択"
$form.Size = New-Object System.Drawing.Size(300,200)
$form.StartPosition = "CenterScreen"
$form.font = $Font
# ラベルを表示
$label = New-Object System.Windows.Forms.Label
$label.Location = New-Object System.Drawing.Point(10,10)
$label.Size = New-Object System.Drawing.Size(270,20)
$label.Text = "好きな果物を選択してください"
$form.Controls.Add($label)
# OKボタンの設定
$OKButton = New-Object System.Windows.Forms.Button
$OKButton.Location = New-Object System.Drawing.Point(40,100)
$OKButton.Size = New-Object System.Drawing.Size(75,30)
$OKButton.Text = "OK"
$OKButton.DialogResult = [System.Windows.Forms.DialogResult]::OK
$form.AcceptButton = $OKButton
$form.Controls.Add($OKButton)
# キャンセルボタンの設定
$CancelButton = New-Object System.Windows.Forms.Button
$CancelButton.Location = New-Object System.Drawing.Point(130,100)
$CancelButton.Size = New-Object System.Drawing.Size(75,30)
$CancelButton.Text = "Cancel"
$CancelButton.DialogResult = [System.Windows.Forms.DialogResult]::Cancel
$form.CancelButton = $CancelButton
$form.Controls.Add($CancelButton)
# コンボボックスを作成
$Combo = New-Object System.Windows.Forms.Combobox
$Combo.Location = New-Object System.Drawing.Point(50,50)
$Combo.size = New-Object System.Drawing.Size(150,30)
$Combo.DropDownStyle = "DropDown"
# $Combo.DropDownStyle = "DropDownList"
# $Combo.DropDownStyle = "Simle"
$Combo.FlatStyle = "standard"
$Combo.font = $Font
$Combo.BackColor = "#005050"
$Combo.ForeColor = "white"
# コンボボックスに項目を追加
[void] $Combo.Items.Add("りんご")
[void] $Combo.Items.Add("みかん")
[void] $Combo.Items.Add("メロン")
[void] $Combo.Items.Add("いちご")
[void] $Combo.Items.Add("ぶどう")
# フォームにコンボボックスを追加
$form.Controls.Add($Combo)
# フォームを最前面に表示
$form.Topmost = $True
# フォームを表示＋選択結果を変数に格納
$result = $form.ShowDialog()
# 選択後、OKボタンが押された場合、選択項目を表示
if ($result -eq "OK") {
$AAA = $combo.Text
}
else {
exit
}
Write-Output $AAA
ここでは、新たに ComboBox が出現します。４３〜５２行で、ComboBox の作成と設定を行っています。 ５５〜５９行で、ComboBox に項目を登録しています。 ７１〜７８行で、選択結果を取得して、PowerShell 画面に表示します。 以外は、これまでの事例と同じです。 それでは、実行してみましょう。 下記のような Windows 画面が表示されます。ComboBox( コンボボックス ) の項目を適宜、選択して、[ OK ] ボタンをクリックしてください。  いちご上記を実行すると PowerShell 7.15 でも、正常（同様）に、実行されます。 ただし、utf-8 保存したファイル(.ps1)で、実行すること。 PowerShell 7.4.6 でも、同様です。 |
次の事例を実行してみよう。
# ユーザーフォームを作る - コンボボックス編 -
# アセンブリのロード
Add-Type -AssemblyName System.Windows.Forms
Add-Type -AssemblyName System.Drawing
# フォントの指定
$Font = New-Object System.Drawing.Font("メイリオ",12)
# フォーム全体の設定
$form = New-Object System.Windows.Forms.Form
$form.Text = "選択"
$form.Size = New-Object System.Drawing.Size(300,200)
$form.StartPosition = "CenterScreen"
$form.font = $Font
# ラベルを表示
$label = New-Object System.Windows.Forms.Label
$label.Location = New-Object System.Drawing.Point(10,10)
$label.Size = New-Object System.Drawing.Size(270,20)
$label.Text = "好きな果物を選択してください"
$form.Controls.Add($label)
# OKボタンの設定
$OKButton = New-Object System.Windows.Forms.Button
$OKButton.Location = New-Object System.Drawing.Point(40,100)
$OKButton.Size = New-Object System.Drawing.Size(75,30)
$OKButton.Text = "OK"
$OKButton.DialogResult = [System.Windows.Forms.DialogResult]::OK
$form.AcceptButton = $OKButton
$form.Controls.Add($OKButton)
# キャンセルボタンの設定
$CancelButton = New-Object System.Windows.Forms.Button
$CancelButton.Location = New-Object System.Drawing.Point(130,100)
$CancelButton.Size = New-Object System.Drawing.Size(75,30)
$CancelButton.Text = "Cancel"
$CancelButton.DialogResult = [System.Windows.Forms.DialogResult]::Cancel
$form.CancelButton = $CancelButton
$form.Controls.Add($CancelButton)
# コンボボックスを作成
$Combo = New-Object System.Windows.Forms.Combobox
$Combo.Location = New-Object System.Drawing.Point(50,50)
$Combo.size = New-Object System.Drawing.Size(150,30)
# $Combo.DropDownStyle = "DropDown"
$Combo.DropDownStyle = "DropDownList"
# $Combo.DropDownStyle = "Simle"
$Combo.FlatStyle = "standard"
$Combo.font = $Font
$Combo.BackColor = "#005050"
$Combo.ForeColor = "white"
# コンボボックスに項目を追加
[void] $Combo.Items.Add("りんご")
[void] $Combo.Items.Add("みかん")
[void] $Combo.Items.Add("メロン")
[void] $Combo.Items.Add("いちご")
[void] $Combo.Items.Add("ぶどう")
# フォームにコンボボックスを追加
$form.Controls.Add($Combo)
# フォームを最前面に表示
$form.Topmost = $True
# フォームを表示＋選択結果を変数に格納
$result = $form.ShowDialog()
# 選択後、OKボタンが押された場合、選択項目を表示
if ($result -eq "OK") {
$AAA = $combo.Text
}
else {
exit
}
Write-Output $AAA
この事例は、前項に対して、$Combo.DropDownStyle を "DropDown" から "DropDownList" に変更したものです。４７行目で、$Combo.DropDownStyle = "DropDownList" と設定されています。 それでは、実行してみましょう。 下記のような Windows 画面が表示されます。ComboBox( コンボボックス ) の項目を適宜、選択して、[ OK ] ボタンをクリックしてください。  メロン上記を実行すると PowerShell 7.15 でも、正常（同様）に、実行されます。 ただし、utf-8 保存したファイル(.ps1)で、実行すること。 PowerShell 7.4.6 でも、同様です。 |
次の事例を実行してみよう。
# ユーザーフォームを作る - ピクチャーボックス編 -
# アセンブリの読み込み
Add-Type -Assembly System.Windows.Forms
# フォーム全体の設定
$form = New-Object System.Windows.Forms.Form
$form.Text = "ピクチャーボックス"
$form.StartPosition = "CenterScreen"
$form.TopMost = $True
# ピクチャーボックスを作る
$PictureBox = New-Object System.Windows.Forms.PictureBox
# ファイルから画像データをロードして、$img に格納
$img = [system.drawing.image]::FromFile((pwd).Path + "\Penguins.jpg")
# $img = [system.drawing.image]::FromFile($args[0])
# ピクチャーボックスのサイズ ＝ 画像のサイズ
$PictureBox.ClientSize = $img.Size
# フォームのサイズ ＝ 画像のサイズ
$form.ClientSize = $img.Size
# ピクチャーボックスへ画像データの埋め込み
$PictureBox.Image = $img
# フォームへピクチャーボックスを配置
$form.Controls.Add($PictureBox)
# フォームを表示
$form.ShowDialog()
ここでは、新たに PictureBox が出現します。１３行目では、PictureBox を作成しています。 １６行目では、ファイルから画像データをロードして、$img に格納しています。 ２０行目では、$PictureBox.ClientSize = $img.Size と PictureBox のサイズに $img のサイズと同じに設定しています。 ２３行目では、$form.ClientSize = $img.Size とフォームのサイズも $img のサイズと同じに設定しています。 ２６行目では、ピクチャーボックスへ画像データの埋め込みます。 ２９行目では、フォームへピクチャーボックスを配置しています。 ３２行目では、フォームを表示（実行）しています。 それでは、実行してみましょう。 下記のような Windows 画面が表示されます。[ X ] ボタンをクリックして、閉じて下さい。  掲載当時(2016/07)は、正常に動作していたが、現在(2020/11)は、青色部のように、フルパスでしていしないと動作しない。 環境変化は、
PSVersion 5.0.10586.122 → 5.1.19041.610
OS Windows7 → Windows10
上記を実行するとPowerShell 7.15 でも、正常（同様）に、実行されます。 ただし、utf-8 保存したファイル(.ps1)で、実行すること。 PowerShell 7.4.6 でも、同様です。 |
次の事例を実行してみよう。# ユーザーフォームを作る - NumericUpDownコントロール編 - # アセンブリのロード Add-Type -AssemblyName System.Windows.Forms # フォーム全体の作成 $form = New-Object System.Windows.Forms.Form $form.Size = "300,100" $form.StartPosition = "CenterScreen" $form.MaximizeBox = $false $form.MinimizeBox = $false $form.text = "NumericUpDownコントロール" # NumericUpDownコントロールの作成 $Numeric = New-Object System.Windows.Forms.NumericUpDown $Numeric.location = "30,20" $Numeric.TextAlign = "Right" $Numeric.UpDownAlign = "Right" $Numeric.Maximum = "100" $Numeric.Minimum = "80" $Numeric.Text = "90" $Numeric.InterceptArrowKeys = $True # フォームにコントロールを追加 $form.Controls.Add($Numeric) # フォームを表示 $form.ShowDialog() $Numeric.Textここでは、新たに NumericUpDown が出現します。 １５〜２２行で、NumericUpDownコントロールの作成と設定を行っています。 ２５行目では、フォームにコントロールを追加しています。 以外は、これまでの事例と同じです。 それでは、実行してみましょう。 下記のような Windows 画面が表示されます。[ X ] ボタンをクリックして、閉じて下さい。  Cancel 95上記を実行すると PowerShell 7.15 でも、正常（同様）に、実行されます。 ただし、utf-8 保存したファイル(.ps1)で、実行すること。 PowerShell 7.4.6 でも、同様です。 |
次の事例を実行してみよう。# ユーザーフォームを作る - DatetimePickerコントロール編 - # アセンブリのロード Add-Type -AssemblyName System.Windows.Forms # フォーム全体の作成 $form = New-Object System.Windows.Forms.Form $form.Size = "300,100" $form.StartPosition = "CenterScreen" $form.MaximizeBox = $false $form.MinimizeBox = $false $form.Text = "DateTimePickerコントロール" # DatetimePickerコントロールの作成 $Date = New-Object System.Windows.Forms.DatetimePicker $Date.location = "30,20" $Date.Format = "Long" # フォームにコントロールを追加 $form.Controls.Add($Date) # フォームを表示 $form.ShowDialog() $Date.Textこの事例では、新たに DatetimePicker が出現します。 １５〜１７行で、DatetimePicker を作成しています。 ２０行目では、DatetimePicker を $form に追加しています。 以外は、これまでの事例と同じです。 それでは、実行してみましょう。 下記のような Windows 画面が表示されます。[ X ] ボタンをクリックして、閉じて下さい。  上記を実行すると PowerShell 7.15 でも、正常（同様）に、実行されます。 ただし、utf-8 保存したファイル(.ps1)で、実行すること。 PowerShell 7.4.6 でも、同様です。 |
次の事例を実行してみよう。
# ユーザーフォームを作る - スクロールバー編 -
# アセンブリのロード
Add-Type -AssemblyName System.Windows.Forms
#フォームの設定
$form = New-Object System.Windows.Forms.Form
$form.Size = "250,200"
$form.startposition = "centerscreen"
$form.text = "スクロールバー"
$form.MaximizeBox = $False
$form.MinimizeBox = $False
$form.BackColor = "lightgreen"
#スクロールバー
$Bar = New-Object System.Windows.Forms.HScrollBar
$Bar.Location = "10,50"
$Bar.size = "200,30"
$Bar.maximum = "100"
$Bar.minimum = "0"
$Bar.largechange = "1"
$form.Controls.Add($Bar)
#ラベル
$Label = New-Object System.Windows.Forms.Label
$Label.location = "50,90"
$Label.text = $Bar.value
$form.Controls.Add($Label)
#イベント
$Bar.Add_ValueChanged({$Label.text = $Bar.value})
# フォームを表示する
$Form.Showdialog()
この事例では、新たに HScrollBar が出現ます。１７〜２３行で、HScrollBar の作成と設定を行っています。 ３２行目では、$Bar.Add_ValueChanged({$Label.text = $Bar.value}) とスクロール位置をラベルで、表示します。 以外は、これまでの事例と同じです。 それでは、実行してみましょう。 下記のような Windows 画面が表示されます。[ X ] ボタンをクリックして、閉じて下さい。  上記を実行すると PowerShell 7.15 でも、正常（同様）に、実行されます。 ただし、utf-8 保存したファイル(.ps1)で、実行すること。 PowerShell 7.4.6 でも、同様です。 |
次の事例を実行してみよう。
# ユーザーフォームを作る - スクロールバー編 -
# アセンブリのロード
Add-Type -AssemblyName System.Windows.Forms
#フォームの設定
$form = New-Object System.Windows.Forms.Form
$form.Size = "250,270"
$form.startposition = "centerscreen"
$form.text = "スクロールバー"
$form.MaximizeBox = $False
$form.MinimizeBox = $False
$form.BackColor = "lightgreen"
#スクロールバー
$Bar = New-Object System.Windows.Forms.VScrollBar
$Bar.Location = "180,10"
$Bar.size = "30,200"
$Bar.maximum = "100"
$Bar.minimum = "0"
$Bar.largechange = "1"
$form.Controls.Add($Bar)
#ラベル
$Label = New-Object System.Windows.Forms.Label
$Label.location = "50,90"
$Label.text = $Bar.value
$form.Controls.Add($Label)
#イベント
$Bar.Add_ValueChanged({$Label.text = $Bar.value})
# フォームを表示する
$Form.Showdialog()
この事例では、新たに VScrollBar が出現ます。１７〜２３行で、VScrollBar の作成と設定を行っています。 ３２行目では、$Bar.Add_ValueChanged({$Label.text = $Bar.value}) とスクロール位置をラベルで、表示します。 以外は、これまでの事例と同じです。 それでは、実行してみましょう。 下記のような Windows 画面が表示されます。[ X ] ボタンをクリックして、閉じて下さい。  上記を実行すると PowerShell 7.15 でも、正常（同様）に、実行されます。 ただし、utf-8 保存したファイル(.ps1)で、実行すること。 PowerShell 7.4.6 でも、同様です。 |
次の事例を実行してみよう。
# イベントの記述方法
# アセンブリのロード
Add-Type -AssemblyName System.Windows.Forms
# フォーム
$form = New-Object System.Windows.Forms.Form
$form.Size = "250,200"
$form.startposition = "centerscreen"
$form.text = "イベント"
$form.MaximizeBox = $false
$form.MinimizeBox = $false
# ボタンA
$ButtonA = New-Object System.Windows.Forms.Button
$ButtonA.Location = "50,20"
$ButtonA.size = "80,30"
$ButtonA.text = "ボタンA"
$ButtonA.FlatStyle = "popup"
$form.Controls.Add($ButtonA)
# ボタンAのクリックイベント
$ButtonA.Add_Click({[System.Windows.Forms.MessageBox]::Show("ボタンAが押されました", "結果")})
# ラベル
$Label = New-Object System.Windows.Forms.Label
$Label.Location = "20,80"
$Label.Text = "この文字列をダブルクリック"
$Label.BackColor = "lightgreen"
$Label.AutoSize = $True
$form.Controls.Add($Label)
# ラベルのダブルクリックイベント
$Label.Add_DoubleClick({[System.Windows.Forms.MessageBox]::Show("ダブルクリックされました", "結果")})
# フォームの表示
$form.Showdialog()
この事例では、イベントの記述についてです。 ２３行目では、[ ボタンA ] ボタンのクリックイベントを登録しています。 ３４行目では、ラベルのダブルクリックイベントを登録しています。 以外は、これまでの事例と同じです。 それでは、実行してみましょう。 下記のような Windows 画面が表示されます。[ X ] ボタンをクリックして、閉じて下さい。  ⇒
 上記を実行すると PowerShell 7.15 でも、正常（同様）に、実行されます。 ただし、utf-8 保存したファイル(.ps1)で、実行すること。 PowerShell 7.4.6 でも、同様です。 |
次の事例を実行してみよう。
# ツールチップとマウスオーバーイベント
# アセンブリのロード
Add-Type -AssemblyName System.Windows.Forms
# ツールチップ
$Tooltip = New-Object System.Windows.Forms.Tooltip
$Tooltip.ShowAlways = $True
$Tooltip.ToolTipIcon = "none"
$Tooltip.ToolTipTitle = "タイトル"
$Tooltip.UseFading = $False
$Tooltip.AutoPopDelay = 3000
# フォーム
$form = New-Object System.Windows.Forms.Form
$form.Size = "200,200"
$form.StartPosition = "centerscreen"
$form.Text = "タイトル"
$form.MaximizeBox = $false
$form.MinimizeBox = $False
# ボタンA
$ButtonA = New-Object System.Windows.Forms.Button
$ButtonA.Location = "50,50"
$ButtonA.Size = "80,30"
$ButtonA.Text = "ボタンA"
$ButtonA.FlatStyle = "popup"
$form.Controls.Add($ButtonA)
# ボタンAのマウスオーバーイベント
$ButtonA.Add_MouseHOver({$Tooltip.SetToolTip($ButtonA,"表示させる文字列")})
# フォームの表示
$form.Showdialog()
この事例では、Tooltip と $ButtonA.Add_MouseHOver が出現します。７〜１２行で、Tooltip の作成と設定を行っています。 ３１行目では、ボタンAのマウスオーバーイベントとして、Tooltip を表示させます。 以外は、これまでの事例と同じです。 それでは、実行してみましょう。 下記のような Windows 画面が表示されます。[ X ] ボタンをクリックして、閉じて下さい。  上記を実行すると PowerShell 7.15 でも、正常（同様）に、実行されます。 ただし、utf-8 保存したファイル(.ps1)で、実行すること。 PowerShell 7.4.6 でも、同様です。 |
次の事例を実行してみよう。
# ストップウォッチ
# アセンブリの読み込み
Add-Type -AssemblyName System.Windows.Forms
Add-Type -AssemblyName System.Drawing
#ストップウォッチ
$Watch = New-Object System.Diagnostics.Stopwatch
#タイマー
$Timer = New-Object System.Windows.Forms.Timer
$Timer.Interval = 10
$Time = {
$Now = $Watch.Elapsed
$Label.Text = "$Now".substring(0,11)
}
$Timer.Add_Tick($Time)
# フォームの作成
$Time_Form = New-Object System.Windows.Forms.Form
$Time_Form.Size = "190,170"
$Time_Form.font = New-Object System.Drawing.Font("メイリオ",9)
$Time_Form.StartPosition = "CenterScreen"
$Time_Form.MinimizeBox = $False
$Time_Form.MaximizeBox = $False
$Time_Form.TopLevel = $True
$Time_Form.Text = "ストップウォッチ"
# 時間表示ラベル
$Label = New-Object System.Windows.Forms.Label
$Label.Location = "10,10"
$Label.Size = "150,50"
$Label.text = "00:00:00.00"
$Label.Font = New-Object System.Drawing.Font("メイリオ",16)
$Label.textAlign = "MiddleCenter"
# 開始・停止兼用ボタン
$Button = New-Object System.Windows.Forms.Button
$Button.Location = "10,70"
$Button.Size = "70,50"
$Button.Text = "開 始"
$Click = {
IF ( $Watch.IsRunning -eq $False ) { #ストップウォッチが起動していない時 = 計測を開始
$Timer.Start()
$Watch.Start()
$ResetButton.Enabled = $false
$Button.Text = "停 止"
}
else { #ストップウォッチが起動している時 = 計測を停止
$Timer.Stop()
$Watch.Stop()
$ResetButton.Enabled = $true
$Button.Text = "再 開"
}
}
$Button.Add_Click($Click)
# リセットボタン
$ResetButton = New-Object System.Windows.Forms.Button
$ResetButton.Location = "90,70"
$ResetButton.Size = "70,50"
$ResetButton.Text = "リセット"
$ResetButton.Enabled = $False
$Reset = {
$Label.text = "00:00:00.00"
$Watch.Reset()
$Button.Text = "開 始"
$ResetButton.Enabled = $False
}
$ResetButton.Add_Click($Reset)
# フォームに各アイテムを設置
$Time_Form.Controls.AddRange(@($Label,$Button,$ResetButton))
# フォームを表示
$Time_Form.ShowDialog()
この事例では、Stopwatch と Timer が出現します。 ８行目では、Stopwatch を作成しています。 １１〜１２行で、Timer の作成と設定を行っています。 １３〜１６行で、$Time にイベント処理を定義しています。 １７行目では、$Timer.Add_Tick($Time) とタイマーにイベントを登録しています。この事例では、10 ms 毎に処理されます。 ４２〜５６行で、開始・停止兼用ボタンがクリックさた時のイベント処理を定義し、登録しています。ストップウォッチが停止中( $Watch.IsRunning が $false ) と動作中( $Watch.IsRunning が $true ) のときに処理分岐しています。 ６４〜７０行で、リセットボタンがクリックされた時のイベント処理を定義し、登録しています。 以外は、これまでの事例と同じです。 それでは、実行してみましょう。 下記のような Windows 画面が表示されます。[ X ] ボタンをクリックして、閉じて下さい。  Cancel上記を実行すると PowerShell 7.15 でも、正常（同様）に、実行されます。 ただし、utf-8 保存したファイル(.ps1)で、実行すること。 PowerShell 7.4.6 でも、同様です。 |
次の事例を実行してみよう。
# メニューバー
# アセンブリのロード
Add-Type -AssemblyName System.Windows.Forms
# フォーム
$form = New-Object System.Windows.Forms.Form
$form.Size = "200,200"
$form.StartPosition = "CenterScreen"
$form.Text = "メニューバー"
$form.TopLevel = $True
$form.MaximizeBox = $False
$form.MinimizeBox = $False
# メニューバー
$Menu = New-Object System.Windows.Forms.MenuStrip
# 項目1
$Item1 = New-Object System.Windows.Forms.ToolStripMenuItem
$Item1.Text = "項目1"
# 項目1 - 子項目1
$SubMenu1 = New-Object System.Windows.Forms.ToolStripMenuItem
$SubMenu1.Text = "メッセージ その1 を表示"
# ショートカットキーCtrl+L
$SubMenu1.ShortcutKeys = [System.Windows.Forms.Keys]::Control, [System.Windows.Forms.Keys]::L
$Click01 = {
[System.Windows.Forms.MessageBox]::Show("メッセージその1が選択されました", "成功")
}
$SubMenu1.Add_Click($Click01)
# 子項目1の下にセパレーター（区切り線）を入れる
$Sepa = New-Object System.Windows.Forms.ToolStripSeparator
# 項目1 - 子項目2
$SubMenu2 = New-Object System.Windows.Forms.ToolStripMenuItem
$SubMenu2.Text = "閉じる"
# ショートカットキーCtrl+F12
$SubMenu2.ShortcutKeys = [System.Windows.Forms.Keys]::Control, [System.Windows.Forms.Keys]::F12
$Click02 = {
$form.Close()
}
$SubMenu2.Add_Click($Click02)
# 項目1に子項目を全て入れる
$Item1.DropDownItems.AddRange(@($SubMenu1,$Sepa,$SubMenu2))
# 項目2
$Item2 = New-Object System.Windows.Forms.ToolStripMenuItem
$Item2.Text = "項目2"
# 項目2 - 子項目1
$SubMenu3 = New-Object System.Windows.Forms.ToolStripMenuItem
$SubMenu3.Text = "メッセージ その2 を表示"
# ショートカットキーCtrl+G
$SubMenu3.ShortcutKeys = [System.Windows.Forms.Keys]::Control, [System.Windows.Forms.Keys]::G
$Click03 = {
[System.Windows.Forms.MessageBox]::Show("メッセージその2が選択されました", "成功")
}
$SubMenu3.Add_Click($Click03)
# 項目2 - 子項目2
$SubMenu4 = New-Object System.Windows.Forms.ToolStripMenuItem
$SubMenu4.Text = "メッセージ その3 を表示"
# ショートカットキーCtrl+T
$SubMenu4.ShortcutKeys = [System.Windows.Forms.Keys]::Control, [System.Windows.Forms.Keys]::T
$Click04 = {
[System.Windows.Forms.MessageBox]::Show("メッセージその3が選択されました", "成功")
}
$SubMenu4.Add_Click($Click04)
# 項目2に子項目を全て入れる
$Item2.DropDownItems.AddRange(@($SubMenu3,$SubMenu4))
# メニューバーに項目1・項目2を入れる
$Menu.Items.AddRange(@($Item1,$Item2))
#閉じるボタン
$Button = New-Object System.Windows.Forms.Button
$Button.Location = "50,80"
$Button.size = "80,30"
$Button.text = "閉じる"
$Button.FlatStyle = "popup"
$Button.DialogResult = [System.Windows.Forms.DialogResult]::Cancel
$form.Controls.AddRange(@($Menu,$Button))
$form.Showdialog()
この事例では、新たに MenuStrip , ToolStripMenuItem 及び ToolStripSeparator が出現します。 １６行目では、メニューバーを作成しています。 １９〜２０行で、１番目のメニューアイテムを作成しています。 ２２〜４３行で、１番目のメニューアイテムの子項目1、セパレータ及び子項目２のサブメニューの作成とクリックされた時のイベント処理の定義を行っています。 ４６行目では、作成したサブメニューを１番目のメニューアイテムに DropDownItems として、追加しています。 ４８〜７３行で、同様に、２番目のメニューアイテムを作成してます。 ７６行目では、１及び２番目のメニューアイテムをメニューバー( $Menu ) に追加しています。 以外は、これまでの事例と同じです。 それでは、実行してみましょう。 下記のような Windows 画面が表示されます。[ 閉じる ] ボタンをクリックして、閉じて下さい。 
 ⇒
 Cancel上記を実行すると PowerShell 7.15 でも、正常（同様）に、実行されます。 ただし、utf-8 保存したファイル(.ps1)で、実行すること。 PowerShell 7.4.6 でも、同様です。 |
次の事例を実行してみよう。
# イベントの記述方法
# アセンブリのロード
Add-Type -AssemblyName System.Windows.Forms
# フォーム
$form = New-Object System.Windows.Forms.Form
$form.Size = "250,200"
$form.startposition = "centerscreen"
$form.text = "イベント"
$form.MaximizeBox = $false
$form.MinimizeBox = $false
# 右クリックイベントの記述方法
$RightClick1 = {
IF( $_.Button -eq "Right" )
{
[System.Windows.Forms.MessageBox]::Show("右クリックされました！( form )", "結果")
}
}
$form.Add_MouseDown($RightClick1)
# ボタンA
$ButtonA = New-Object System.Windows.Forms.Button
$ButtonA.Location = "50,20"
$ButtonA.size = "80,30"
$ButtonA.text = "ボタンA"
$ButtonA.FlatStyle = "popup"
$form.Controls.Add($ButtonA)
# ボタンAのクリックイベント
$ButtonA.Add_Click({[System.Windows.Forms.MessageBox]::Show("ボタンAが押されました", "結果")})
# 右クリックイベントの記述方法
$RightClick = {
IF( $_.Button -eq "Right" )
{
[System.Windows.Forms.MessageBox]::Show("右クリックされました！( ButtonA )", "結果")
}
}
$ButtonA.Add_MouseDown($RightClick)
# ラベル
$Label = New-Object System.Windows.Forms.Label
$Label.Location = "20,80"
$Label.Text = "この文字列をダブルクリック"
$Label.BackColor = "lightgreen"
$Label.AutoSize = $True
$form.Controls.Add($Label)
# ラベルのダブルクリックイベント
$Label.Add_DoubleClick({[System.Windows.Forms.MessageBox]::Show("ダブルクリックされました", "結果")})
# 右クリックイベントの記述方法
$RightClick2 = {
IF( $_.Button -eq "Right" )
{
[System.Windows.Forms.MessageBox]::Show("右クリックされました！( Label )", "結果")
}
}
$Label.Add_MouseDown($RightClick2)
# フォームの表示
$form.Showdialog()
この事例では、マウス関連のイベントのサンプルを説明します。 １６〜２２行で、フォーム内で右クリックのイベントを定義しています。先ずは、MouseDown でイベントを取らえ処理の中で、右ボタンを識別します。 ３３行目では、ボタンＡがクリックされた時のイベント処理を定義しています。 ３７〜４３行で、ボタンＡ内で右クリックされた時のイベント処理を定義しています。 ５４行目では、ラベル内で、ダブルクリックされた時のイベント処理を定義しています。 ５８〜６４行で、ラベル内で、右クリックされた時のイベント処理を定義しています。 以外は、これまでの事例と同じです。 それでは、実行してみましょう。 下記のような Windows 画面が表示されます。[ X ] ボタンをクリックして、閉じて下さい。  Cancel上記を実行すると PowerShell 7.15 でも、正常（同様）に、実行されます。 ただし、utf-8 保存したファイル(.ps1)で、実行すること。 PowerShell 7.4.6 でも、同様です。 |
次の事例を実行してみよう。
# PowerShellでユーザーフォームを作る - リストビュー編 -
# アセンブリのロード
Add-Type -AssemblyName System.Windows.Forms
#フォーム
$Form = New-Object System.Windows.Forms.Form
$Form.Size = "340,250"
$Form.StartPosition = "CenterScreen"
$Form.Text = "メンバー一覧"
# リストビューの設置
$View = New-Object System.Windows.Forms.ListView
$View.Location = "10,10"
$View.Size = "300,150"
$View.View = "Details"
$View.GridLines = $True
# リストビューにヘッダーを追加
[void]$View.Columns.Add("名前",100)
[void]$View.Columns.Add("性別",100)
[void]$View.Columns.Add("年齢",95)
# 項目を追加
$Item = New-Object System.Windows.Forms.ListViewItem("山田 太郎")
[void]$Item.SubItems.Add("男")
[void]$Item.SubItems.Add("20")
[void]$View.Items.Add($Item)
$Item2 = New-Object System.Windows.Forms.ListViewItem("田中 花子")
[void]$Item2.SubItems.Add("女")
[void]$Item2.SubItems.Add("15")
[void]$View.Items.Add($Item2)
$Item3 = New-Object System.Windows.Forms.ListViewItem("鈴木 三郎")
[void]$Item3.SubItems.Add("男")
[void]$Item3.SubItems.Add("25")
[void]$View.Items.Add($Item3)
# ツールチップ
$Tooltip = New-Object System.Windows.Forms.Tooltip
$View.Add_MouseHOver({$Tooltip.SetToolTip($View,"表示させる文字列")})
#閉じるボタン
$Button = New-Object System.Windows.Forms.Button
$Button.Location = "230,170"
$Button.Size = "80,30"
$Button.Text = "閉じる"
$Button.FlatStyle = "popup"
$Button.DialogResult = [System.Windows.Forms.DialogResult]::Cancel
$Form.Controls.AddRange(@($View,$Button))
$Form.Showdialog()
この事例では、新たに ListView 及び ListViewItem が出現します。１２〜１６行で、ListView の作成と設定を行っています。 １９〜２１行で、リストビューにヘッダーを追加しています。 ２４〜３７行で、項目を追加しています。 ４０〜４１行で、ツールチップを作成して、リストビューへのマウスオーバーで表示するようにしています。 以外は、これまでの事例と同じです。 それでは、実行してみましょう。 下記のような Windows 画面が表示されます。[ X ] ボタンをクリックして、閉じて下さい。  Cancel上記を実行すると PowerShell 7.15 でも、正常（同様）に、実行されます。 ただし、utf-8 保存したファイル(.ps1)で、実行すること。 PowerShell 7.4.6 でも、同様です。 |
次の事例を実行してみよう。
# PowerShellでユーザーフォームを作る - リストビュー編 -
# アセンブリのロード
Add-Type -AssemblyName System.Windows.Forms
# フォーム
$Form = New-Object System.Windows.Forms.Form
$Form.Size = "340,250"
$Form.StartPosition = "CenterScreen"
$Form.Text = "メンバー一覧"
# リストビューの設置（チェック・ボックス付き）
$View = New-Object System.Windows.Forms.ListView
$View.Location = "10,10"
$View.Size = "300,150"
$View.View = "Details"
$View.GridLines = $True
$View.CheckBoxes = $True
# リストビューにヘッダーを追加
[void]$View.Columns.Add("名前",100)
[void]$View.Columns.Add("性別",100)
[void]$View.Columns.Add("年齢",95)
# 項目を追加
$Item = New-Object System.Windows.Forms.ListViewItem("山田 太郎")
[void]$Item.SubItems.Add("男")
[void]$Item.SubItems.Add("20")
[void]$View.Items.Add($Item)
$Item.Checked = $True
$Item2 = New-Object System.Windows.Forms.ListViewItem("田中 花子")
[void]$Item2.SubItems.Add("女")
[void]$Item2.SubItems.Add("15")
[void]$View.Items.Add($Item2)
$Item2.Checked = $True
$Item3 = New-Object System.Windows.Forms.ListViewItem("鈴木 三郎")
[void]$Item3.SubItems.Add("男")
[void]$Item3.SubItems.Add("25")
[void]$View.Items.Add($Item3)
$Item3.Checked = $True
# 処理開始ボタン
$Button_A = New-Object System.Windows.Forms.Button
$Button_A.Location = "50,170"
$Button_A.Size = "80,30"
$Button_A.Text = "処理開始"
$Button_A.FlatStyle = "popup"
# 処理開始ボタンのクリックイベント
$process = {
# 〜〜何らかの処理を記述〜〜
# チェックをはずす
$Item2.Checked = $False
# チェックを反転させる
if ( $Item3.Checked -eq $True ) {
$Item3.Checked = $False
}
else {
$Item3.Checked = $True
}
}
$Button_A.Add_Click($process)
$Button = New-Object System.Windows.Forms.Button
$Button.Location = "230,170"
$Button.Size = "80,30"
$Button.Text = "閉じる"
$Button.FlatStyle = "popup"
$Button.DialogResult = [System.Windows.Forms.DialogResult]::Cancel
$Form.Controls.AddRange(@($View,$Button_A,$Button))
$Form.Showdialog()
この事例は、前項に対して、チェックボックス付きアイテムを表示するものです。１７行目では、$View.CheckBoxes = $True とチェックボックス付きアイテムを有効にしています。 ５１〜６６行で、処理開始ボタンのクリックイベントを定義し、登録しています。チェックを外したり、反転させたりしています。 以外は、前項の事例と同じです。 それでは、実行してみましょう。 下記のような Windows 画面が表示されます。[ X ] ボタンをクリックして、閉じて下さい。  ⇒
 ⇒  ⇒
 Cancel上記を実行すると PowerShell 7.15 でも、正常（同様）に、実行されます。 ただし、utf-8 保存したファイル(.ps1)で、実行すること。 PowerShell 7.4.6 でも、同様です。 |
次の事例を実行してみよう。
# 詳細プロパティの取得
# シェルオブジェクトを作成
$Shell = New-Object -ComObject Shell.Application
# フォルダの指定
$Folder = $Shell.NameSpace((pwd).Path + "\Test")
# ファイルの指定
$File = $Folder.parseName("001.JPG")
# 詳細プロパティ(撮影日時)の取得
$GET = $Folder.GetDetailsOf($File,12)
Write-Host $GET
４行目では、シェルオブジェクトを作成しています。７行目では、ディレクトリのパスを $Folder に格納しています。 １０行目では、ファイル名を $File に格納しています。 １３行目では、１２番目のファイルプロパティを取得しています。 １５行目では、結果を PowerShell 画面に表示します。 それでは、実行してみましょう。下記のように撮影日時が表示されます。 2012/?11/?16 ??8:39 掲載当時(2016/07)は、正常に動作していたが、現在(2020/11)は、青色部のように、フルパスでしていしないと動作しない。 環境変化は、
PSVersion 5.0.10586.122 → 5.1.19041.610
OS Windows7 → Windows10
上記を実行するとPowerShell 7.15 でも、正常（同様）に、実行されます。 ただし、utf-8 保存したファイル(.ps1)で、実行すること。 PowerShell 7.4.6 でも、同様です。 |
次の事例を実行してみよう。[Console]::Beep(262, 500) #ド [Console]::Beep(294, 500) #レ [Console]::Beep(330, 500) #ミ [Console]::Beep(349, 500) #ファ [Console]::Beep(392, 500) #ソ [Console]::Beep(440, 500) #ラ [Console]::Beep(494, 500) #シ [Console]::Beep(523, 999) #ド実行してみてください。 上記を実行すると PowerShell 7.15 でも、正常（同様）に、実行されます。 ただし、utf-8 保存したファイル(.ps1)で、実行すること。 PowerShell 7.4.6 でも、同様です。 |
次の事例を実行してみよう。[Console]::Beep(440,100) [Console]::Beep(494,100) [Console]::Beep(554,300) [Console]::Beep(494,100) [Console]::Beep(440,100) Start-Sleep -milliseconds 100 [Console]::Beep(440,100) [Console]::Beep(494,100) [Console]::Beep(554,100) [Console]::Beep(494,100) [Console]::Beep(440,100) [Console]::Beep(494,600)実行してみてください。 上記を実行すると PowerShell 7.15 でも、正常（同様）に、実行されます。 ただし、utf-8 保存したファイル(.ps1)で、実行すること。 PowerShell 7.4.6 でも、同様です。 |
次の事例を実行してみよう。
for ($i = 0; $i -lt 100; $i ++) {
[System.Console]::Beep(450, 110)
[System.Console]::Beep(500, 110)
[System.Console]::Beep(550, 110)
[System.Console]::Beep(450, 110)
[System.Console]::Beep(675, 200)
[System.Console]::Beep(675, 200)
[System.Console]::Beep(600, 300)
[System.Console]::Beep(450, 110)
[System.Console]::Beep(500, 110)
[System.Console]::Beep(550, 110)
[System.Console]::Beep(450, 110)
[System.Console]::Beep(600, 200)
[System.Console]::Beep(600, 200)
[System.Console]::Beep(550, 300)
[System.Console]::Beep(525, 110)
[System.Console]::Beep(450, 300)
[System.Console]::Beep(450, 110)
[System.Console]::Beep(500, 110)
[System.Console]::Beep(550, 110)
[System.Console]::Beep(450, 110)
[System.Console]::Beep(500, 400)
[System.Console]::Beep(600, 300)
[System.Console]::Beep(500, 400)
[System.Console]::Beep(475, 200)
[System.Console]::Beep(450, 200)
[System.Console]::Beep(400, 200)
[System.Console]::Beep(600, 500)
[System.Console]::Beep(525, 500)
[System.Console]::Beep(450, 110)
[System.Console]::Beep(500, 110)
[System.Console]::Beep(550, 110)
[System.Console]::Beep(450, 110)
[System.Console]::Beep(675, 200)
[System.Console]::Beep(675, 200)
[System.Console]::Beep(600, 300)
[System.Console]::Beep(450, 110)
[System.Console]::Beep(500, 110)
[System.Console]::Beep(550, 110)
[System.Console]::Beep(450, 110)
[System.Console]::Beep(800, 200)
[System.Console]::Beep(500, 200)
[System.Console]::Beep(550, 300)
[System.Console]::Beep(525, 110)
[System.Console]::Beep(450, 300)
[System.Console]::Beep(450, 110)
[System.Console]::Beep(500, 110)
[System.Console]::Beep(550, 110)
[System.Console]::Beep(450, 110)
[System.Console]::Beep(500, 400)
[System.Console]::Beep(600, 300)
[System.Console]::Beep(500, 400)
[System.Console]::Beep(475, 200)
[System.Console]::Beep(450, 200)
[System.Console]::Beep(400, 200)
[System.Console]::Beep(600, 500)
[System.Console]::Beep(525, 500)
$i
}
実行してみてください。上記を実行すると PowerShell 7.15 でも、正常（同様）に、実行されます。 ただし、utf-8 保存したファイル(.ps1)で、実行すること。 PowerShell 7.4.6 でも、同様です。 |
次の事例を実行してみよう。
# ユーザーフォームを作る - 基礎編 -
# アセンブリの読み込み
Add-Type -AssemblyName System.Windows.Forms
Add-Type -AssemblyName System.Drawing
# フォームの作成
$form = New-Object System.Windows.Forms.Form
$form.Text = "入力"
$form.Size = New-Object System.Drawing.Size(260,180)
# OKボタンの設定
$OKButton = New-Object System.Windows.Forms.Button
$OKButton.Location = New-Object System.Drawing.Point(40,100)
$OKButton.Size = New-Object System.Drawing.Size(75,30)
$OKButton.Text = "OK"
$OKButton.DialogResult = "OK"
# 列挙子名：None, OK, Cancel, Abort, Retry, Ignore, Yes, No
# キャンセルボタンの設定
$CancelButton = New-Object System.Windows.Forms.Button
$CancelButton.Location = New-Object System.Drawing.Point(130,100)
$CancelButton.Size = New-Object System.Drawing.Size(75,30)
$CancelButton.Text = "Cancel"
$CancelButton.DialogResult = "Cancel"
# 列挙子名：None, OK, Cancel, Abort, Retry, Ignore, Yes, No
# ラベルの設定
$label = New-Object System.Windows.Forms.Label
$label.Location = New-Object System.Drawing.Point(10,30)
$label.Size = New-Object System.Drawing.Size(250,20)
$label.Text = "好きな言葉を入力してください"
# 入力ボックスの設定
$textBox = New-Object System.Windows.Forms.TextBox
$textBox.Location = New-Object System.Drawing.Point(10,70)
$textBox.Size = New-Object System.Drawing.Size(225,50)
# KeyDownイベントの記述方法
$Event = {
$PushKey = $_.KeyCode
[System.Windows.Forms.MessageBox]::Show("押されたキーは：${PushKey}です", "結果")
}
$textBox.Add_KeyDown($Event)
# キーとボタンの関係
# $form.AcceptButton = $OKButton
# $form.CancelButton = $CancelButton
# ボタン等をフォームに追加
$form.Controls.Add($OKButton)
$form.Controls.Add($CancelButton)
$form.Controls.Add($label)
$form.Controls.Add($textBox)
# フォームを表示させ、その結果を受け取る
$result = $form.ShowDialog()
# 結果による処理分岐
if ($result -eq "OK") {
$x = $textBox.Text
$x
}
この事例は、ユーザーフォーム ... 基礎編 に対して、KeyDownイベントを追加しました。３９〜４４行で、KeyDownイベントを設定しています。KeyDown 時のキー名をメッセージボックスで表示します。 それでは、実行してみましょう。 下記のような Windows 画面が表示されます。[ X ] ボタンをクリックして、閉じて下さい。  a上記を実行すると PowerShell 7.15 でも、正常（同様）に、実行されます。 ただし、utf-8 保存したファイル(.ps1)で、実行すること。 PowerShell 7.4.6 でも、同様です。 |
次の事例を実行してみよう。# タブコントロール # アセンブリのロード Add-Type -AssemblyName System.Windows.Forms # フォーム $Form = New-Object System.Windows.Forms.Form $Form.Size = "220,240" $Form.startposition = "CenterScreen" $Form.text = "タブ" # タブコントロール $TabControl = New-Object System.Windows.Forms.TabControl $TabControl.size = "200,200" # タブページ1 $Tab1 = New-Object System.Windows.Forms.TabPage $Tab1.Text = "タブ1" $Tab1.BackColor = "powderblue" # タブページ1の中のラベル $Tab1Label = New-Object System.Windows.Forms.Label $Tab1Label.location = "10,10" $Tab1Label.text = "タブ1のラベル" $Tab1.Controls.AddRange(@($Tab1Label)) # タブページ2 $Tab2 = New-Object System.Windows.Forms.TabPage $Tab2.Text = "タブ2" # タブページ2の中のボタン $Tab2Button = New-Object System.Windows.Forms.Button $Tab2Button.Location = "50,80" $Tab2Button.size = "80,30" $Tab2Button.text = "閉じる" $Tab2Button.DialogResult = [System.Windows.Forms.DialogResult]::Cancel $Tab2.Controls.AddRange(@($Tab2Button)) # タブコントロールに各タブページを入れる $TabControl.Controls.AddRange(@($Tab1,$Tab2)) # フォームにタブコントロールを入れる $Form.Controls.Add($TabControl) # フォームを表示 $Form.Showdialog()この事例では、新たに、TabControl 及び TabPage が出現します。 １３〜１４行で、TabControl の作成と設定を行っています。 １７〜１９行で、タブページ１の作成と設定を行っています。 ２２〜２５行で、タブページ１にラベルを追加しています。 ２８〜２９行で、タブページ２の作成と設定を行っています。 ３２〜３７行で、タブページ２にボタンを追加しています。 ４０行目では、タブコントロールに各タブページを入れています。 以外は、今までの事例と同じです。 それでは、実行してみましょう。 下記のような Windows 画面が表示されます。[ X ] ボタンをクリックして、閉じて下さい。  ⇒
 Cancel上記を実行すると PowerShell 7.15 でも、正常（同様）に、実行されます。 ただし、utf-8 保存したファイル(.ps1)で、実行すること。 PowerShell 7.4.6 でも、同様です。 |
次の事例を実行してみよう。
#コンテキストメニュー
Add-Type -AssemblyName System.Windows.Forms
$form = New-Object System.Windows.Forms.Form
$form.Size = "200,200"
$form.Startposition = "centerscreen"
$form.Text = "タイトル"
$Button = New-Object System.Windows.Forms.Button
$Button.Location = "50,80"
$Button.Size = "80,30"
$Button.Text = "閉じる"
$Button.FlatStyle = "Popup"
$Button.DialogResult = [System.Windows.Forms.DialogResult]::Cancel
$form.Controls.Add($Button)
# インスタンス化
$Context = New-Object System.Windows.Forms.ContextMenuStrip
# 項目を追加
[void]$Context.Items.Add("テスト1")
[void]$Context.Items.Add("テスト2")
[void]$Context.Items.Add("テスト3")
$Click = {
# クリックされた項目を文字列として取得
[String]$A = $_.ClickedItem
# コンテキストメニューを閉じる
$Context.Close()
# クリックされた項目によって、表示メッセージを変える
IF ( $A -eq "テスト1")
{
[System.Windows.Forms.MessageBox]::Show("テスト1が選択されました", "タイトル")
}elseif( $A -eq "テスト2" ){
[System.Windows.Forms.MessageBox]::Show("テスト2を選択しましたね？", "タイトル")
}else{
[System.Windows.Forms.MessageBox]::Show("テスト3を選択するとはお目が高い！", "タイトル")
}
}
$Context.Add_ItemClicked($Click)
# クリックイベントの内容
$RIght = {
IF ( $_.Button -eq "Right" )
{
$Context.Show()
}
}
$form.Add_MouseDown($RIght)
# フォームにコンテキストメニューを追加
$form.ContextMenuStrip = $Context
$form.Showdialog()
この事例では、新たに ContextMenuStrip が出現します。 １９行目では、ContextMenuStrip を作成しています。 ２２〜２４行で、ContextMenuStrip の項目を作成しています。 ２６〜４３行で、ContextMenuStrip の項目がクリックされた時のイベント処理を定義しています。 ４６〜５２行で、フォーム上で、右クリックされた時に ContextMenuStrip を開くイベント処理を定義しています。 以外は、今までの事例と同じです。 それでは、実行してみましょう。 下記のような Windows 画面が表示されます。[ X ] ボタンをクリックして、閉じて下さい。  Cancel上記を実行すると PowerShell 7.15 でも、正常（同様）に、実行されます。 ただし、utf-8 保存したファイル(.ps1)で、実行すること。 PowerShell 7.4.6 でも、同様です。 |
次の事例を実行してみよう。
# プログレスバー
Add-Type -AssemblyName System.Windows.Forms
$Form = New-Object System.Windows.Forms.Form
$Form.Size = "300,200"
$Form.Startposition = "CenterScreen"
$Form.Text = "プログレスバーのテスト"
$Button = New-Object System.Windows.Forms.Button
$Button.Location = "110,20"
$Button.Size = "80,30"
$Button.Text = "開始"
# プログレスバー
$Bar = New-Object System.Windows.Forms.ProgressBar
$Bar.Location = "10,100"
$Bar.Size = "260,30"
$Bar.Maximum = "10"
$Bar.Minimum = "0"
# $Bar.Style = "Blocks"
# $Bar.Style = "Continuous"
$Bar.Style = "Marquee"
$Bar.MarqueeAnimationSpeed = 10
# ボタンのクリックイベント
$Start = {
For ( $i = 0 ; $i -lt 10 ; $i++ )
{
$Bar.Value = $i+1
start-sleep -s 1
}
[System.Windows.Forms.MessageBox]::Show("完了しました", "info")
}
$Button.Add_Click($Start)
$Form.Controls.AddRange(@($Bar,$Button))
$Form.ShowDialog()
この事例では、あらたに ProgressBar が出現します。１６〜２４行で、ProgressBar の作成と設定を行っています。 ２７〜３５行で、開始ボタンをクリックした時のイベント処理を定義しています。１秒毎に ProgressBar の長さを増加させています。 以外は、今までの事例と同じです。 それでは、実行してみましょう。 下記のような Windows 画面が表示されます。[ X ] ボタンをクリックして、閉じて下さい。  Cancel上記を実行すると PowerShell 7.15 でも、正常（同様）に、実行されます。 ただし、utf-8 保存したファイル(.ps1)で、実行すること。 PowerShell 7.4.6 でも、同様です。 |
次の事例を実行してみよう。
# PowerShellでユーザーフォームを作る - リンクラベル編 -
Add-Type -AssemblyName System.Windows.Forms
$form = New-Object System.Windows.Forms.Form
$form.Size = "200,200"
$form.StartPosition = "centerscreen"
$form.Text = "タイトル"
# リンクラベル
$LinkLabel = New-Object System.Windows.Forms.LinkLabel
$LinkLabel.Location = "20,30"
$LinkLabel.Size = "150,30"
$LinkLabel.Text = "ここをクリックしてフォルダを開く"
$form.Controls.Add($LinkLabel)
# リンクラベルのクリックイベント
$JUMP = {
Invoke-Item -Path "C:\"
}
$LinkLabel.Add_Click($JUMP)
# ボタン
$Button = New-Object System.Windows.Forms.Button
$Button.Location = "50,80"
$Button.Size = "80,30"
$Button.Text = "閉じる"
$Button.DialogResult = [System.Windows.Forms.DialogResult]::Cancel
$form.Controls.Add($Button)
$form.Showdialog()
この事例では、新たに LinkLabel が出現します。１１〜１５行では、LinkLabel の作成と設定を行っています。 １８〜２１行で、LinkLabel をクリックした時のイベント処理を定義しています。処理内容は、Invoke-Item -Path "C:\" とエクスプローラを開きます。 以外は、今までの事例と同じです。 それでは、実行してみましょう。 下記のような Windows 画面が表示されます。[ X ] ボタンをクリックして、閉じて下さい。   Cancel上記を実行すると PowerShell 7.15 でも、正常（同様）に、実行されます。 ただし、utf-8 保存したファイル(.ps1)で、実行すること。 PowerShell 7.4.6 でも、同様です。 |
次の事例を実行してみよう。# PowerShellでユーザーフォームを作る - データグリッドビュー編 - Add-Type -AssemblyName System.Windows.Forms $form = New-Object System.Windows.Forms.Form $form.Size = "500,300" $form.Text = "タイトル" # データグリッドビュー $Grid = New-Object System.Windows.Forms.DataGridView $Grid.Size = "350,200" # 列数を指定する $Grid.ColumnCount = 3 # 列タイトルを指定する $Grid.Columns[0].Name = "番号" $Grid.Columns[1].Name = "氏名" $Grid.Columns[2].Name = "性別" # アイテムを追加する $Item = "01","野比 のび太","男" [void]$Grid.Rows.Add($Item[0],$Item[1],$Item[2]) $Item2 = "02","骨川 スネ夫","男" [void]$Grid.Rows.Add($Item2[0],$Item2[1],$Item2[2]) $Item3 = "03","剛田 ジャイ子","女" [void]$Grid.Rows.Add($Item3[0],$Item3[1],$Item3[2]) # 閉じるボタン $Button = New-Object System.Windows.Forms.Button $Button.Location = "400,230" $Button.Size = "80,30" $Button.Text = "閉じる" $Button.FlatStyle = "popup" $Button.DialogResult = [System.Windows.Forms.DialogResult]::Cancel $form.Controls.AddRange(@($Grid,$Button)) $form.Showdialog()この事例では、新たに DataGridView が出現します。 １０〜１４行で、DataGridView の作成と設定を行っています。 １７〜１９行で、列タイトルを指定しています。 ２２〜２９行で、列タイトルを指定しています。 以外は、今までの事例と同じです。 それでは、実行してみましょう。 下記のような Windows 画面が表示されます。[ X ] ボタンをクリックして、閉じて下さい。  Cancel上記を実行すると PowerShell 7.15 でも、正常（同様）に、実行されます。 ただし、utf-8 保存したファイル(.ps1)で、実行すること。 PowerShell 7.4.6 でも、同様です。 |
次の事例を実行してみよう。
# PowerShellでユーザーフォームを作る - サブフォーム編 -
Add-Type -AssemblyName System.Windows.Forms
# メインフォーム
$formA = New-Object System.Windows.Forms.Form
$formA.Size = "200,200"
$formA.StartPosition = "Manual"
$formA.Location = "0,0"
$formA.text = "メインフォーム"
$formA.MinimizeBox = $False
$formA.MaximizeBox = $False
#フォーム表示ボタン
$Button = New-Object System.Windows.Forms.Button
$Button.Location = "50,50"
$Button.size = "100,30"
$Button.text = "フォーム表示"
$formA.Controls.Add($Button)
# サブフォーム
$formB = New-Object System.Windows.Forms.Form
$formB.Size = "200,300"
$formB.StartPosition = "manual"
$formB.Location = "200,0"
$formB.MaximizeBox = $False
$formB.MinimizeBox = $false
$formB.text = "サブフォーム"
$formB.Owner = $formA
# サブフォームのクロージングイベント
$Close = {
$_.Cancel = $True
$formB.Visible = $false
}
$formB.Add_Closing($Close)
#フォーム表示ボタンのクリックイベント
$Click = {
$formB.Show()
}
$Button.Add_Click($Click)
#閉じるボタン
$CloseButton = New-Object System.Windows.Forms.Button
$CloseButton.Location = "50,100"
$CloseButton.size = "80,30"
$CloseButton.text = "閉じる"
$CloseButton.DialogResult = [System.Windows.Forms.DialogResult]::Cancel
$formA.Controls.Add($CloseButton)
$FormA.Showdialog()
この事例は、$formA と $formB の２個のフォームを作成しています。３２〜３６行で、$formB が閉じられた時のイベント処理を定義しています。戻り値を Cancel にして、自ら閉じています。 ３９〜４２行で、フォーム表示のボタンがクリックされた時のイベント処理を定義しています。 $formB.Show() とフォームBを開いています。 以外は、今までの事例と同じです。 それでは、実行してみましょう。 下記のような Windows 画面が表示されます。[ X ] ボタンをクリックして、閉じて下さい。  Cancel上記を実行すると PowerShell 7.15 でも、正常（同様）に、実行されます。 ただし、utf-8 保存したファイル(.ps1)で、実行すること。 PowerShell 7.4.6 でも、同様です。 |
次の事例を実行してみよう。
# PowerShellでユーザーフォームを作る - トグルボタン編 -
# アセンブリのロード
Add-Type -AssemblyName System.Windows.Forms
# フォーム
$form = New-Object System.Windows.Forms.Form
$form.Size = "260,200"
$form.StartPosition = "CenterScreen"
$form.Text = "選択"
$form.TopLevel = $True
$form.MinimizeBox = $False
$form.MaximizeBox = $False
# ラベル1
$label1 = New-Object System.Windows.Forms.Label
$label1.Location = "10,20"
$label1.Size = "160,30"
$label1.Text = "問1） あなたは男性ですか？"
$label1.TextAlign = "MiddleLeft"
# チェックボックス1
$CheckBox1 = New-Object System.Windows.Forms.CheckBox
$CheckBox1.location = "180,20"
$CheckBox1.size = "50,30"
$CheckBox1.Text = "はい"
$CheckBox1.TextAlign = "MiddleCenter"
$CheckBox1.Appearance = "Button"
$CheckBox1.FlatStyle = "System"
$change1 = {
IF ( $CheckBox1.text -eq "はい")
{
$CheckBox1.text = "いいえ"
}else{
$CheckBox1.text = "はい"
}
}
$CheckBox1.Add_CheckedChanged($change1)
# ラベル2
$label2 = New-Object System.Windows.Forms.Label
$label2.Location = "10,60"
$label2.Size = "160,30"
$label2.Text = "問2） あなたは10代ですか？"
$label2.TextAlign = "MiddleLeft"
# チェックボックス2
$CheckBox2 = New-Object System.Windows.Forms.CheckBox
$CheckBox2.location = "180,60"
$CheckBox2.size = "50,30"
$CheckBox2.Text = "はい"
$CheckBox2.TextAlign = "MiddleCenter"
$CheckBox2.Appearance = "Button"
$CheckBox2.FlatStyle = "System"
$change2 = {
IF ( $CheckBox2.text -eq "はい")
{
$CheckBox2.text = "いいえ"
}else{
$CheckBox2.text = "はい"
}
}
$CheckBox2.Add_CheckedChanged($change2)
# OKボタン
$OKButton = New-Object System.Windows.Forms.Button
$OKButton.Location = "30,120"
$OKButton.Size = "75,30"
$OKButton.Text = "OK"
$OKButton.DialogResult = [System.Windows.Forms.DialogResult]::OK
# キャンセルボタン
$CancelButton = New-Object System.Windows.Forms.Button
$CancelButton.Location = "130,120"
$CancelButton.Size = "75,30"
$CancelButton.Text = "Cancel"
$CancelButton.DialogResult = [System.Windows.Forms.DialogResult]::Cancel
# フォームにアイテムを追加
$form.Controls.AddRange(@($label1,$label2,$CheckBox1,$CheckBox2,$OKButton,$CancelButton))
# フォームを表示
$result = $Form.ShowDialog()
if( $result -eq "OK" )
{
[System.Windows.Forms.MessageBox]::Show("回答ありがとうございました", "<感謝>")
}
$CheckBox1.text
$CheckBox2.text
この事例では、CheckBox を利用して、トグルボタンを作成しています。 ２３〜３８行で、チェックボックス1（トグルボタン）の作成と設定を行っています。 ３０〜３８行で、チェックボックス1がクリックされる毎に、[ はい ] と [ いいえ ] を入れ替えています。 ４８〜６３行で、同様にチェックボックス2（トグルボタン）の作成と設定を行っています。 以外は、今までの事例と同じです。 それでは、実行してみましょう。 下記のような Windows 画面が表示されます。[ X ] ボタンをクリックして、閉じて下さい。  ⇒
 ⇒
 OK はい いいえ上記を実行すると PowerShell 7.15 でも、正常（同様）に、実行されます。 ただし、utf-8 保存したファイル(.ps1)で、実行すること。 PowerShell 7.4.6 でも、同様です。 |
次の事例を実行してみよう。
# PowerShellでユーザーフォームを作る - ツリービュー編 -
# アセンブリのロード
Add-Type -AssemblyName System.Windows.Forms
$form = New-Object System.Windows.Forms.Form
$form.Size = "200,300"
$form.StartPosition = "CenterScreen"
$form.Text = "TreeView"
# TreeViewクラス
$TreeView = New-Object System.Windows.Forms.TreeView
$TreeView.Location = "10,10"
$TreeView.Size = "150,200"
# 親ノードを入れる
[void]$TreeView.Nodes.Add("親1")
[void]$TreeView.Nodes.Add("親2")
[void]$TreeView.Nodes.Add("親3")
# 子ノードを入れる
[void]$TreeView.Nodes[0].Nodes.Add("子1")
[void]$TreeView.Nodes[0].Nodes.Add("子2")
[void]$TreeView.Nodes[2].Nodes.Add("子3")
# 孫ノードを入れる
[void]$TreeView.Nodes[0].Nodes[0].Nodes.Add("孫1")
$Button = New-Object System.Windows.Forms.Button
$Button.Location = "50,220"
$Button.Size = "80,30"
$Button.Text = "開く"
$open_close = {
if ( $Button.Text -eq "開く")
{
$TreeView.ExpandAll()
$button.Text = "閉じる"
}else{
$TreeView.CollapseAll()
$button.Text = "開く"
}
}
$Button.Add_Click($open_close)
$form.Controls.AddRange(@($TreeView,$Button))
$Form.Showdialog()
この事例では、新たに TreeView が出現します。１２〜１４行で、TreeView の作成と設定を行っています。 １７〜１９行で、親ノードを追加しています。 ２２〜２４行で、子ノードを追加しています。 ２７行目では、孫ノードを追加しています。 ２９〜４３行で、[ 開く ] ←→ [ 閉じる ] ボタンを作成しています。 以外は、今までの事例と同じです。 それでは、実行してみましょう。 下記のような Windows 画面が表示されます。[ X ] ボタンをクリックして、閉じて下さい。  ⇒
 Cancel上記を実行すると PowerShell 7.15 でも、正常（同様）に、実行されます。 ただし、utf-8 保存したファイル(.ps1)で、実行すること。 PowerShell 7.4.6 でも、同様です。 |
次の事例を実行してみよう。
# ListView ドラッグ＆ドロップで項目を移動させる
Add-Type -AssemblyName System.Windows.Forms
$form = New-Object System.Windows.Forms.Form
$form.Size = "400,230"
$form.StartPosition = "CenterScreen"
$form.Text = "リストビュー"
# ListView
$View = New-Object System.Windows.Forms.ListView
$View.Location = "10,10"
$View.Size = "360,130"
$View.View = "Details"
$View.GridLines = $True
$View.AllowDrop = $True
$View.MultiSelect = $False # 複数選択：不可
#アイテムドラッグイベント
$DragItem = {
$View.DoDragDrop($_.Item, "Move" )
}
$View.Add_ItemDrag($DragItem)
#ドラッグエンターイベント
$Enter = {
$_.Effect = "Move"
$script:name = $View.SelectedItems.SubItems[0].Text #ファイル名
$script:page = $View.SelectedItems.SubItems[1].Text #ページ数
$script:size = $View.SelectedItems.SubItems[2].Text #サイズ
$script:index = $View.SelectedItems.Index #インデックス番号
}
$View.Add_DragEnter($Enter)
#ドラッグオーバーイベント
$Over = {
#マウスポインタの座標から、どの項目の上に移動しているか判断する
$where = New-Object System.Drawing.Point($_.X , $_.Y)
$point = $View.PointToClient($where)
$OverItem = $View.GetItemAt($point.X,$point.Y)
#ドラッグオーバーしている項目を選択状態にする。
$select = $View.Items.IndexOf($OverItem)
IF ( -Not ( $select -eq "-1" ) )
{
$OverItem.Selected = $True
}
#インデックス番号を一時保管
$script:index2 = $select
}
$View.Add_DragOver($Over)
#ドラッグドロップイベント
$Drop = {
$Element_Name = $name
$Element_Page = $page
$Element_Size = $size
$Element_Index = [int32]$index
#移動先のインデックス番号から分岐
IF ( $index2 -eq "-1" ) #「-1」の場合は最後尾に設定
{
$After_Index = $View.Items.Count
}else{ #「-1」以外の場合は、選択した項目のインデックスに設定
$After_Index = $View.SelectedItems.Index
}
# 項目の移動を実行
$Item = New-Object System.Windows.Forms.ListViewItem("$Element_Name") # ファイル名
[void]$Item.SubItems.Add("$Element_Page") # ページ数
[void]$Item.SubItems.Add("$Element_Size") # サイズ
[void]$View.Items.Insert($After_Index,$Item)
#移動元の項目 > 移動先の項目 の場合は、移動元インデックスに+1する
IF ( $Element_Index -gt $After_Index ) { $Element_Index += 1 }
#元の項目を削除
$View.Items[$Element_Index].Remove()
#移動した項目を選択する
$Item.Selected = $True
}
$View.Add_DragDrop($Drop)
# リストビューにヘッダーを追加
[void]$View.Columns.Add("ファイル名",150)
[void]$View.Columns.Add("ページ数",100)
[void]$View.Columns.Add("サイズ",100)
#項目を追加======================================================
$Item1 = New-Object System.Windows.Forms.ListViewItem("ファイルA.pdf")
[void]$Item1.SubItems.Add("3")
[void]$Item1.SubItems.Add("0.26")
[void]$View.Items.Add($Item1)
$Item2 = New-Object System.Windows.Forms.ListViewItem("ファイルBB.pdf")
[void]$Item2.SubItems.Add("50")
[void]$Item2.SubItems.Add("6.90")
[void]$View.Items.Add($Item2)
$Item3 = New-Object System.Windows.Forms.ListViewItem("ファイルCCC.pdf")
[void]$Item3.SubItems.Add("23")
[void]$Item3.SubItems.Add("1.50")
[void]$View.Items.Add($Item3)
$Item4 = New-Object System.Windows.Forms.ListViewItem("ファイルDDDD.pdf")
[void]$Item4.SubItems.Add("100")
[void]$Item4.SubItems.Add("5.03")
[void]$View.Items.Add($Item4)
#============================================================
# 閉じるボタン
$Button = New-Object System.Windows.Forms.Button
$Button.Location = "290,150"
$Button.size = "80,30"
$Button.text = "閉じる"
$Button.DialogResult = [System.Windows.Forms.DialogResult]::Cancel
$form.Controls.AddRange(@($View,$Button))
$form.Showdialog()
この事例では、新たに ListView が出現します。１１〜17行で、ListView の作成と設定を行っています。 ２０〜２３行で、ドラッグした時にそのアイテムを移動するイベント処理を定義しています。 ２６〜３３行で、ドラッグ始めたときにそのアイテム諸元を変数に退避するイベント処理を定義しています。 ３６〜５３行で、ドラッグして、マウスを移動させている時に、どのアイテムの領域にいるかを監視するイベント処理を定義しています。 ５６〜８５行で、ドロップされた時にアイテムを移動させるイベント処理を定義しています。 ８８〜９０行で、リストビューにヘッダーを追加しています。 ９３〜１１１行で、項目を追加しています。 以外は、今までの事例と同じです。 それでは、実行してみましょう。 下記のような Windows 画面が表示されます。[ X ] ボタンをクリックして、閉じて下さい。  ⇒
 Cancel上記を実行すると PowerShell 7.15 でも、正常（同様）に、実行されます。 ただし、utf-8 保存したファイル(.ps1)で、実行すること。 PowerShell 7.4.6 でも、同様です。 |
次の事例を実行してみよう。#PowerShellでユーザーフォームを作る - 設定ファイル 読み込み編 - #xmlファイルの読み込み $xml = [XML](Get-Content "setting_u.xml") #それぞれを取得し、変数へ格納 $xml_name = $xml.root.name $xml_id = $xml.root.userid $xml_path = $xml.root.path $xml_color = $xml.root.color #アセンブリのロード Add-Type -AssemblyName System.Windows.Forms #フォーム $form = New-Object System.Windows.Forms.Form $form.Size = "300,200" $form.StartPosition = "CenterScreen" $form.Text = "設定" $form.BackColor = $xml_color #ラベル 名前 $NameLabel = New-Object System.Windows.Forms.Label $NameLabel.Location = "10,10" $NameLabel.Size = "100,20" $NameLabel.Text = "名前" #テキストボックス 名前 $Name = New-Object System.Windows.Forms.TextBox $Name.Location = "10,30" $Name.Size = "250,20" $Name.Text = $xml_name #ラベル アカウントID $IDLabel = New-Object System.Windows.Forms.Label $IDLabel.Location = "10,60" $IDLabel.Size = "100,20" $IDLabel.Text = "アカウントID" #テキストボックス ID $ID = New-Object System.Windows.Forms.TextBox $ID.Location = "10,80" $ID.Size = "250,20" $ID.Text = $xml_id #ラベル パス $PathLabel = New-Object System.Windows.Forms.Label $PathLabel.Location = "10,110" $PathLabel.Size = "100,20" $PathLabel.Text = "パス" #テキストボックス パス $Path = New-Object System.Windows.Forms.TextBox $Path.Location = "10,130" $Path.Size = "250,20" $Path.Text = $xml_path $form.Controls.AddRange(@($NameLabel,$Name,$IDLabel,$ID,$PathLabel,$Path)) $Form.Showdialog() $Name.Text $ID.Text $Path.Textこの事例では、新たに、xmlファイルの読み込みが出現します。 ４行目では、下記のような xml ファイルを読み込んでいます。 <?xml version="1.0" encoding="utf-8"?> <root> <name>舛添 要一</name> <userid>Y.Msuzoe</userid> <path>C:\Users\masuzoe\Desktop</path> <color>lightblue</color> </root>７〜１０行で、読み込んだデータを変数へ格納しています。 格納されたデータは、２０、３２、４４及び５６行で、利用されています。 以外は、今までの事例と同じです。 それでは、実行してみましょう。 下記のような Windows 画面が表示されます。[ X ] ボタンをクリックして、閉じて下さい。  Cancel 舛添 要一 Y.Msuzoe C:\Users\masuzoe\Desktop上記を実行すると PowerShell 7.15 でも、正常（同様）に、実行されます。 ただし、utf-8 保存したファイル(.ps1)で、実行すること。 PowerShell 7.4.6 でも、同様です。 |
次の事例を実行してみよう。
# PowerShellでユーザーフォームを作る - 設定ファイル 書き込み(保存)編 -
# xmlの事前処理 = = = = = = = = = = = = = = = = = = = = = = = = = #
#xmlファイルのパス
$xmlPath = "setting_u.xml"
$xmlPath_w = (pwd).Path + "\setting_u_w.xml"
#xmlファイルの読み込み
$xml = [XML](Get-Content $xmlPath)
#それぞれを取得し、変数に格納しておく
$AAA = $xml.root.name
$BBB = $xml.root.userid
$CCC = $xml.root.path
# = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = #
#アセンブリのロード
Add-Type -AssemblyName System.Windows.Forms
Add-Type -AssemblyName System.Drawing
#フォームの作成
$form = New-Object System.Windows.Forms.Form
$form.Size = "380,200"
$form.startposition = "centerscreen"
$form.text = "設定"
#「名前」- - - - - - - - - - - - - - - - - - - - - - - - - - - - -
$NameLabel = New-Object System.Windows.Forms.Label
$NameLabel.Location = "10,10"
$NameLabel.Size = "100,20"
$NameLabel.Text = "名前"
$Name = New-Object System.Windows.Forms.TextBox
$Name.Location = "10,30"
$Name.Size = "250,20"
$Name.Text = $AAA
#「アカウントID」- - - - - - - - - - - - - - - - - - - - - - - - -
$IDLabel = New-Object System.Windows.Forms.Label
$IDLabel.Location = "10,60"
$IDLabel.Size = "100,20"
$IDLabel.Text = "アカウントID"
$ID = New-Object System.Windows.Forms.TextBox
$ID.Location = "10,80"
$ID.Size = "250,20"
$ID.Text = $BBB
#「パス」- - - - - - - - - - - - - - - - - - - - - - - - - - - - -
$PathLabel = New-Object System.Windows.Forms.Label
$PathLabel.Location = "10,110"
$PathLabel.Size = "100,20"
$PathLabel.Text = "パス"
$Path = New-Object System.Windows.Forms.TextBox
$Path.Location = "10,130"
$Path.Size = "250,20"
$Path.Text = $CCC
# 設定保存ボタン- - - - - - - - - - - - - - - - - - - - - - - - -
$SaveButton = New-Object System.Windows.Forms.Button
$SaveButton.Location = "280,120"
$SaveButton.Size = "80,30"
$SaveButton.Text = "設定保存"
$SaveButton.FlatStyle = "Flat"
$SaveButton.BackColor = "lightblue"
# 設定保存ボタンのクリックイベント
$Save = {
# 配列を作成
$array = ("name", "userid", "path") # 変更箇所
$new_text = ($Name.Text, $ID.Text, $Path.Text) # 新しい要素
# XpathNavigatorの作成
$Navi = [XML.Xpath.XpathNavigator] $xml.CreateNavigator()
For ( $a = 0 ; $a -lt $array.Count ; $a++ )
{
# 変更する場所
$position = $array[$a]
# 新しい要素
$text = $new_text[$a]
# 変更する場所を指定
$Nodes = $Navi.Select("/root/$position")
# 値を変更
while ( $Nodes.MoveNext() )
{
$Nodes.Current.SetValue("$text")
}
}
# xmlファイルを上書き保存
$xmlSetting = New-Object System.Xml.XmlWriterSettings
$xmlSetting.Indent = $True
$xmlWriter = [System.Xml.XmlWriter]::Create($xmlPath_w,$xmlSetting)
$Navi.MoveToRoot()
$Navi.WriteSubtree($xmlWriter)
$xmlWriter.Close()
[System.Windows.Forms.MessageBox]::Show("保存されました", "保存完了")
}
$SaveButton.Add_Click($Save)
$form.Controls.AddRange(@($NameLabel,$Name,$IDLabel,$ID,$PathLabel,$Path,$SaveButton))
$Form.Showdialog()
この事例では、新たに、xmlファイルの書き込みが出現します。４行目と５行目で、読み込み用と書き込み用のパスが定義されています。 読み込みと利用は、前項と同じです。 ６９〜１０５行で、設定保存ボタンのクリックイベントとして、xml ファイルへの書き込み処理が定義されています。 以外は、今までの事例と同じです。 それでは、実行してみましょう。 下記のような Windows 画面が表示されます。[ X ] ボタンをクリックして、閉じて下さい。  ⇒
 ⇒
 Cancel設定保存後のファイルは、下記です。 <?xml version="1.0" encoding="utf-8"?> <root> <name>舛添 要一（変更）</name> <userid>Y.Msuzoe(change)</userid> <path>C:\Users\masuzoe\Desktop</path> <color>lightblue</color> </root> 掲載当時(2016/07)は、正常に動作していたが、現在(2020/11)は、青色部のように、フルパスでしていしないと動作しない。 何故か、読み込みは、カレント・ファイルで、アクセスできている。 環境変化は、
PSVersion 5.0.10586.122 → 5.1.19041.610
OS Windows7 → Windows10
上記を実行するとPowerShell 7.15 でも、正常（同様）に、実行されます。 ただし、utf-8 保存したファイル(.ps1)で、実行すること。 PowerShell 7.4.6 でも、同様です。 |
次の事例を実行してみよう。
# PowerShellでマウスポインタの座標を取得する
# アセンブリのロード
Add-Type -AssemblyName System.Windows.Forms
# フォームの作成・ボタンの作成
$form = New-Object System.Windows.Forms.Form
$form.Size = "200,200"
# Manual, CenterScreen, WindowsDefaultLocation, WindowsDefaultBounds, CenterParent
# $form.StartPosition = "CenterScreen"
$form.StartPosition = "Manual"
$form.Location = "0,0"
# $form.StartPosition = "WindowsDefaultLocation"
# $form.StartPosition = "WindowsDefaultBounds"
# $form.StartPosition = "CenterParent"
$Button = New-Object System.Windows.Forms.Button
$Button.Location = "50,50"
$Button.Size = "100,50"
$Button.Text = "クリック！"
# クリックイベント
$click = {
for ( $a = 0 ; $a -lt 10 ; $a++ )
{
$x = [System.Windows.Forms.Cursor]::Position.X # マウスのX座標
$y = [System.Windows.Forms.Cursor]::Position.Y # マウスのY座標
Write-Host "マウスの現在座標は($x,$y)です"
Start-Sleep(1)
}
Write-Host "終わり"
}
$Button.Add_Click($click)
$form.Controls.Add($Button)
$Form.Showdialog()
$form.Location
$Button.Location
この事例は、マウスポインタの座標を取得するものです。２３〜３３行で、クリック！ボタンのクリックイベントが定義されています。1秒毎に１０回マウス座標を読み込み、PowerShell 画面に表示します。 以外は、今までの事例と同じです。 それでは、実行してみましょう。 下記のような Windows 画面が表示されます。[ X ] ボタンをクリックして、閉じて下さい。  マウスの現在座標は(102,102)です マウスの現在座標は(383,217)です マウスの現在座標は(588,378)です マウスの現在座標は(774,656)です マウスの現在座標は(859,415)です マウスの現在座標は(833,90)です マウスの現在座標は(739,63)です マウスの現在座標は(301,47)です マウスの現在座標は(27,13)です マウスの現在座標は(16,0)です 終わり Cancel IsEmpty X Y ------- - - True 0 0 False 50 50上記を実行すると PowerShell 7.15 でも、正常（同様）に、実行されます。 ただし、utf-8 保存したファイル(.ps1)で、実行すること。 PowerShell 7.4.6 でも、同様です。 |
