FORMULAIRE - Problème de récupération de valeur d'une Textbox

Version imprimable

Bonjour à tous,

Je rencontre des problèmes avec mon formulaire sous Powershell.
Dans mon script, j'ai un bouton radio "oui", "non" et selon la réponse, je fais apparaitre une textbox. Le problème est que lorsque je saisie mes infos et que je valide mon formulaire, ma valeur dans la textbox n'est pas récupérée.
Voici une partie de mon code

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
#fenêtre
    $WinCollab= New-Object System.Windows.Forms.Form
    $WinCollab.Text = 'UTILISATEUR'
    $WinCollab.AutoSize = $true #wrap to content
    $WinCollab.Height = 1 #Autosize agrandira la fenêtre
    $WinCollab.FormBorderStyle = 3 #fenêtre à taille fixe
    $WinCollab.StartPosition = 'CenterScreen'
 
	# Objet : Intitulé.
	$LibCtt = New-Object System.Windows.Forms.GroupBox
    # Texte affiché
    $LibCtt.Text = "CDI? :"
    #Attache le contrôle et les boutons à la fenêtre
    $WinCollab.controls.add($LibCtt)
 
    # Objet : Bouton radio 'Oui'
    $InfoCtto = New-Object System.Windows.Forms.RadioButton
	# Valeur de la boite de dialogue
    $InfoCtto.Text = "Oui"
 
       # Objet : Bouton radio 'Non'
    $ValCONTRATn = New-Object System.Windows.Forms.RadioButton
        # Bouton cochée sur 'Non' par défaut   
    $InfoCttn.Checked = $False
        # Valeur de la boite de dialogue
    $InfoCttn.Text = "Non"
        #Action si la case est Non cochée
    $InfoCttn_CheckedChanged = 
        {
                # Objet : Intitulé.
            $LibSORTIE = New-Object System.Windows.Forms.Label
                # Objet nommé
            $LibSORTIE.Name = "LabSortie" 
                # Texte affiché
            $LibSORTIE.Text = "DATE SORTIE :"
                # Objet : Fenêtre de saisie
            $DATESORT = New-Object System.Windows.Forms.TextBox
                # Objet nommé
            $DATESORT.Name = "ValSortie" 
                    # Valeur de la boite de dialogue
            $DATESORT.Text = "01/02/2021"
                #Attache le contrôle et les boutons à la fenêtre
            #$WinCollab.Controls.Add($DATESORT)
            $LibCtt.Controls.AddRange(@($InfoCttn,$InfoCtto,$LibSORTIE,$DATESORT))
            $WinCollab.Controls.AddRange(@($LibCtt))
        }
        #Action si la case Oui est cochée
    $InfoCtto_CheckedChanged = 
    {
        #Valeur Y lié à la position verticale
        $ValYLoc = $ValYLoc - 1
        #$WinCollab.Controls.Add($DATESORT)
        #Suppression de la fenêtre Date de sortie si non nécessaire
        $LibCtt.Controls.RemoveByKey("LabSortie")
        $LibCtt.Controls.RemoveByKey("ValSortie")
    }
            #Execution du script qui masque ou non la date de sortie
    $InfoCtto.add_click($InfoCtto_CheckedChanged)
    $InfoCttn.add_click($InfoCttn_CheckedChanged)
 
    # On crée un groupe de bouton
    $LibCtt.Controls.AddRange(@($InfoCttn,$InfoCtto))
    #Attache le contrôle et les boutons à la fenêtre
    $WinCollab.Controls.AddRange(@($LibCtt))
 
 
	#Creation Bouton 'Valider'
    $BtnValider = New-Object System.Windows.Forms.Button
 
    $BtnValider.Text = 'VALIDER'
    $WinCollab.controls.add($BtnValider)
    $BtnValider.Add_Click(
        {
            New-Variable -Name selection -Value $($BtnValider.Text) -Scope Script -Force
            $WinCollab.Close()
        })

La valeur de la variable $DATESORT.Text ne me renvoie rien même si je mets un write-host ici :

Code:

1
2
3
4
5
6
 $BtnValider.Add_Click(
        {
            New-Variable -Name selection -Value $($BtnValider.Text) -Scope Script -Force
            write-host $DATESORT.Text
            $WinCollab.Close()
        })

Merci pour votre aide.

02/03/2021, 18h20
ericlm128

Ton code ne fonctionne pas.

Merci de nous en fournir un fonctionnel pour que l'on puisse t'aider

Citation:

Envoyé par ericlm128

Ton code ne fonctionne pas.

Merci de nous en fournir un fonctionnel pour que l'on puisse t'aider

Il est tout plus agréable de commencer par un "Bonjour"!

Bonjour!

