Ouvrir une fenêtre avec PowerShell.

A l'époque où je faisais un peu de C, coder une fenêtre était une vraie galère. En PowerShell en 4 lignes c'est réglé XD.

 

#Ouvre une fenêtre simple.
[Reflection.Assembly]::LoadWithPartialName("System.Windows.Forms")
$form = New-Object Windows.Forms.Form
$form.text = "Fenêtre vide"                     #Titre de la fenêtre.
$form.Size = New-Object Drawing.Point 200,200   #Taille de la fenêtre.
$form.ShowDialog()                              #Affiche le tout.

#Fin.

Dans ce premier exemple j'ai mis le minimum pour monter à quel point c'est simple. Mais on ne va pas s'arrêter là. Dans l'exemple suivant je vais prendre en compte toutes les options que j'ai utilisées dernièrement.

 

#Fenêtre et options.
[Reflection.Assembly]::LoadWithPartialName("System.Windows.Forms")
$form = New-Object Windows.Forms.Form
$form.Size = New-Object Drawing.Point 200,200
$form.text = "Fenêtre avec options" #Titre de la fenêtre.
$form.ControlBox = 1                #Affiche les contrôles (haut/droite).
$form.MaximizeBox = 1               #Active le contrôle Agrandir (haut/droite).
$form.MinimizeBox = 1               #Active le contrôle Réduire (haut/droite).
$form.ShowIcon = 1                  #Affiche l'icone (haut/gauche).
$form.ShowInTaskbar = 1             #Affiche la fenêtre dans la bar des tâches.
$form.TopMost = 0                   #Affiche la fenêtre toujours au premier plan.
$form.backcolor = "white"           #Couleur du fond de la fenêtre.
$form.FormBorderStyle = "Sizable"   #Style du bord de la fenêtre*.

#Charge une image de fond dans la fenêtre
$form.BackgroundImage = [system.drawing.image]::FromFile("C:\fond.jpg")
$form.BackgroundImageLayout = 0         #Mode d'affichage de l'image**.

#Charge une icone personalisée (en haut à gauche).
$form.Icon = [system.drawing.icon]::ExtractAssociatedIcon("C:\icon.ico")

#Configurer la touche ESC pour fermer la fenêtre.
$form.KeyPreview = $True
$form.Add_KeyDown({if ($_.KeyCode -eq "Escape") {$form.Close()}})

#Affiche le tout.
$form.ShowDialog()

#Fin.

     *FormBorderStyle : None, FixedSingle, Fixed3D, FixedDialog, Sizable, FixedToolWindow, SizableToolWindow.
     **BackgroundImageLayout : 0 = en haut a gauche, 1 = répétable, 2 = centré, 3 = étiré, 4 = étiré (rapport fixe).

Astuce : L'option "TopMost" n'est active que pour une seul fenêtre à la fois. Si vous l'utilisez sur plusieurs fenêtres, seul la première sera prise en compte. Cette option se comporte en faite comme un jeton. Il faut d'abord libérer le jeton avant de pouvoir le réutiliser. L'astuce est donc de remettre l'option "TopMost" de la fenêtre parent à 0 avant d'appeler la fenêtre fille avec l'option "TopMost" à 1. A la fermeture de la fenêtre fille, il faut réattribuer le jeton (TopMost = 1) à la fenêtre parent.

Il est possible de créer des fenêtres transparentes en PowerShell. Pour cela, il existe 2 options. La première option "Opacity" permet de rendre toute la fenêtre et ses contrôles translucides.

 

#Ouvre une fenêtre avec l'option "Opacity".
[Reflection.Assembly]::LoadWithPartialName("System.Windows.Forms")
$form = New-Object Windows.Forms.Form
$form.Size = New-Object System.Drawing.Size(300,220)
$form.text = "Opacity"  
$form.BackColor = "White"
$form.FormBorderStyle = "None"

#Active l'option Opacity.
#1 = opaque, 0 = totalement transparent.
$Form.Opacity = 0.8

