Egyéni beviteli mező létrehozása

  • Cikk

Ez a minta csak Windows-platformokra vonatkozik.

Grafikus egyéni beviteli mező szkriptje a Microsoft .NET-keretrendszer űrlapkészítési funkcióival a Windows PowerShell 3.0-s és újabb verzióiban.

Egyéni grafikus beviteli mező létrehozása

Másolja, majd illessze be a következőt a Windows PowerShell I Standard kiadás-be, majd mentse PowerShell-szkriptfájlként.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
}

A szkript két .NET-keretrendszer osztály betöltésével kezdődik: System.Drawing és System.Windows.Forms. Ezután elindítja a System.Windows.Forms.Form .NET-keretrendszer osztály új példányát. Ez egy üres űrlapot vagy ablakot biztosít, amelyhez vezérlőket adhat hozzá.

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

Az Űrlaposztály egy példányának létrehozása után rendeljen értékeket az osztály három tulajdonságához.

  • Szöveg. Ez lesz az ablak címe.
  • Méret. Ez az űrlap mérete képpontban. Az előző szkript egy 300 képpont széles és 200 képpont magas űrlapot hoz létre.
  • Kezdőpozíció. Ez az opcionális tulajdonság centerScreen értékre van állítva az előző szkriptben. Ha nem adja hozzá ezt a tulajdonságot, a Windows kiválaszt egy helyet az űrlap megnyitásakor. Ha a Kezdőpozíciót a CenterScreenre állítja, az űrlap automatikusan megjelenik a képernyő közepén minden egyes betöltésekor.
$form.Text = 'Data Entry Form'
$form.Size = New-Object System.Drawing.Size(300,200)
$form.StartPosition = 'CenterScreen'

Ezután hozzon létre egy OK gombot az űrlaphoz. Adja meg az OK gomb méretét és viselkedését. Ebben a példában a gomb pozíciója az űrlap felső szélétől 120 képpont, a bal széltől pedig 75 képpont. A gomb magassága 23 képpont, míg a gomb hossza 75 képpont. A szkript előre definiált Windows Forms-típusok használatával határozza meg a gomb viselkedését.

$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)

Hasonlóképpen létrehoz egy Mégse gombot is. A Mégse gomb felülről 120 képpont, az ablak bal szélétől 150 képpont.

$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)

Ezután adjon meg címkeszöveget az ablakban, amely leírja a felhasználók által megadni kívánt információkat.

$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)

Adja hozzá a vezérlőt (ebben az esetben egy szövegdobozt), amely lehetővé teszi, hogy a felhasználók megadják a címkeszövegben leírt információkat. A szövegdobozok mellett számos más vezérlő is alkalmazható. További vezérlők : 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)

Állítsa a Legfelső tulajdonságot úgy, hogy $true , hogy kényszerítse az ablakot más megnyitott ablakok és párbeszédpanelek megnyitására.

$form.Topmost = $true

Ezután adja hozzá ezt a kódsort az űrlap aktiválásához, és állítsa a fókuszt a létrehozott szövegdobozra.

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

Adja hozzá az alábbi kódsort az űrlap Windows rendszerben való megjelenítéséhez.

$result = $form.ShowDialog()

Végül a Ha blokkban lévő kód arra utasítja a Windowst, hogy mit tegyen az űrlappal, miután a felhasználók szöveget adnak meg a szövegmezőben, majd kattintson az OK gombra, vagy nyomja le az Enter billentyűt.

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

Lásd még