Voici mon code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
    #fenêtre
    $WinCollab = New-Object System.Windows.Forms.Form
    $WinCollab.Text = 'UTILISATEUR'
    $WinCollab.AutoSize = $true #wrap to content
    $WinCollab.Height = 1 #Autosize agrandira la fenêtre
    $WinCollab.FormBorderStyle = 3 #fenêtre à taille fixe
    $WinCollab.StartPosition = 'CenterScreen'
 
    #Variables taille Libellé
    $ValSizeX = 150
    $ValSizeY = 20
    #Variables localisation x Libellé
    $LocationLabX = 20
    $SizeXLib = 110
    $SizeYLib = 20
 
     ###################        PARTIE TYPE DE CONTRAT       ###################
    # Objet : Intitulé.
    $LibCtt = New-Object System.Windows.Forms.GroupBox
        # Position de la fenêtre (x,y) x = horizontal, y = vertical
    $LibCtt.Location = New-Object Drawing.Point($LocationLabX,25)
        # Taille de la fenêtre (x,y) x = largeur, y = hauteur
    $LibCtt.Size = New-Object System.Drawing.Size($SizeXLib,$SizeYLib)
    #$LibCtt.AutoSize = $True
       # Texte affiché
    $LibCtt.Text = "CDI? :"
        # Police du texte
    $LibCtt.Font = New-Object System.Drawing.Font("Microsoft Sans Serif",9,[System.Drawing.FontStyle]::Underline)
    #Attache le contrôle et les boutons à la fenêtre
    $WinCollab.controls.add($LibCtt)
 
    # Objet : Bouton radio 'Oui'
    $ValCtto = New-Object System.Windows.Forms.RadioButton
        # Position de la fenêtre (x,y) x = horizontal, y = vertical
    $ValCtto.Location = New-Object System.Drawing.Point((($LibCtt.Location.X)-10),(($LibCtt.Location.Y)-230))
        # Taille de la fenêtre (x,y) x = largeur, y = hauteur
    $ValCtto.Size = New-Object System.Drawing.Size(45,$ValSizeY)
        # Bouton cochée sur 'Non' par défaut   
    $ValCtto.Checked = $True
            # Valeur de la boite de dialogue
    $ValCtto.Text = "Oui"
 
       # Objet : Bouton radio 'Non'
    $ValCttn = New-Object System.Windows.Forms.RadioButton
        # Position de la fenêtre (x,y) x = horizontal, y = vertical
    $ValCttn.Location = New-Object System.Drawing.Point((($LibCtt.Location.X)+40),(($LibCtt.Location.Y)-230))
        # Taille de la fenêtre (x,y) x = largeur, y = hauteur
    $ValCttn.Size = New-Object System.Drawing.Size(45,$ValSizeY)
        # Bouton cochée sur 'Non' par défaut   
    $ValCttn.Checked = $False
        # Valeur de la boite de dialogue
    $ValCttn.Text = "Non"
        #Action si la case est Non cochée
    $ValCttn_CheckedChanged = 
        {
                # Taille de la fenêtre (x,y) x = largeur, y = hauteur
            $LibCtt.Size = New-Object System.Drawing.Size(($SizeXLib+80),($SizeYLib+55))
            #Valeur Y lié à la position verticale
            #$ValYLoc = $ValYLoc + 2.4
                # Objet : Intitulé.
            $LibSORTIE = New-Object System.Windows.Forms.Label
                # Position de la fenêtre (x,y) x = horizontal, y = vertical
            $LibSORTIE.Location = New-Object Drawing.Point(10,50)
            #$LibSORTIE.Location = New-Object Drawing.Point($LocationLabX,(($LibCtt.Location.Y)*$ValYLoc))
                # Objet nommé
            $LibSORTIE.Name = "LabSortie" 
                # Taille de la fenêtre (x,y) x = largeur, y = hauteur
            $LibSORTIE.Size = New-Object System.Drawing.Size(($SizeXLib-10),$SizeYLib)
                # Texte affiché
            $LibSORTIE.Text = "DATE SORTIE :"
                # Police du texte
            $LibSORTIE.Font = New-Object System.Drawing.Font("Microsoft Sans Serif",9,
                            [System.Drawing.FontStyle]([System.Drawing.FontStyle]::Bold -bor [System.Drawing.FontStyle]::Underline))
            #Attache le contrôle et les boutons à la fenêtre
            #$WinCollab.controls.add($LibSORTIE)
 
                # Objet : Fenêtre de saisie
            $ValSORTIE = New-Object System.Windows.Forms.TextBox
                # Position de la fenêtre (x,y) x = horizontal, y = vertical
            $ValSORTIE.Location = New-Object System.Drawing.Point(110,45)
                # Taille de la fenêtre (x,y) x = largeur, y = hauteur
            $ValSORTIE.Size = New-Object System.Drawing.Size(($ValSizeX-80),$ValSizeY)
                # Objet nommé
            $ValSORTIE.Name = "ValSortie" 
                    # Valeur de la boite de dialogue
            $ValSORTIE.Text = $VarDate
                #Attache le contrôle et les boutons à la fenêtre
            #$WinCollab.Controls.Add($ValSORTIE)
            $LibCtt.Controls.AddRange(@($ValCttn,$ValCtto,$LibSORTIE,$ValSORTIE))
            $WinCollab.Controls.AddRange(@($LibCtt))
 
             # Position de la fenêtre (x,y) x = horizontal, y = vertical
            $LabelREF.Location = New-Object Drawing.Point($LocationLabX,(($LibCtt.Location.Y)*($ValYLoc+1.3)))
            # Position de la fenêtre (x,y) x = horizontal, y = vertical
            $BtnValider.Location = New-Object Drawing.Point(120,(($LibCtt.Location.Y)*($ValYLoc+5)))
        }
        #Action si la case Oui est cochée
    $ValCtto_CheckedChanged = 
    {
        #Valeur Y lié à la position verticale
        $ValYLoc = $ValYLoc - 1
        # Taille de la fenêtre (x,y) x = largeur, y = hauteur
        $LibCtt.Size = New-Object System.Drawing.Size(($SizeXLib),($SizeYLib+23))
        # Position de la fenêtre (x,y) x = horizontal, y = vertical
        $LabelREF.Location = New-Object Drawing.Point($LocationLabX,(($LibCtt.Location.Y)*($ValYLoc+1)))
        # Position de la fenêtre (x,y) x = horizontal, y = vertical
        $BtnValider.Location = New-Object Drawing.Point(120,(($LibCtt.Location.Y)*($ValYLoc+4)))
        #$WinCollab.Controls.Add($ValSORTIE)
        #Suppression de la fenêtre Date de sortie si non nécessaire
        $LibCtt.Controls.RemoveByKey("LabSortie")
        $LibCtt.Controls.RemoveByKey("ValSortie")
    }
            #Execution du script qui masque ou non la date de sortie
    $ValCtto.add_click($ValCtto_CheckedChanged)
    $ValCttn.add_click($ValCttn_CheckedChanged)
 
    # On crée un groupe de bouton
    $LibCtt.Controls.AddRange(@($ValCttn,$ValCtto))
    #Attache le contrôle et les boutons à la fenêtre
    $WinCollab.Controls.AddRange(@($LibCtt))
    ###################      FIN PARTIE TYPE DE CONTRAT     ###################
    $ValYLoc = $ValYLoc + 2
 
    #Creation Bouton 'Valider'
    $BtnValider = New-Object System.Windows.Forms.Button
    # Position de la fenêtre (x,y) x = horizontal, y = vertical
    $BtnValider.Location = New-Object Drawing.Point(120,(($LibCtt.Location.Y)*($ValYLoc+4)))
    # Taille de la fenêtre (x,y) x = largeur, y = hauteur
    $BtnValider.Size = New-Object System.Drawing.Size(75,23)
    $BtnValider.Text = 'VALIDER'
    $WinCollab.controls.add($BtnValider)
    $BtnValider.Add_Click(
        {
            New-Variable -Name selection -Value $($BtnValider.Text) -Scope Script -Force
            $WinCollab.Close()
        })
 
 
 
    #Affiche le tout.
    $WinCollab.ShowDialog()
 
    $Msgbox::MsgBox($ValSORTIE.Text, "OKOnly,Information,SystemModal", "RESUME")

