# アセンブリの読み込み
Add-Type -Assembly System.Windows.Forms
# メッセージボックスの表示
[System.Windows.Forms.MessageBox]::Show("ここにメッセージ", "タイトル") 

# アセンブリの読み込み
Add-Type -Assembly System.Windows.Forms

# メッセージボックスの表示
[System.Windows.Forms.MessageBox]::Show("メッセージボックスのテスト", "ここがタイトル", `
					"OKCancel", "Asterisk","button2") 

# Show message box popup and return the button clicked by the user. 
function Read-MessageBoxDialog( [string]$Message,
	[string]$WindowTitle,
	[System.Windows.Forms.MessageBoxButtons]$Buttons = [System.Windows.Forms.MessageBoxButtons]::OK,
	[System.Windows.Forms.MessageBoxIcon]$Icon = [System.Windows.Forms.MessageBoxIcon]::None
				) {
	Add-Type -AssemblyName System.Windows.Forms
	return [System.Windows.Forms.MessageBox]::Show($Message, $WindowTitle, $Buttons, $Icon)
}  

Read-MessageBoxDialog "Hi H.Kamifuji" "Title" "OkCancel" "Warning" 

# アセンブリの読み込み
Add-Type -Assembly System.Windows.Forms

# メッセージボックスの表示
[System.Windows.Forms.MessageBox]::Show("メッセージボックスのテスト", "ここがタイトル", `
					"AbortRetryIgnore", "Warning","button2") 

# アセンブリの読み込み
Add-Type -Assembly System.Windows.Forms

# メッセージボックスの表示
[System.Windows.Forms.MessageBox]::Show("メッセージボックスのテスト", "ここがタイトル", `
					"YesNoCancel", "Hand","button3") 

# アセンブリの読み込み
Add-Type -Assembly System.Windows.Forms

# メッセージボックスの表示
[System.Windows.Forms.MessageBox]::Show("メッセージボックスのテスト", "ここがタイトル", `
					"YesNo", "Question","button1") 

