checkbox.remove dans un groupbox

Version imprimable

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:

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

05/08/2010, 20h35
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
05/08/2010, 21h06
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)
06/08/2010, 06h30
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:

Dim CheckBox1 As New CheckBox()

pour voir.

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

Code:

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

06/08/2010, 10h44
chrismonoye

OK