Merci pour l'aide apportée.

13/03/2021, 09h36
ericlm128

Ton code sort une erreur sur ces 2 lignes, puisque l'objet $LabelREF n'existe pas

Code:

$LabelREF.Location = ...

Bonjour,
J'ai repris mon code, il est maintenant opérationnel :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
#----------------------------------------------------
#            CHARGEMENT DES BIBLIOTHEQUES
#----------------------------------------------------
#Appel de la bibliothèqye VBScript pour InputBOX
add-type -assemblyName "Microsoft.VisualBasic"
#Appel de la bibliothèqye System.Windows.Forms pour MESSAGEBOX
Add-Type -AssemblyName System.Windows.Forms
#$Msgbox contient les informations de la messsagebox  
#$Msgbox = [System.Windows.Forms.MessageBox]
$Msgbox = [Microsoft.VisualBasic.Interaction]
#----------------------------------------------------
#                         FIN
#----------------------------------------------------
 
#fenêtre
    $WinCollab = New-Object System.Windows.Forms.Form
    $WinCollab.Text = 'UTILISATEUR'
    $WinCollab.AutoSize = $true #wrap to content
    $WinCollab.Height = 1 #Autosize agrandira la fenêtre
    $WinCollab.FormBorderStyle = 3 #fenêtre à taille fixe
    $WinCollab.StartPosition = 'CenterScreen'
 
    #Variables taille Libellé
    $ValSizeX = 150
    $ValSizeY = 20
    #Variables localisation x Libellé
    $LocationLabX = 20
    $SizeXLib = 110
    $SizeYLib = 20
 
     ###################        PARTIE TYPE DE CONTRAT       ###################
    # Objet : Intitulé.
    $LibCtt = New-Object System.Windows.Forms.GroupBox
        # Position de la fenêtre (x,y) x = horizontal, y = vertical
    $LibCtt.Location = New-Object Drawing.Point($LocationLabX,25)
        # Taille de la fenêtre (x,y) x = largeur, y = hauteur
    $LibCtt.Size = New-Object System.Drawing.Size(($SizeXLib+30),($SizeYLib+30))
    #$LibCtt.AutoSize = $True
    Write-Host $LibCtt.Size.Height
    Write-host $LibCtt.Size.Width
       # Texte affiché
    $LibCtt.Text = "CDI? :"
        # Police du texte
    $LibCtt.Font = New-Object System.Drawing.Font("Microsoft Sans Serif",9,[System.Drawing.FontStyle]::Underline)
    #Attache le contrôle et les boutons à la fenêtre
    $WinCollab.controls.add($LibCtt)
 
    # Objet : Bouton radio 'Oui'
    $ValCtto = New-Object System.Windows.Forms.RadioButton
        # Position de la fenêtre (x,y) x = horizontal, y = vertical
    $ValCtto.Location = New-Object System.Drawing.Point((($LibCtt.Location.X)),(($LibCtt.Location.Y)))
        # Taille de la fenêtre (x,y) x = largeur, y = hauteur
    $ValCtto.Size = New-Object System.Drawing.Size(45,$ValSizeY)
        # Bouton cochée sur 'Non' par défaut   
    $ValCtto.Checked = $True
            # Valeur de la boite de dialogue
    $ValCtto.Text = "Oui"
 
       # Objet : Bouton radio 'Non'
    $ValCttn = New-Object System.Windows.Forms.RadioButton
        # Position de la fenêtre (x,y) x = horizontal, y = vertical
    $ValCttn.Location = New-Object System.Drawing.Point((($LibCtt.Location.X)+40),(($LibCtt.Location.Y)))
        # Taille de la fenêtre (x,y) x = largeur, y = hauteur
    $ValCttn.Size = New-Object System.Drawing.Size(45,$ValSizeY)
        # Bouton cochée sur 'Non' par défaut   
    $ValCttn.Checked = $False
        # Valeur de la boite de dialogue
    $ValCttn.Text = "Non"
        #Action si la case est Non cochée
    $ValCttn_CheckedChanged = 
        {
                # Taille de la fenêtre (x,y) x = largeur, y = hauteur
            $LibCtt.Size = New-Object System.Drawing.Size(($SizeXLib+80),($SizeYLib+55))
            #Valeur Y lié à la position verticale
            #$ValYLoc = $ValYLoc + 2.4
                # Objet : Intitulé.
            $LibSORTIE = New-Object System.Windows.Forms.Label
                # Position de la fenêtre (x,y) x = horizontal, y = vertical
            $LibSORTIE.Location = New-Object Drawing.Point(10,50)
            #$LibSORTIE.Location = New-Object Drawing.Point($LocationLabX,(($LibCtt.Location.Y)*$ValYLoc))
                # Objet nommé
            $LibSORTIE.Name = "LabSortie" 
                # Taille de la fenêtre (x,y) x = largeur, y = hauteur
            $LibSORTIE.Size = New-Object System.Drawing.Size(($SizeXLib-10),$SizeYLib)
                # Texte affiché
            $LibSORTIE.Text = "DATE SORTIE :"
                # Police du texte
            $LibSORTIE.Font = New-Object System.Drawing.Font("Microsoft Sans Serif",9,
                            [System.Drawing.FontStyle]([System.Drawing.FontStyle]::Bold -bor [System.Drawing.FontStyle]::Underline))
            #Attache le contrôle et les boutons à la fenêtre
            #$WinCollab.controls.add($LibSORTIE)
 
                # Objet : Fenêtre de saisie
            $ValSORTIE = New-Object System.Windows.Forms.TextBox
                # Position de la fenêtre (x,y) x = horizontal, y = vertical
            $ValSORTIE.Location = New-Object System.Drawing.Point(110,45)
                # Taille de la fenêtre (x,y) x = largeur, y = hauteur
            $ValSORTIE.Size = New-Object System.Drawing.Size(($ValSizeX-80),$ValSizeY)
                # Objet nommé
            $ValSORTIE.Name = "ValSortie" 
                    # Valeur de la boite de dialogue
            $ValSORTIE.Text = $VarDate
                #Attache le contrôle et les boutons à la fenêtre
            #$WinCollab.Controls.Add($ValSORTIE)
            $LibCtt.Controls.AddRange(@($ValCttn,$ValCtto,$LibSORTIE,$ValSORTIE))
            $WinCollab.Controls.AddRange(@($LibCtt))
             # Position de la fenêtre (x,y) x = horizontal, y = vertical
            $BtnValider.Location = New-Object Drawing.Point(120,120)
        }
        #Action si la case Oui est cochée
    $ValCtto_CheckedChanged = 
    {
        #Valeur Y lié à la position verticale
        $ValYLoc = $ValYLoc - 1
        # Taille de la fenêtre (x,y) x = largeur, y = hauteur
        $LibCtt.Size = New-Object System.Drawing.Size(($SizeXLib+30),($SizeYLib+30))
        # Position de la fenêtre (x,y) x = horizontal, y = vertical
        $BtnValider.Location = New-Object Drawing.Point(120,120)
        #$WinCollab.Controls.Add($ValSORTIE)
        #Suppression de la fenêtre Date de sortie si non nécessaire
        $LibCtt.Controls.RemoveByKey("LabSortie")
        $LibCtt.Controls.RemoveByKey("ValSortie")
    }
            #Execution du script qui masque ou non la date de sortie
    $ValCtto.add_click($ValCtto_CheckedChanged)
    $ValCttn.add_click($ValCttn_CheckedChanged)
 
    # On crée un groupe de bouton
    $LibCtt.Controls.AddRange(@($ValCttn,$ValCtto))
    #Attache le contrôle et les boutons à la fenêtre
    $WinCollab.Controls.AddRange(@($LibCtt))
    ###################      FIN PARTIE TYPE DE CONTRAT     ###################
    $ValYLoc = $ValYLoc + 2
 
    #Creation Bouton 'Valider'
    $BtnValider = New-Object System.Windows.Forms.Button
    # Position de la fenêtre (x,y) x = horizontal, y = vertical
    $BtnValider.Location = New-Object Drawing.Point(120,120)
    # Taille de la fenêtre (x,y) x = largeur, y = hauteur
    $BtnValider.Size = New-Object System.Drawing.Size(75,23)
    $BtnValider.Text = 'VALIDER'
    $WinCollab.controls.add($BtnValider)
    $BtnValider.DialogResult = [System.Windows.Forms.DialogResult]::OK
    $BtnValider.Add_Click(
        {
            New-Variable -Name selection -Value $($BtnValider.Text) -Scope Script -Force
            $WinCollab.Close()
        })
 
 
 
    #Affiche le tout.
    $WinCollab.ShowDialog()
 
    If ($ValCtto.Checked -Like $True ) 
        {
            $Msgbox::MsgBox("En CDI!", "OKOnly,Information,SystemModal", "RESUME")
        } Else 
            {
                $Msgbox::MsgBox($ValSORTIE.Text, "OKOnly,Information,SystemModal", "RESUME")
            }

