Supprimer un control par le code.

Version imprimable

Bonjour,

Je ne me souviens plus comment supprimer un contrôle par le code, quand le contrôle en question a était créer par le code.

Sur ce code aux lignes 51 à 54 j'ai:

Citation:

Warning Variable 'labelCorner' is used before it has been assigned a value. A null reference exception could result at runtime.

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
    Private Sub AddCorners(ByVal sender As Object, ByVal e As System.EventArgs) Handles TrackPage.Enter
 
        Dim numberOfCorner As Integer
        Dim latestNumberOfCorner As Integer
        Dim labelCorner As Label
        Dim labelSpeed As Label
        Dim cornerName_tbox As TextBox
        Dim cornerSpeed_tbox As TextBox
 
        numberOfCorner = CInt(Me.NumberOfCorners_tbox.Value)
 
        If numberOfCorner - latestNumberOfCorner > 1 Then
 
            For i = latestNumberOfCorner + 1 To numberOfCorner Step 1
                labelCorner = New Label
                With labelCorner
                    .Text = "Corner " & i.ToString
                    .Font = New System.Drawing.Font("ab", 8, FontStyle.Bold)
                    .Size = New System.Drawing.Size(70, 15)
                    .Location = New System.Drawing.Point(17, 84 + (25 * i - 1))
                End With
 
                labelSpeed = New Label
                With labelSpeed
                    .Text = "[km/h]"
                    .Font = New System.Drawing.Font("ab", 8, FontStyle.Bold)
                    .Location = New System.Drawing.Point(362, 84 + (25 * i - 1))
                End With
 
                cornerName_tbox = New TextBox
                With cornerName_tbox
                    .Name = "Corner" & i.ToString & "_tbox"
                    .Size = New System.Drawing.Size(200, 20)
                    .Location = New System.Drawing.Point(90, 83 + (25 * i - 1))
                End With
 
                cornerSpeed_tbox = New TextBox
                With cornerSpeed_tbox
                    .Name = "Speed" & i.ToString & "_tbox"
                    .Size = New System.Drawing.Size(60, 20)
                    .Location = New System.Drawing.Point(296, 83 + (25 * i - 1))
                End With
 
                TrackPage.Controls.Add(labelCorner)
                TrackPage.Controls.Add(labelSpeed)
                TrackPage.Controls.Add(cornerName_tbox)
                TrackPage.Controls.Add(cornerSpeed_tbox)
            Next
 
        ElseIf numberOfCorner - latestNumberOfCorner < 1 Then
            TrackPage.Controls.Remove(labelCorner)
            TrackPage.Controls.Remove(labelSpeed)
            TrackPage.Controls.Remove(cornerName_tbox)
            TrackPage.Controls.Remove(cornerSpeed_tbox)
        End If
 
        latestNumberOfCorner = numberOfCorner
    End Sub

02/11/2011, 10h48
bizet

Salut

Tu dois d'abord faire un FindControl() puis le Remove().

Citation:

Envoyé par bizet

Salut

Tu dois d'abord faire un FindControl() puis le Remove().

Mais comment faire pour désigner le contrôle à retirer?

La méthode remove n'accept un argument qu'en tant que "controle"
Code:

1 2 3 4 5 6 ElseIf numberOfCorner - latestNumberOfCorner < 1 Then TrackPage.Controls.Find("TrackPage", False) TrackPage.Controls.Remove("corner" & i.ToString & "_label") End If

02/11/2011, 12h03
Shadam

Il te suffit d'instancier tes contrôles quand tu les déclare, ainsi même si tu ne les affiche pas tu pourras tout de même les supprimer.

Citation:

Envoyé par Shadam

Il te suffit d'instancier tes contrôles quand tu les déclare, ainsi même si tu ne les affiche pas tu pourras tout de même les supprimer.

J'ai essayer un truc, mais je n'ai pas compris.

je les déclare comme çà:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
 Dim labelCorner As New Label
                With labelCorner
                    .Name = "corner" & i.ToString & "_label"
                    .Text = "Corner " & i.ToString
                    .Font = New System.Drawing.Font("ab", 8, FontStyle.Bold)
                    .Size = New System.Drawing.Size(70, 15)
                    If i > 20 Then
                        .Location = New System.Drawing.Point(450, 84 + (25 * (i - 21)))
                    Else
                        .Location = New System.Drawing.Point(17, 84 + (25 * (i - 1)))
                    End If
                End With

Donc ce qui les différencie c'est leur nom (grace au "i"), et peut être leur index ou quelque chose comme çà.

Alors comment faire référence à un label particulier dans le méthode remove?

02/11/2011, 12h30
Shadam

Et bien en les nommant dans le remove... Tu dois bien savoir lesquels tu doit supprimer non? Ou alors tu les supprimes au petit bonheur la chance peut être?
02/11/2011, 12h36
Gualino

Citation:

Envoyé par Shadam

Et bien en les nommant dans le remove... Tu dois bien savoir lesquels tu doit supprimer non? Ou alors tu les supprimes au petit bonheur la chance peut être?

J'ai trouvé en un coup de google (shame on me)

Il faut utiliser .RemoveByKey qui utilise un argument en tant que string, où on peut faire reference au control par son nom.

Code:

TrackPage.Controls.RemoveByKey("speed" & (numberOfCorner + 1).ToString & "_label")

Voilà alors que dans le cas d'un .remove c'est en tant que system.windows.forms.controls
02/11/2011, 14h17
bizet
salut,

juste pour préciser, la méthode Remove() prend en paramètre un controle, c'est justement pour cela que je te disais de récupérer ce contrôle par la méthode FindControl()
Code:

1 2 3 Label monLabel = xxxx.FindControl("IdDeMonLabel"); xxxx.Remove(monLabel);
02/11/2011, 16h15
Gualino
Citation:
Envoyé par bizet

salut,

juste pour préciser, la méthode Remove() prend en paramètre un controle, c'est justement pour cela que je te disais de récupérer ce contrôle par la méthode FindControl()

Code:

1 2 3 Label monLabel = xxxx.FindControl("IdDeMonLabel"); xxxx.Remove(monLabel);
C'est juste, et j'avais mal interpreté l'argument "key" as string