#Bouton Close.
$bouton1 = New-Object Windows.Forms.Button
$bouton1.Location = New-Object Drawing.Point 100,85
$bouton1.Size = New-Object System.Drawing.Size(100,50)
$bouton1.text = "Close"
$bouton1.add_click({ $form.Close() })

#Attache les contrôles à la fenêtre.
$form.controls.add($bouton1)

#Affiche le tout.
$form.ShowDialog()

#Fin.

La seconde option "TransparencyKey" permet de définir une couleur qui sera totalement transparente. Les autres couleurs de la fenêtre resteront visibles.

 

#Ouvre une fenêtre avec l'option TransparencyKey.
[Reflection.Assembly]::LoadWithPartialName("System.Windows.Forms")
$form = New-Object Windows.Forms.Form
$form.Size = New-Object System.Drawing.Size(300,220)
$form.text = "TransparencyKey"
$form.BackColor = "White"
$form.FormBorderStyle = "None"

#Active l'option TransparencyKey.
$form.BackColor = "Magenta"
$form.TransparencyKey = "Magenta"

#Bouton Close.
$bouton1 = New-Object Windows.Forms.Button
$bouton1.Location = New-Object Drawing.Point 100,85
$bouton1.Size = New-Object System.Drawing.Size(100,50)
$bouton1.text = "Close"
$bouton1.BackColor = "White"
$bouton1.add_click({ $form.Close() })

#Attache les contrôles à la fenêtre.
$form.controls.add($bouton1)

#Affiche le tout.
$form.ShowDialog()

#Fin.

L'option "Opacity" et "TransparencyKey" peuvent être utilisées ensemble.

L'option "StartPosition" permet de définir la position initiale de la fenêtre.

 

#Positionner une fenêtre simple.
[Reflection.Assembly]::LoadWithPartialName("System.Windows.Forms")
$form = New-Object Windows.Forms.Form
$form.text = "Fenêtre vide"                     #Titre de la fenêtre.
$form.Size = New-Object Drawing.Point 200,200   #Taille de la fenêtre.
$form.StartPosition = "CenterParent"            #Position de la fenêtre*.
$form.ShowDialog()                              #Affiche le tout.

#Fin.

     *StartPosition : Manual, CenterScreen, WindowsDefaultLocation, WindowsDefaultBounds, CenterParent.

Pour définir la position de le fenêtre plus finement, il faut utiliser l'option "Location" conjointement avec "StartPosition".

 

$x = 200
$y = 200

#Ouvre une fenêtre simple.
[Reflection.Assembly]::LoadWithPartialName("System.Windows.Forms")
$form = New-Object Windows.Forms.Form
$form.text = "Fenêtre vide"                      #Titre de la fenêtre.
$form.Size = New-Object Drawing.Point 200,200    #Taille de la fenêtre.
$formA.StartPosition = "Manual"                  #Position de la fenêtre.
$formA.Location = New-Object Drawing.Point $x,$y #Position de la fenêtre.
$form.ShowDialog()                               #Affiche le tout.

#Fin.

Pour afficher la fenêtre dans l'écran secondaire, nous allons récupérer l'offset de l’écran secondaire à partir de [System.Windows.Forms.Screen]::AllScreens.

 

#Récupére l'offset de l'écran secondaire.
$infos = [System.Windows.Forms.Screen]::AllScreens
foreach($info in $infos)
 {
   if ($info.Primary -eq $false)
     {
       $OffSetX = [int]($info.WorkingArea.Left)
       $OffSetY = [int]($info.WorkingArea.Top)
     }
 }

#Position de la fenêtre dans l'écran secondaire.
$x = $OffSetX + 200
$y = $OffSetY + 200

#Ouvre une fenêtre simple.
[Reflection.Assembly]::LoadWithPartialName("System.Windows.Forms")
$form = New-Object Windows.Forms.Form
$form.text = "Fenêtre vide"                      #Titre de la fenêtre.
$form.Size = New-Object Drawing.Point 200,200    #Taille de la fenêtre.
$form.StartPosition = "Manual"                   #Position de la fenêtre.
$form.Location = New-Object Drawing.Point $x,$y  #Position de la fenêtre.
$form.ShowDialog()                               #Affiche le tout.

#Fin.