Pour la date de sortie, elle se présente sous la forme jj/mm/aaaa.

Si la case reste coché sur CDI, pas de problème. En revanche, si l'on coche "non" + une date, la valeur $ValSORTIE.Text reste vide.

Merci pour le retour.

Tu as un problème de portée ou étendue de ta variable ValSORTIE
Si tu la déclare dans un bloc est est restreinte au bloc et enfant.
Voir ici : https://docs.microsoft.com/fr-fr/pow...powershell-7.1

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
#----------------------------------------------------
#            CHARGEMENT DES BIBLIOTHEQUES
#----------------------------------------------------
#Appel de la bibliothèqye VBScript pour InputBOX
add-type -assemblyName "Microsoft.VisualBasic"
#Appel de la bibliothèqye System.Windows.Forms pour MESSAGEBOX
Add-Type -AssemblyName System.Windows.Forms
#$Msgbox contient les informations de la messsagebox  
#$Msgbox = [System.Windows.Forms.MessageBox]
$Msgbox = [Microsoft.VisualBasic.Interaction]
#----------------------------------------------------
#                         FIN
#----------------------------------------------------
 
#fenêtre
$WinCollab = New-Object System.Windows.Forms.Form
$WinCollab.Text = 'UTILISATEUR'
$WinCollab.AutoSize = $true #wrap to content
$WinCollab.Height = 1 #Autosize agrandira la fenêtre
$WinCollab.FormBorderStyle = 3 #fenêtre à taille fixe
$WinCollab.StartPosition = 'CenterScreen'
 
