2006-12-29

My profile.ps1︵2︶

PowerShell

System.Windows.Formsアセンブリを読み込む

後述のNew-WindowsControlで利用します。



#############################################################

# 関数名        Load-WindowsForms

# 概要          System.Windows.Formsアセンブリを読み込む

# 内容          

#               

# エイリアス    lwf

#############################################################

function Load-WindowsForms

{

    $ret = Get-Assemblies |

        ?{$_.ManifestModule.Name -eq "System.Windows.Forms.dll"}

    if($ret -eq $null)

    {

        [Void][Reflection.Assembly]::LoadWithPartialName(

            "System.Windows.Forms")

    }

}

Set-Alias lwf Load-WindowsForms

Windowsコントロールを生成する

1度公開したものを、Jeffrey Snover氏のコメントを元に書き直しました。



#############################################################

# 関数名        New-WindowsControl

# 概要          Windowsコントロールを生成する

# 内容          

#               

# エイリアス    control

#############################################################

function New-WindowsControl

    ([String]$controlName, [hashtable]$property=@{})

{

    Load-WindowsForms

    $control = New-Object System.Windows.Forms.$controlName

    foreach ($key in $property.Keys)

    {

        $control.$key = $property.$key

    }

    return $control

}

Set-Alias control New-WindowsControl

使い方

Formオブジェクトを生成する︵同時にプロパティを設定する︶

フォームのテキストと、不透明度を設定しています。



$form = control Form @{Text="Form"; Opacity=0.75}

Formは﹁form﹂でも可。

Buttonオブジェクトを生成する︵同時にプロパティを設定する︶

ボタンのテキスト、Dock、フォントを設定しています。



$button =

 control Button @{Text="Click!"; Dock="Fill";Font="Arial,30,style=Bold"}

Buttonは﹁button﹂でも可。

組み合わせると・・・

簡単なサンプルなら数行で書けます。



$form = control Form @{Text="Form"; Opacity=0.75}

$button =

 control Button @{Text="Click!"; Dock="Fill";Font="Arial,30,style=Bold"}

$form.Controls.Add($button)

$form.ShowDialog()