Discussion :

[Mahmoud_]

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 :

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

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

[Mahmoud_]

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

Code :

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

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

[nsanabi]

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

Code :

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

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 :

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

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

[Mahmoud_]

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

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 :

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

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

[nsanabi]

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

[Mahmoud_]

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