Vytvoření vlastního vstupního pole

  • Článek

Tato ukázka platí jenom pro platformy Windows.

Skriptování grafického vlastního vstupního pole pomocí funkcí pro vytváření formulářů rozhraní Microsoft .NET Framework v prostředí Windows PowerShell 3.0 a novějších verzích

Vytvoření vlastního grafického vstupního pole

Zkopírujte následující kód a vložte ho do prostředí Windows PowerShell ISE a uložte ho jako soubor powershellového skriptu (.ps1).

Add-Type -AssemblyName System.Windows.Forms
Add-Type -AssemblyName System.Drawing

$form = New-Object System.Windows.Forms.Form
$form.Text = 'Data Entry Form'
$form.Size = New-Object System.Drawing.Size(300,200)
$form.StartPosition = 'CenterScreen'

$okButton = New-Object System.Windows.Forms.Button
$okButton.Location = New-Object System.Drawing.Point(75,120)
$okButton.Size = New-Object System.Drawing.Size(75,23)
$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(150,120)
$cancelButton.Size = New-Object System.Drawing.Size(75,23)
$cancelButton.Text = 'Cancel'
$cancelButton.DialogResult = [System.Windows.Forms.DialogResult]::Cancel
$form.CancelButton = $cancelButton
$form.Controls.Add($cancelButton)

$label = New-Object System.Windows.Forms.Label
$label.Location = New-Object System.Drawing.Point(10,20)
$label.Size = New-Object System.Drawing.Size(280,20)
$label.Text = 'Please enter the information in the space below:'
$form.Controls.Add($label)

$textBox = New-Object System.Windows.Forms.TextBox
$textBox.Location = New-Object System.Drawing.Point(10,40)
$textBox.Size = New-Object System.Drawing.Size(260,20)
$form.Controls.Add($textBox)

$form.Topmost = $true

$form.Add_Shown({$textBox.Select()})
$result = $form.ShowDialog()

if ($result -eq [System.Windows.Forms.DialogResult]::OK)
{
    $x = $textBox.Text
    $x
}

Skript začíná načtením dvou tříd rozhraní .NET Framework: System.Drawing a System.Windows.Forms. Potom spustíte novou instanci třídy .NET Framework System.Windows.Forms.Form. To poskytuje prázdný formulář nebo okno, do kterého můžete začít přidávat ovládací prvky.

$form = New-Object System.Windows.Forms.Form

Po vytvoření instance třídy Form přiřaďte hodnoty třem vlastnostem této třídy.

  • Text. Tím se stane název okna.
  • Velikost: Jedná se o velikost formuláře v pixelech. Předchozí skript vytvoří formulář o šířce 300 pixelů o 200 pixelů na výšku.
  • Počáteční umístění. Tato volitelná vlastnost je nastavena na CenterScreen v předchozím skriptu. Pokud tuto vlastnost nepřidáte, systém Windows při otevření formuláře vybere umístění. Když nastavíte Počáteční umístění na Obrazovku CenterScreen, automaticky se formulář zobrazí uprostřed obrazovky při každém načtení obrazovky.
$form.Text = 'Data Entry Form'
$form.Size = New-Object System.Drawing.Size(300,200)
$form.StartPosition = 'CenterScreen'

Dále vytvořte tlačítko OK pro formulář. Zadejte velikost a chování tlačítka OK . V tomto příkladu je pozice tlačítka 120 pixelů od horního okraje formuláře a 75 pixelů od levého okraje. Výška tlačítka je 23 pixelů, zatímco délka tlačítka je 75 pixelů. Skript používá k určení chování tlačítka předdefinované typy model Windows Forms.

$okButton = New-Object System.Windows.Forms.Button
$okButton.Location = New-Object System.Drawing.Point(75,120)
$okButton.Size = New-Object System.Drawing.Size(75,23)
$okButton.Text = 'OK'
$okButton.DialogResult = [System.Windows.Forms.DialogResult]::OK
$form.AcceptButton = $OKButton
$form.Controls.Add($OKButton)

Podobně vytvoříte tlačítko Zrušit . Tlačítko Zrušit je od horního okraje 120 pixelů, ale 150 pixelů od levého okraje okna.

$cancelButton = New-Object System.Windows.Forms.Button
$cancelButton.Location = New-Object System.Drawing.Point(150,120)
$cancelButton.Size = New-Object System.Drawing.Size(75,23)
$cancelButton.Text = 'Cancel'
$cancelButton.DialogResult = [System.Windows.Forms.DialogResult]::Cancel
$form.CancelButton = $cancelButton
$form.Controls.Add($cancelButton)

V dalším kroku zadejte text popisku v okně, který popisuje informace, které mají uživatelé poskytnout.

$label = New-Object System.Windows.Forms.Label
$label.Location = New-Object System.Drawing.Point(10,20)
$label.Size = New-Object System.Drawing.Size(280,20)
$label.Text = 'Please enter the information in the space below:'
$form.Controls.Add($label)

Přidejte ovládací prvek (v tomto případě textové pole), které uživatelům umožňuje zadat informace, které jste popsali v textu popisku. Kromě textových polí můžete použít i mnoho dalších ovládacích prvků. Další ovládací prvky naleznete v tématu System.Windows.Forms Namespace.

$textBox = New-Object System.Windows.Forms.TextBox
$textBox.Location = New-Object System.Drawing.Point(10,40)
$textBox.Size = New-Object System.Drawing.Size(260,20)
$form.Controls.Add($textBox)

Nastavte vlastnost Topmost na $true vynutit, aby okno otevřelo další otevřená okna a dialogová okna.

$form.Topmost = $true

Dále přidejte tento řádek kódu, který aktivuje formulář, a nastavte fokus na textové pole, které jste vytvořili.

$form.Add_Shown({$textBox.Select()})

Přidejte následující řádek kódu, který zobrazí formulář ve Windows.

$result = $form.ShowDialog()

Nakonec kód uvnitř bloku If dává systému Windows pokyn, co dělat s formulářem po zadání textu do textového pole, a potom klikněte na tlačítko OK nebo stiskněte klávesu Enter .

if ($result -eq [System.Windows.Forms.DialogResult]::OK) {
    $x = $textBox.Text
    $x
}

Viz také