#Variables taille Libellé
$ValSizeX = 150
$ValSizeY = 20
#Variables localisation x Libellé
$LocationLabX = 20
$SizeXLib = 110
$SizeYLib = 20
 
    ###################        PARTIE TYPE DE CONTRAT       ###################
# Objet : Intitulé.
$LibCtt = New-Object System.Windows.Forms.GroupBox
    # Position de la fenêtre (x,y) x = horizontal, y = vertical
$LibCtt.Location = New-Object Drawing.Point($LocationLabX,25)
    # Taille de la fenêtre (x,y) x = largeur, y = hauteur
$LibCtt.Size = New-Object System.Drawing.Size(($SizeXLib+30),($SizeYLib+30))
#$LibCtt.AutoSize = $True
Write-Host $LibCtt.Size.Height
Write-host $LibCtt.Size.Width
    # Texte affiché
$LibCtt.Text = "CDI? :"
    # Police du texte
$LibCtt.Font = New-Object System.Drawing.Font("Microsoft Sans Serif",9,[System.Drawing.FontStyle]::Underline)
#Attache le contrôle et les boutons à la fenêtre
$WinCollab.controls.add($LibCtt)
 
# Objet : Bouton radio 'Oui'
$ValCtto = New-Object System.Windows.Forms.RadioButton
# Position de la fenêtre (x,y) x = horizontal, y = vertical
$ValCtto.Location = New-Object System.Drawing.Point((($LibCtt.Location.X)),(($LibCtt.Location.Y)))
# Taille de la fenêtre (x,y) x = largeur, y = hauteur
$ValCtto.Size = New-Object System.Drawing.Size(45,$ValSizeY)
# Bouton cochée sur 'Non' par défaut   
$ValCtto.Checked = $True
    # Valeur de la boite de dialogue
$ValCtto.Text = "Oui"
 
# Objet : Bouton radio 'Non'
$ValCttn = New-Object System.Windows.Forms.RadioButton
# Position de la fenêtre (x,y) x = horizontal, y = vertical
$ValCttn.Location = New-Object System.Drawing.Point((($LibCtt.Location.X)+40),(($LibCtt.Location.Y)))
# Taille de la fenêtre (x,y) x = largeur, y = hauteur
$ValCttn.Size = New-Object System.Drawing.Size(45,$ValSizeY)
# Bouton cochée sur 'Non' par défaut   
$ValCttn.Checked = $False
# Valeur de la boite de dialogue
$ValCttn.Text = "Non"
#Action si la case est Non cochée
$ValCttn_CheckedChanged = 
{
        # Taille de la fenêtre (x,y) x = largeur, y = hauteur
    $LibCtt.Size = New-Object System.Drawing.Size(($SizeXLib+80),($SizeYLib+55))
    #Valeur Y lié à la position verticale
    #$ValYLoc = $ValYLoc + 2.4
    # Objet : Intitulé.
    $LibSORTIE = New-Object System.Windows.Forms.Label
    # Position de la fenêtre (x,y) x = horizontal, y = vertical
    $LibSORTIE.Location = New-Object Drawing.Point(10,50)
    #$LibSORTIE.Location = New-Object Drawing.Point($LocationLabX,(($LibCtt.Location.Y)*$ValYLoc))
    # Objet nommé
    $LibSORTIE.Name = "LabSortie" 
    # Taille de la fenêtre (x,y) x = largeur, y = hauteur
    $LibSORTIE.Size = New-Object System.Drawing.Size(($SizeXLib-10),$SizeYLib)
    # Texte affiché
    $LibSORTIE.Text = "DATE SORTIE :"
    # Police du texte
    $LibSORTIE.Font = New-Object System.Drawing.Font("Microsoft Sans Serif",9,
                    [System.Drawing.FontStyle]([System.Drawing.FontStyle]::Bold -bor [System.Drawing.FontStyle]::Underline))
    #Attache le contrôle et les boutons à la fenêtre
    #$WinCollab.controls.add($LibSORTIE)
 
        # Objet : Fenêtre de saisie
    $global:ValSORTIE = New-Object System.Windows.Forms.TextBox
        # Position de la fenêtre (x,y) x = horizontal, y = vertical
    $ValSORTIE.Location = New-Object System.Drawing.Point(110,45)
        # Taille de la fenêtre (x,y) x = largeur, y = hauteur
    $ValSORTIE.Size = New-Object System.Drawing.Size(($ValSizeX-80),$ValSizeY)
        # Objet nommé
    $ValSORTIE.Name = "ValSortie" 
            # Valeur de la boite de dialogue
    $ValSORTIE.Text = $VarDate
        #Attache le contrôle et les boutons à la fenêtre
    #$WinCollab.Controls.Add($ValSORTIE)
    $LibCtt.Controls.AddRange(@($ValCttn,$ValCtto,$LibSORTIE,$ValSORTIE))
    $WinCollab.Controls.AddRange(@($LibCtt))
        # Position de la fenêtre (x,y) x = horizontal, y = vertical
    $BtnValider.Location = New-Object Drawing.Point(120,120)
}
 
