Listbox en relation avec Checkbox

Bonjour,
Je voudrais faire la chose suivante:
Cocher un checkbox et après avoir cliquer sur bouton "ok" :
1- le texte s'ajoute dans la listbox
2- le checkbox se décoche
3- si l'élément existe déjà après cliquer sur ok un msgbox apparait pour éviter les doublons dans la liste

Pour les 2 premiers points j'ai essayer le code suivant:
Code:

1 2 3 4 5 6 7 8 9 Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click If CheckBox1.Checked = True Then If Not List.Items.Contains("Mon_text") Then List.Items.Add("Mon_text") CheckBox1.Checked = False Else CheckBox1.Checked = False End If End If
J'exécute , après avoir cocher la case je clique sur ok et la la case se décoche sans ajouter l'élément
Merci de votre aide

Salutations,
J'ai bidouiller un peu et j'ai trouver la solution:
Code:

1 2 3 4 5 6 7 Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click If CheckBox1.Checked = True Then If Not List.Items.Contains("mon_text") Then CheckBox1.Checked = False List.Items.Add("mon_text") End If End If
La si je coche puis je clique sur ok mon texte s'ajoute et la case se décoche mais la deuxième fois il est bien que le texte ne s'ajoute pas une deuxième fois mais la case ne se décoche pas bien entendu pour y arriver je n'ai pu trouver d'idée , à part la précédente que j'ai déjà citer ..
Merci de votre aide

si tu veux que la case soit décochée à tout les coups fais comme suit

Code:

1
2
3
4
5
6
7
8
9
10
11
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If CheckBox1.Checked = True Then
            CheckBox1.Checked = False
            If List.Items.Contains("mon_text") Then
                msgbox("existe deja")
            else
                List.Items.Add("mon_text")
            End If
 
        End If

à quoi correspond "mon_text"? je suppose que le texte sera récupéré dynamiquement non? s'il correspond au texte de ta checkbox tu peut faire

Code:

1
2
3
4
5
6
7
8
9
10
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If CheckBox1.Checked = True Then
            If List.Items.Contains(CheckBox1.text) Then
                msgbox("existe deja")
            else
                List.Items.Add(CheckBox1.text)
            End If
            CheckBox1.Checked = False
        End If

Bonsoir,
Merci nsanabi de ta réponse apparemment il fallait que je mette

Citation:

CheckBox1.Checked = False

Dans la première "if" , j'ai réctifier mon code en mettant un msgbox si l'élément existe déjà voilà ce que j'ai exactement mis:
Code:

1 2 3 4 5 6 7 8 9 Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click If Apéritif.Checked = True Then Apéritif.Checked = False If List.Items.Contains(Apéritif.Text) Then MsgBox("Déjà choisi") Else List.Items.Add(Apéritif.Text) End If End If
Bien sur un EndSub à la fin car il y a plusieurs checkbox à cocher .
Quand j'execute le programme :
1- je coche puis je clique sur ok = tout est bien l'élément s'ajoute dans la listbox et chekcbox se décoche
2- je recoche le checkbox je clique sur ok et la msgbox ne s'affiche pas mais le checkbox

Citation:

2- je recoche le checkbox je clique sur ok et la msgbox ne s'affiche pas mais le checkbox

sincerement, je ne vois pas la source de l'erreur
et je te conseil de ne plus nommer tes controles avec des caracteres accentués meme si vb.net se montre assez passif (sous pretexte d'internationaliser le code) remplace le name Apéritif par Aperitif

Oooh Oui ! Merci Infiniment !!!!! :') Je nommerais plus un controle avec des caractères de ce genre .. Merci encore !! <3