Discussion :

[Bruce Campbell]

Bonjour,

J'aimerai faire apparaitre un new checkbox si j'ai coché un case dans un autre groupbox mais egalement qu'il disparaisse si je decoche.

Mon code actuel ne fonctionne pas et je ne trouve pas de solution.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
   Private Sub CheckBoxVoyant1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBoxVoyant1.CheckedChanged
        Dim CheckBox1 As New CheckBox()
        CheckBox1.Location = New Point(6, 24)
        CheckBox1.Text = "test"
 
 
        If CheckBoxVoyant1.Checked Then
            GroupBoxQuestion.Controls.Add(CheckBox1)
        End If
 
        If CheckBoxVoyant1.Checked = False Then  GroupBoxQuestion.Controls.Remove(CheckBox1)
 
    End Sub

Aidez moi s'il vous plait

[Pol63]

http://plasserre.developpez.com/cours/vb-net/


le plus simple c'est quand meme de poser le checkbox en mode design et de faire
.visisble = true ou false

[Bruce Campbell]

oui, mais dans le bout de code que j'ai mis on ne voit qu'un insertion mais il pourrait il y en avoir plusieurs ajouté => fois X (variable)

[chrismonoye]

Bonjour,
à "CheckBoxVoyant1.Checked = False", vous créez une deuxième instance de CheckBox1 (new).
Et c'est surement celle ci que vous détruisez et la première reste.
Sortez de la procédure

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim CheckBox1 As New CheckBox()

pour voir.

[ctxnop]

Non non, sa création est effectivement mal placée mais il ne faut pas la sortir pour autant.

Code vb.net :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Private Sub CheckBoxVoyant1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBoxVoyant1.CheckedChanged
	If CheckBoxVoyant1.Checked Then
		' Si CheckBoxVoyant1.Checked = False on souhaite DETRUIRE le contrôle, alors on s'amuse pas a en créer un nouveau ...
		Dim CheckBox1 As New CheckBox()
		CheckBox1.Location = New Point(6, 24)
		CheckBox1.Text = "test"
		CheckBox1.Name = "chkTest" ' Très important cette variable car elle permet de retrouver le contrôle, attention a ne pas nommer deux contrôles avec le même nom.
		GroupBoxQuestion.Controls.Add(CheckBox1)
	Else
		dim toRemove as Control = GroupBoxQuestion.Controls("chkTest") ' On obtient l'instance du contrôle qu'on souhaite supprimer
		GroupBoxQuestion.Controls.Remove(toRemove)
	End If
End Sub

[chrismonoye]

OK