#Action si la case Oui est cochée
$ValCtto_CheckedChanged = 
{
    #Valeur Y lié à la position verticale
    $ValYLoc = $ValYLoc - 1
    # Taille de la fenêtre (x,y) x = largeur, y = hauteur
    $LibCtt.Size = New-Object System.Drawing.Size(($SizeXLib+30),($SizeYLib+30))
    # Position de la fenêtre (x,y) x = horizontal, y = vertical
    $BtnValider.Location = New-Object Drawing.Point(120,120)
    #$WinCollab.Controls.Add($ValSORTIE)
    #Suppression de la fenêtre Date de sortie si non nécessaire
    $LibCtt.Controls.RemoveByKey("LabSortie")
    $LibCtt.Controls.RemoveByKey("ValSortie")
}
        #Execution du script qui masque ou non la date de sortie
$ValCtto.add_click($ValCtto_CheckedChanged)
$ValCttn.add_click($ValCttn_CheckedChanged)
 
# On crée un groupe de bouton
$LibCtt.Controls.AddRange(@($ValCttn,$ValCtto))
#Attache le contrôle et les boutons à la fenêtre
$WinCollab.Controls.AddRange(@($LibCtt))
###################      FIN PARTIE TYPE DE CONTRAT     ###################
$ValYLoc = $ValYLoc + 2
 
#Creation Bouton 'Valider'
$BtnValider = New-Object System.Windows.Forms.Button
# Position de la fenêtre (x,y) x = horizontal, y = vertical
$BtnValider.Location = New-Object Drawing.Point(120,120)
# Taille de la fenêtre (x,y) x = largeur, y = hauteur
$BtnValider.Size = New-Object System.Drawing.Size(75,23)
$BtnValider.Text = 'VALIDER'
$WinCollab.controls.add($BtnValider)
$BtnValider.DialogResult = [System.Windows.Forms.DialogResult]::OK
$BtnValider.Add_Click(
    {
        New-Variable -Name selection -Value $($BtnValider.Text) -Scope Script -Force
        $WinCollab.Close()
    })
 
 
 
#Affiche le tout.
$WinCollab.ShowDialog()
 
If ($ValCtto.Checked -Like $True) 
{
    $Msgbox::MsgBox("En CDI!", "OKOnly,Information,SystemModal", "RESUME")
}
Else 
{
    $Msgbox::MsgBox($global:ValSORTIE.Text, "OKOnly,Information,SystemModal", "RESUME")
}

Il y aurai d'autre chose à dire mais bon, sans avoir regardé le script il y a mon regard qui à été choqué par cela $ValCtto.Checked -Like $True
Utilise -eq pour tester une valeur booléenne. Voir RadioButton.Checked

21/03/2021, 10h04
lmir63

Bonjour,

Du coup, il faut que la variable soit déclarée en amont ainsi $Global:VALSORTIE=$Null. Puis dans mon script, je fais appelle à elle simplement avec $ValSORTIE.Text= xxx.
C'est bien ça?

Tu me dis que dans mon script, il y a des choses qui te gênent, n'hésite pas à me dire quoi, si cela peut l'optimiser. Je te remercie pour ton retour.

Citation:

$Msgbox = [Microsoft.VisualBasic.Interaction]
$Msgbox::MsgBox("En CDI!", "OKOnly,Information,SystemModal", "RESUME")

Pour tenter de type une variable on utilise [Microsoft.VisualBasic.Interaction]$Msgbox
Mais si tu n'y stock rien il n'y a aucun intérêt de le faire, utilise directement [Microsoft.VisualBasic.Interaction]::MsgBox("En CDI!", "OKOnly,Information,SystemModal", "RESUME")

Citation:

$ValCtto.Checked -Like $True

Pour comparer une valeur booléenne on utilise égale et pas un opérateur destiné à une chaine de caractère -eq

Citation:

Write-Host $LibCtt.Size.Height
Write-host $LibCtt.Size.Width

Tu as 2 Write-host utilisé pour le débug certainement qui sont resté

Citation:

$WinCollab.ShowDialog()
$Msgbox::MsgBox

Retourne une valeur affiché sur la console, tu peux le masquer en mettant $null = devant

Citation:

New-Variable -Name selection -Value $($BtnValider.Text) -Scope Script -Force

Je ne sais pas a quoi sert cette ligne ... rien apparemment

Citation:

$WinCollab.StartPosition = 'CenterScreen'

Essaie d'utiliser les types attendus : $WinCollab.StartPosition = [System.Windows.Forms.FormStartPosition]::CenterScreen

Citation:

$LibSORTIE

Pour ma part je préfère ne pas créer de contrôles à la volé quand c'est possible, tu pourrais le créer dans le code principale et l'ajouter ou le retirer au GroupBox.
Ceci t'aurai aussi éviter le problème de portée pour lequel tu est venu.

Citation:

(($LibCtt.Location.Y))

Double parenthèses inutile, voir simple inutile

Citation:

(($SizeXLib-10),$SizeYLib)

Je préfère l'écrire (($SizeXLib - 10), $SizeYLib) par habitude et convention de nommage C#

Citation:

#Variables taille Libellé
$ValSizeX = 150
$ValSizeY = 20
#Variables localisation x Libellé
$LocationLabX = 20
$SizeXLib = 110
$SizeYLib = 20

Je ne suis pas trop fan de cette méthode de placement

Citation:

# Position de la fenêtre (x, y) x = horizontal, y = vertical
...

C'est très bien de commenter, je trouve que la ça l'ai un peu trop.
Pour les actions récurrentes je préfère commenter qu'une fois en haut pour la première action

Autre
Tu peux suggérer un masque de saisie avec le contrôle MaskedTextBox

Pour ma part je préfère figé l'interface.
Je préfère aussi la MessageBox de c#
Dans ton cas j’aurais juste activé ou désactivé la Textbox LibSORTIE
Quand tu aura plus de contrôle ta méthode devient ingérable