#　アセンブリの読み込み
[void][System.Reflection.Assembly]::Load("Microsoft.VisualBasic, Version=8.0.0.0, `
					Culture=Neutral, PublicKeyToken=b03f5f7f11d50a3a")
#　インプットボックスの表示
$INPUT = [Microsoft.VisualBasic.Interaction]::InputBox("メッセージ", "タイトル")
$INPUT 

#　アセンブリの読み込み
[void][System.Reflection.Assembly]::Load("Microsoft.VisualBasic, Version=8.0.0.0, `
					Culture=Neutral, PublicKeyToken=b03f5f7f11d50a3a")
#　インプットボックスの表示
$INPUT = [Microsoft.VisualBasic.Interaction]::InputBox( `
	"あなたの年齢帯を番号で指定してください。`n`n[ 1 ]：10代`n[ 2 ]：20代`n[ 3 ]：30代以上", `
	"<年齢確認>")

if ( $INPUT -eq 1 ) {
	write-output "10代ですね"
}
elseif( $INPUT -eq 2) {
	write-output "20代ですね"
}
else {
	write-output "30代以上ですね"
} 

$x = "passwd"

[void] [System.Reflection.Assembly]::LoadWithPartialName("System.Drawing") 
[void] [System.Reflection.Assembly]::LoadWithPartialName("System.Windows.Forms") 

$objForm = New-Object System.Windows.Forms.Form 
$objForm.Text = "Data Entry Form"
$objForm.Size = New-Object System.Drawing.Size(300,200) 
$objForm.StartPosition = "CenterScreen"
$objForm.KeyPreview = $True
$objForm.Add_KeyDown(
{
	if ($_.KeyCode -eq "Enter") {
		$script:x = "Enter"
		$objForm.Close()
	}
	elseif ($_.KeyCode -eq "Escape") {
		$script:x = "Escape"
		$objForm.Close()
	}
}
)

$OKButton = New-Object System.Windows.Forms.Button
$OKButton.Location = New-Object System.Drawing.Size(75,120)
$OKButton.Size = New-Object System.Drawing.Size(75,23)
$OKButton.Text = "OK"
$OKButton.Add_Click(
{
	$script:x = "OK"
	$objForm.Close()
}
)

$objForm.Controls.Add($OKButton)

$CancelButton = New-Object System.Windows.Forms.Button
$CancelButton.Location = New-Object System.Drawing.Size(150,120)
$CancelButton.Size = New-Object System.Drawing.Size(75,23)
$CancelButton.Text = "Cancel"
$CancelButton.Add_Click(
{
	$script:x = "CANCEL"
	$objForm.Close()
}
)

$objForm.Controls.Add($CancelButton)

$objLabel = New-Object System.Windows.Forms.Label
$objLabel.Location = New-Object System.Drawing.Size(10,20) 
$objLabel.Size = New-Object System.Drawing.Size(280,20) 
$objLabel.Text = "Please enter the information in the space below:"

$objForm.Controls.Add($objLabel) 

$MaskedTextBox = New-Object System.Windows.Forms.MaskedTextBox
$MaskedTextBox.PasswordChar = '*'
$MaskedTextBox.Location = New-Object System.Drawing.Size(10,40) 
$MaskedTextBox.Size = New-Object System.Drawing.Size(260,20) 

$objForm.Controls.Add($MaskedTextBox) 

$objForm.Topmost = $True

$objForm.Add_Shown({$objForm.Activate()})

$kk = $objForm.ShowDialog()
$kk

$x
$MaskedTextBox.Text 

# フォルダ選択ダイアログ
# COMオブジェクトの読み込み
$shell = New-Object -com Shell.Application

# ダイアログを表示し、結果を変数folderPathに格納する
$folderPath = $shell.BrowseForFolder(0,"対象フォルダーを選択してください",0,"C:\")

# キャンセルを選択した場合は終了
if ( $folderPath -eq $null) {
	exit
}

#  $folderPath内の情報のうち、パス情報のみを変数PATHに格納する
$PATH = $folderPath.Self.Path

# 格納したパスをメッセージボックスで表示
Add-Type -Assembly System.Windows.Forms
[System.Windows.Forms.MessageBox]::Show($PATH,"処理完了") 

Set-StrictMode -version Latest

#.NET Frameworkのダイアログ関連オブジェクトの取り込み
Add-Type -AssemblyName System.Windows.Forms;

#ディレクトリ選択ダイアログのオブジェクト取得
$dialog = New-Object System.Windows.Forms.FolderBrowserDialog;

#ダイアログへ説明を追加
$dialog.Description = "テストディレクトリを選択";

#新規ディレクトリ作成のボタンを非表示
$dialog.ShowNewFolderButton = $false;

#デフォルト選択ディレクトリの設定
$dialog.SelectedPath = "C:\Perl";

If($dialog.ShowDialog() -eq "OK"){
    $dialog.SelectedPath;
}Else{
    "選択なし";
} 

<#
Function Name : Select-FolderDialog
	pram 1 : $Description = "フォルダーを選択して下さい"
	       : ダイアログへ説明文を追加

	pram 2 : $RootFolder = "Desktop"
	       : 表示開始のフォルダーを指定
	サンプル ( Desktop, Programs, MyDocuments, Personal, Favorites, Startup, Recent, SendTo,
		   StartMenu, MyMusic, MyVideos, DesktopDirectory, MyComputer, NetworkShortcuts,
		   Fonts, Templates, CommonStartMenu, CommonPrograms, CommonStartup,
		   CommonDesktopDirectory, ApplicationData, PrinterShortcuts, LocalApplicationData,
		   InternetCache, Cookies, History, CommonApplicationData, Windows, System,
		   ProgramFiles, MyPictures, UserProfile, SystemX86, ProgramFilesX86,
		   CommonProgramFiles, CommonProgramFilesX86, CommonTemplates, CommonDocuments,
		   CommonAdminTools, AdminTools, CommonMusic, CommonPictures, CommonVideos,
		   Resources, LocalizedResources, CommonOemLinks, CDBurning
		 )

	pram 3 : $SelectedPath = ""
	       : デフォルト選択フォルダーを指定

#>
Function global:Select-FolderDialog
{
	param( [string]$Description="フォルダーを選択して下さい" ,
		[string]$RootFolder="Desktop" ,
		[String]$SelectedPath = "" )

	# .NET Frameworkのダイアログ関連オブジェクトの取り込み
	Set-StrictMode -version Latest
	Add-Type -AssemblyName System.Windows.Forms;

	# フォルダー選択ダイアログのオブジェクト取得
	$objForm = New-Object System.Windows.Forms.FolderBrowserDialog;

	# 表示開始のフォルダーを指定
	$objForm.Rootfolder = $RootFolder

	# デフォルト選択フォルダーを指定
	$objForm.SelectedPath = $SelectedPath

	# ダイアログへ説明文を追加
	$objForm.Description = $Description

	# ダイアログを表示しフォルダー選択を実行
        if ( $objForm.ShowDialog() -eq "OK" ) {
		Return $objForm.SelectedPath	# フォルダー選択あり
	}
        else {
		Return ""			# フォルダー選択なし
	}
}

# ----< 使用事例 >----
# $folder = Select-FolderDialog -Description "Select Folder" -RootFolder "DeskTop" 
$folder = Select-FolderDialog -SelectedPath "F:\pdf_buff\pdf01"

$folder 

# アセンブリの読み込み
Add-Type -Assembly System.Windows.Forms

# ファイル選択ダイアログのオブジェクト取得
$dialog = New-Object System.Windows.Forms.OpenFileDialog

# フィルタ条件の設定
$dialog.Filter = 'テキストファイル(*.txt)|*.txt|全てのファイル(*.*)|*.*'

# タイトルの設定
$dialog.Title = "ファイルを選択してください"

# ヘルプの設定
$dialog.ShowHelp = $true;

# デフォルト選択ディレクトリの設定
$dialog.InitialDirectory = 'Desktop'

# 選択したファイルのパスを変数PATHに格納する
if ($dialog.ShowDialog() -eq "OK") {
    $PATH = $dialog.FileName
}
else {
    $PATH = '選択なし。'
}

 # 格納したパスをメッセージボックスで表示
[System.Windows.Forms.MessageBox]::Show($PATH,"処理完了") 

# アセンブリの読み込み
Add-Type -Assembly System.Windows.Forms

# ファイル選択ダイアログのオブジェクト取得
$dialog = New-Object System.Windows.Forms.SaveFileDialog

# フィルタ条件の設定
$dialog.Filter = 'テキストファイル(*.txt)|*.txt|全てのファイル(*.*)|*.*'

# タイトルの設定
$dialog.Title = "ファイルを選択してください"

# ヘルプの設定
$dialog.ShowHelp = $true;

# デフォルト選択ディレクトリの設定
$dialog.InitialDirectory = 'Desktop'

# 選択したファイルのパスを変数PATHに格納する
if ($dialog.ShowDialog() -eq "OK") {
    $PATH = $dialog.FileName
}
else {
    $PATH = '選択なし。'
}

# 格納したパスをメッセージボックスで表示
[System.Windows.Forms.MessageBox]::Show($PATH,"処理完了") 

# アセンブリの読み込み
Add-Type -Assembly System.Windows.Forms

# ファイル選択ダイアログのオブジェクト取得
$dialog = New-Object System.Windows.Forms.OpenFileDialog

# フィルタ条件の設定
$dialog.Filter = '全てのファイル(*.*)|*.*|テキストファイル(*.txt)|*.txt'

# タイトルの設定
$dialog.Title = "ファイルを選択してください"

# ヘルプの設定
$dialog.ShowHelp = $true;

# デフォルト選択ディレクトリの設定
$dialog.InitialDirectory = 'Desktop'

# 複数ファイルを選択する。
$dialog.MultiSelect = $true

# 選択したファイルのパスを変数PATHに格納する
if ($dialog.ShowDialog() -eq "OK") {
    $PATH = $dialog.FileNames
}
else {
    $PATH = '選択なし。'
}

# 格納したパスをメッセージボックスで表示
[System.Windows.Forms.MessageBox]::Show($PATH,"処理完了")