Een aangepast invoervak makenCreating a Custom Input Box

Script een grafische aangepaste invoervak met behulp van Microsoft .NET Framework formulier gebouw functies in Windows PowerShell 3.0 en latere versies.Script a graphical custom input box by using Microsoft .NET Framework form-building features in Windows PowerShell 3.0 and later releases.

Een aangepaste, grafische invoervak makenCreate a custom, graphical input box

Kopieer en plak het volgende in Windows PowerShell ISE en vervolgens opslaan als een Windows PowerShell-script (.ps1).Copy and then paste the following into Windows PowerShell ISE, and then save it as a Windows PowerShell script (.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
}

Het script begint met het laden van twee klassen van .NET Framework: System.Drawing en System.Windows.Forms.The script begins by loading two .NET Framework classes: System.Drawing and System.Windows.Forms. Vervolgens start u een nieuw exemplaar van de .NET Framework-klasse System.Windows.Forms.Form; die zorgt voor een leeg formulier of besturingselementen venster waarnaar u kunt starten toe te voegen.You then start a new instance of the .NET Framework class System.Windows.Forms.Form; that provides a blank form or window to which you can start adding controls.

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

Nadat u een exemplaar van de klasse van het formulier hebt gemaakt, kunt u de waarden toewijzen aan drie eigenschappen van deze klasse.After you create an instance of the Form class, assign values to three properties of this class.

  • De tekst.Text. Dit wordt de titel van het venster.This becomes the title of the window.

  • Size.Size. Dit is de grootte van het formulier in pixels.This is the size of the form, in pixels. Dit script maakt een formulier 300 pixels breed door 200 pixels hoog.The preceding script creates a form that’s 300 pixels wide by 200 pixels tall.

  • StartingPosition.StartingPosition. Deze optionele eigenschap is ingesteld op CenterScreen in het voorgaande script.This optional property is set to CenterScreen in the preceding script. Als u deze eigenschap niet toevoegt, wordt een locatie geselecteerd wanneer het formulier wordt geopend.If you don’t add this property, Windows selects a location when the form is opened. Door in te stellen de StartingPosition naar CenterScreen, u automatisch weergeeft het formulier in het midden van het scherm elke keer dat wordt geladen.By setting the StartingPosition to CenterScreen, you’re automatically displaying the form in the middle of the screen each time it loads.

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

Maak vervolgens een OK knop voor het formulier.Next, create an OK button for your form. Geef de grootte en het gedrag van de OK knop.Specify the size and behavior of the OK button. In dit voorbeeld is de knop positie 120 pixels vanaf de bovenkant van het formulier en 75 pixels van de linkerrand.In this example, the button position is 120 pixels from the form’s top edge, and 75 pixels from the left edge. De hoogte van de knop wordt 23 pixels wanneer de lengte van de knop 75 pixels.The button height is 23 pixels, while the button length is 75 pixels. Het script maakt gebruik van vooraf gedefinieerde Windows Forms-typen om te bepalen het gedrag van de knop.The script uses predefined Windows Forms types to determine the button behaviors.

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

Op deze manier maakt u een annuleren knop.Similarly, you create a Cancel button. De annuleren knop is 120 pixels vanaf de bovenkant, maar 150 pixels vanaf de linkerkant van het venster.The Cancel button is 120 pixels from the top, but 150 pixels from the left edge of the window.

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

Geef vervolgens labeltekst op uw venster dat wordt beschreven welke informatie die u wilt dat gebruikers om te bieden.Next, provide label text on your window that describes the information you want users to provide.

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

Het besturingselement (in dit geval een tekstvak) waarmee gebruikers de informatie die u hebt dat wordt beschreven in de labeltekst toevoegen.Add the control (in this case, a text box) that lets users provide the information you’ve described in your label text. Er zijn veel andere besturingselementen die u naast tekstvakken toepassen kunt; Zie voor meer besturingselementen System.Windows.Forms Namespace op MSDN.There are many other controls you can apply besides text boxes; for more controls, see System.Windows.Forms Namespace on MSDN.

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

Stel de Topmost eigenschap $true om af te dwingen van het venster te openen op een andere geopende vensters en dialoogvensters.Set the Topmost property to $true to force the window to open atop other open windows and dialog boxes.

$form.Topmost = $true

Vervolgens, voeg deze regel code voor het activeren van het formulier en de focus instellen op het tekstvak dat u hebt gemaakt.Next, add this line of code to activate the form, and set the focus to the text box that you created.

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

Voeg de volgende regel code om het formulier in Windows weer te geven.Add the following line of code to display the form in Windows.

$result = $form.ShowDialog()

Ten slotte de code in de als blok geeft Windows opdracht wat te doen met de vorm nadat gebruikers in het tekstvak tekst en klik vervolgens op de OK of drukt u op de Enter sleutel.Finally, the code inside the If block instructs Windows what to do with the form after users provide text in the text box, and then click the OK button or press the Enter key.

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

Zie ookSee Also