Ça donnerai quelque chose dans ce gout la
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 #---------------------------------------------------- # CHARGEMENT DES BIBLIOTHEQUES #---------------------------------------------------- # Charge la bibliothèque System.Windows.Forms pour MESSAGEBOX Add-Type -AssemblyName System.Windows.Forms #---------------------------------------------------- # FIN #---------------------------------------------------- # Fenêtre $WinCollab = New-Object System.Windows.Forms.Form $WinCollab.Text = 'UTILISATEUR' $WinCollab.AutoSize = $true # Autosize agrandira la fenêtre $WinCollab.Height = 1 $WinCollab.FormBorderStyle = [System.Windows.Forms.FormBorderStyle]::FixedDialog # Taille fixe de la fenêtre $WinCollab.StartPosition = [System.Windows.Forms.FormStartPosition]::CenterScreen # Centre la fenêtre à l'ouverture ################### PARTIE TYPE DE CONTRAT ################### # Objet : Intitulé. $LibCtt = New-Object System.Windows.Forms.GroupBox # Position de la fenêtre (x, y) x = horizontal, y = vertical $LibCtt.Location = New-Object Drawing.Point(20, 25) # Taille de la fenêtre (x, y) x = largeur, y = hauteur $LibCtt.Size = New-Object System.Drawing.Size(190, 75) # Texte affiché $LibCtt.Text = "CDI ?" # Police du texte $LibCtt.Font = New-Object System.Drawing.Font("Microsoft Sans Serif", 9, [System.Drawing.FontStyle]::Underline) # Objet : Bouton radio 'Oui' $ValCtto = New-Object System.Windows.Forms.RadioButton $ValCtto.Location = New-Object System.Drawing.Point(20, 25) $ValCtto.Size = New-Object System.Drawing.Size(45, 20) # Bouton cochée sur 'Non' par défaut $ValCtto.Checked = $True $ValCtto.Text = "Oui" # Objet : Bouton radio 'Non' $ValCttn = New-Object System.Windows.Forms.RadioButton $ValCttn.Location = New-Object System.Drawing.Point(60, 25) $ValCttn.Size = New-Object System.Drawing.Size(45, 20) $ValCttn.Checked = $False $ValCttn.Text = "Non" # Objet : Intitulé. $LibSORTIE = New-Object System.Windows.Forms.Label $LibSORTIE.Location = New-Object Drawing.Point(10, 50) # Donne un nom $LibSORTIE.Name = "LabSortie" $LibSORTIE.Size = New-Object System.Drawing.Size(100, 20) $LibSORTIE.Text = "DATE SORTIE :" # Police du texte $LibSORTIE.Font = New-Object System.Drawing.Font("Microsoft Sans Serif", 9, ([System.Drawing.FontStyle]::Bold -bor [System.Drawing.FontStyle]::Underline)) # Désactive le controle $LibSORTIE.Enabled = $false # Objet : Fenêtre de saisie $ValSORTIE = New-Object System.Windows.Forms.MaskedTextBox $ValSORTIE.Location = New-Object System.Drawing.Point(110, 45) $ValSORTIE.Size = New-Object System.Drawing.Size(70, 20) $ValSORTIE.Name = "ValSortie" $ValSORTIE.Enabled = $false # Définit un masque de saisie $ValSORTIE.Mask = "00/00/0000" # Ajout des évènements $ValCttn.add_click( { $LibSORTIE.Enabled = $true $ValSORTIE.Enabled = $true }) $ValCtto.add_click( { $LibSORTIE.Enabled = $false $ValSORTIE.Enabled = $false }) # Ajoute les contrôles à la GroupBox $LibCtt.Controls.AddRange(@($ValCttn, $ValCtto, $LibSORTIE, $ValSORTIE)) ################### FIN PARTIE TYPE DE CONTRAT ################### # Creation Bouton 'Valider' $BtnValider = New-Object System.Windows.Forms.Button $BtnValider.Location = New-Object Drawing.Point(120, 120) $BtnValider.Size = New-Object System.Drawing.Size(75, 23) $BtnValider.Text = 'VALIDER' # Définit la valeur qui est retournée au formulaire parent lorsque l'utilisateur clique sur le bouton $BtnValider.DialogResult = [System.Windows.Forms.DialogResult]::OK $BtnValider.Add_Click( { $WinCollab.Close() }) # Ajoute les contrôles à la fenêtre $WinCollab.Controls.AddRange(@($LibCtt, $BtnValider)) # Affiche la fenêtre $null = $WinCollab.ShowDialog() # Affiche un retour If ($ValCtto.Checked -eq $True) { $null = [System.Windows.Forms.MessageBox]::Show("En CDI !", "Resume", [System.Windows.Forms.MessageBoxButtons]::OK, [System.Windows.Forms.MessageBoxIcon]::Information) } Else { $null = [System.Windows.Forms.MessageBox]::Show($ValSORTIE.Text, "Resume", [System.Windows.Forms.MessageBoxButtons]::OK, [System.Windows.Forms.MessageBoxIcon]::Information) }

Merci pour ce retour rapide et tes explications!
C'est toujours bien de connaitre les bonnes pratiques. Du coup, j'ai répondu à chacune de tes remarques.

Citation:

Pour tenter de type une variable on utilise [Microsoft.VisualBasic.Interaction]$Msgbox
Mais si tu n'y stock rien il n'y a aucun intérêt de le faire, utilise directement [Microsoft.VisualBasic.Interaction]::MsgBox("En CDI!", "OKOnly,Information,SystemModal", "RESUME")

Je le fais surtout pour éviter dans une ligne à rallonge et d'avoir une visu sur une page plutôt que jouer avec les ascenseurs.

Citation:

Je préfère aussi la MessageBox de c#

Je ne le savais pas. Je connais pas le langage C# mais en effet, ça m'a l'air sympa. Je vais me pencher dessus.

Citation:

