Probleme ajouter avec combobox1 à 8 chiffre?

Version imprimable

Bonjour,

j'ai un petit souci avec un combobox1 pour entrer un adresse à 8 chiffre.
Code:

1 2 3 4 5 6 7 Private Sub ComboBox1_TextChanged(sender As System.Object, e As System.EventArgs) Handles ComboBox1.TextChanged If ComboBox1.Text.Length = 8 AndAlso Not ComboBox1.Items.Contains(ComboBox1.Text) Then ComboBox1.Items.Add(ComboBox1.Text) Else MsgBox("Veuillez entrer une adresse à 8 chiffre !", MsgBoxStyle.Exclamation, "Attention") End If End Sub
mon problème quand je entrer la première chiffre. j'ai le msgbox qui m'affiche "Veuillez entrer un adresse ....etc".

je voudrais ajouter dans combobox1 une adresse à 8 chiffre, on sinon si il y est inférieur à 8 chiffre message erreur et aussi éviter ajouter 2 fois la même adresse dans combobox1.

Pouvez-vous m'aider à résoudre mon problème merci d'avance.

25/05/2022, 16h01
Momoth

Salut,

C'est normal que le message s'affiche lors ce que tu saisie le premier charactère vu que du coup, tu en as moins de 8.

Ta validation est bonne. Je pense que ton soucis c'est le type d'évènement que tu lève. Là tu es sur du TextChanged. Il va se déclencher à chaque changement dans la valeur de ton combobox.

Dans ton cas, essaye plutôt de faire ta validation lors ce que tu sors du focus de ton champ. Ca t'évitera d'avoir l'erreur à chaque input.

Momoth

D'ailleurs, je me trompe peut être ca fait une éternité que j'ai pas fait de winform, mais les combobox, c'est pas des listes déroulantes ?

C'est un champ autocomplète ou un truc du genre qui fait que tu passe par un combobox plutôt qu'un champ texte classique ?

Momoth

Bonjour Momoth, merci d'avoir répondu.

j'ai refait mon code avec comme vous avez dit mais , j'ai un problème quand je sélection une adresse toujour msgbox : oups ! vous avez déla entrer ...etc!

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub ComboBox1_Validated(sender As System.Object, e As System.EventArgs) Handles ComboBox1.Validated
        If Not String.IsNullOrEmpty(ComboBox1.Text) AndAlso ComboBox1.Text.Length >= 8 Then
            If Not ComboBox1.Items.Contains(ComboBox1.Text) Then
                ComboBox1.Items.Add(ComboBox1.Text)
            Else
                ComboBox1.Items.Remove(ComboBox1.Text)
                MsgBox("Oups ! Vous avez déja enregistré cette adresse !", MsgBoxStyle.Exclamation, "Attention")
            End If
        Else
            ComboBox1.Items.Remove(ComboBox1.Text)
            MsgBox("Veuillez entrer une adresse à 8 chiffre !", MsgBoxStyle.Exclamation, "Attention")
        End If
    End Sub

comment puis je faire cela pour éviter avoir 2 adresse identique en sélectionne une adresse? merci d'avance

Je crois que je viens de comprendre ce que tu essais de faire (il m'aura fallu un peu de temps).

Grosso modo, tu as une liste déroulante d'adresse, dans laquelle tu peux rajouter manuellement des éléments c'est bien ça ? Le problème qui va se poser, c'est que tu utilise le même control pour ajouter un nouvel élément dans ta liste (ton premier soucis) et sélectionner un élément dans cette liste (ton deuxième soucis). Du coup la validation est commune aux deux comportements et il faut faire une validation qui colle à tous tes cas d'utilisation.
Code:

1 2 3 4 5 6 7 8 9 10 11 // Création ou sélection d'élément existant. If Not String.IsNullOrEmpty(ComboBox1.Text) AndAlso ComboBox1.Text.Length >= 8 Then // Si création. If Not ComboBox1.Items.Contains(ComboBox1.Text) Then ComboBox1.Items.Add(ComboBox1.Text) End If // On fait rien de particulier en cas de séléction. Else ComboBox1.Items.Remove(ComboBox1.Text) MsgBox("Veuillez entrer une adresse à 8 chiffre !", MsgBoxStyle.Exclamation, "Attention") End If
Si tu fais quelque chose comme ça, tu pourra éviter les doublons lors de la création mais tu n'aura pas d'erreur pour te le notifier. Si tu veux pouvoir gérer ça, il te faudrait un paramètre qui indique l'action souhaitée (contexte de création ou de sélection). Là actuellement on peut déduire le contexte de création d'un élément non existant, mais il me parait compliquer de déduire si on est sur une création de doublon ou sur la sélection d'un élément existant.

Pour aller plus loin, je pense qu'il faudrait avoir d'autres controls intermédiaires (genre un bouton + pour déclencher la création, ce genre de truc).

Momoth

pour l'instant ça fonctionne très bien. pour éviter les doublons je vais utiliser ComboBox1_KeyDown.

Code:

1
2
3
4
5
6
7
8
9
Private Sub ComboBox1_KeyDown(sender As System.Object, e As System.Windows.Forms.KeyEventArgs) Handles ComboBox1.KeyDown
        If e.KeyCode = Keys.Delete Then
            If ComboBox1.Items.Contains(Me.ComboBox1.Text) Then
                ComboBox1.Items.Remove(Me.ComboBox1.Text)
            End If
        ElseIf e.KeyCode = Keys.Enter AndAlso Not ComboBox1.Items.Contains(ComboBox1.Text) Then
            ComboBox1.Items.Add(Me.ComboBox1.Text)
        End If
    End Sub