Pour comparer une valeur booléenne on utilise égale et pas un opérateur destiné à une chaine de caractère -eq

C'est corrigé.

Citation:

Tu as 2 Write-host utilisé pour le débug certainement qui sont resté

Effectivement, un oubli de suppression.

Citation:

Retourne une valeur affiché sur la console, tu peux le masquer en mettant $null = devant

Citation:

Essaie d'utiliser les types attendus : $WinCollab.StartPosition = [System.Windows.Forms.FormStartPosition]::CenterScreen

Merci pour ces conseils, je ne comprenais pas pourquoi j'avais certains retours sur la console qui ne m'intéressaient pas. Je vais l'appliquer sur d'autres scripts.

Citation:

New-Variable -Name selection -Value $($BtnValider.Text) -Scope Script -Force

sur ce script,oui,il n'est pas utile.

Citation:

Pour ma part je préfère ne pas créer de contrôles à la volé quand c'est possible, tu pourrais le créer dans le code principale et l'ajouter ou le retirer au GroupBox.
Ceci t'aurai aussi éviter le problème de portée pour lequel tu est venu.

Citation:

Dans ton cas j’aurais juste activé ou désactivé la Textbox LibSORTIE
Quand tu aura plus de contrôle ta méthode devient ingérable

Je n'avais pas la bonne méthodologie,, en effet, ton idée me convient bien et cela me génère moins de problème. Dans mon script complet, la gestion des paramètres d'emplacement, de taille de fenêtre est galère. Ta gestion est plus simple et s'administre mieux.

Je rebondis la dessus pour te demander ton avis sur une gestion simple d'une mauvaise saisie :
1- Une case vide qui ne devrait pas l'être
2- Une valeur incohérente.

Je la gère comme ça de mon côté :
Code:

1 2 3 4 5 6 7 8 9 10 #Après avoir appuyer sur valider If (($VALEUR1.Text -Like $Null) -or ($VALEUR2 -Like $Null)) { If ($VALEUR1.Text -Like $Null) {$Msgbox::MsgBox("Merci de saisir le nom de famille", "OKOnly,Exclamation,SystemModal", "OUBLI DE SAISIE")} If ($VALEUR2.Text -Like $Null) {$Msgbox::MsgBox("Merci de saisir le nom de famille", "OKOnly,Exclamation,SystemModal", "OUBLI DE SAISIE")} #J'ai créé une variable pour différencier un premier lancement ou non, pour garder les précédentes "bonnes" valeurs saisies $Global:PremLancement = $False }
Et je mets à chaque début de partie
Code:

1 2 3 If ($PremLancement -eq $True) {création des boites de saisies, dialogues, libellé } Else {"j'attache" mes "controls" avec un AddRange... } exemple : else {$LibCtt.Controls.AddRange(@($ValCttn, $ValCtto, $LibSORTIE, $ValSORTIE))}
J'espère n'être pas très flou dans mes explications.

Citation:

Je le fais surtout pour éviter dans une ligne à rallonge et d'avoir une visu sur une page plutôt que jouer avec les ascenseurs.

Je te l'accorde, je n'ai pas l'habitude de le voir mais d'accord va pour
Code:

1 2 $Msgbox = [System.Windows.Forms.MessageBox] $Msgbox::Show("En CDI !", "Resume", [System.Windows.Forms.MessageBoxButtons]::OK, [System.Windows.Forms.MessageBoxIcon]::Information)
Citation:

Je rebondis la dessus pour te demander ton avis sur une gestion simple d'une mauvaise saisie

C'est toujours un peu galère à valider les saisies
Tu as certain contrôle qui ont des techniques de validation interne comme MaskedTextBox
Pour faire simple, si tu veux valider ce qu'entre un utilisateur tu peux utiliser l'évènement Leave commun à tous les contrôles.
Code:

1 2 3 4 5 6 7 8 9 10 11 $ValSORTIE.Add_Leave({ [ref]$OutDate = [datetime]::MinValue if (![DateTime]::TryParseExact($ValSORTIE.Text, "dd/MM/yyyy", [System.Globalization.CultureInfo]::InvariantCulture, [System.Globalization.DateTimeStyles]::None, $OutDate)) { [System.Windows.Forms.MessageBox]::Show("La date n'est pas valide !", "Resume", [System.Windows.Forms.MessageBoxButtons]::OK, [System.Windows.Forms.MessageBoxIcon]::Error) $ValSORTIE.Focus() } })
Ta méthode est aussi correcte car si l'utilisateur ne passe pas dans la Textbox ma méthode ne vérifiera pas la cohérence.
Pour centraliser les informations tu peux ajouter une propriété à la Textbox pour éviter de créer des variables supplémentaires.

Code:

Add-Member -InputObject $ValSORTIE -NotePropertyName "OldText" -NotePropertyValue "Mon bon texte"

Tu peux aussi envisager d'ajouter une variable pour définir une expression régulière (validation textuelle) que tu utilisera pour valider que la données est correcte, pour exemple si tu attend que des chiffres

Code:

Add-Member -InputObject $ValSORTIE -NotePropertyName "RegValidatePattern" -NotePropertyValue "^\d+$"

Et tu le test plus bah que cela te semble judicieux

Bref, je n'ai pas de solution idéal que des propositions :lol:

22/03/2021, 18h35
ericlm128

Tu devrait lire ceci qui est intéressant sur le sujet

https://docs.microsoft.com/fr-fr/dot...netdesktop-5.0
29/03/2021, 14h57
lmir63

Désolé pour ma réponse tardive.

Je suis vraiment déçu ! Moi qui m'attendais à une solution miracle :lol:.

Je remercie sincèrement pour le temps que tu as pris pour me répondre et aux solutions proposées. Il faut que je prenne plus de temps pour me plonger dans Powershell car cet outil a un potentiel énorme.

Bonne journée à toi!