Discussion :

[try123]

Bonjour, je débute en vb net et je bloque sur combobox voilà je vous expose mon problème:

J'ai fais une liste modifiable c'est-à-dire une combobox que j'ai nommé BOX_PAYS à l'intérieur il y a 3 pays FRANCE, ALLEMAGNE et ITALIE.

J'ai aussi une TextBox que j'ai nommé Text_PAYS il permettra de saisir un pays s'il n'est pas dans le BOX_PAYS par exemple CHINE et lorsque je clique sur la commande ajouter ça l'ajoute dans BOX_PAYS jusque là ça va mais j'aimerai mettre une condition mais je ne sais pas comment faire le code j'avais pensé à faire ça mais ça ne marche pas le problème ne vient pas de "items" ? :

Code :

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

1
2
3
4
5
6
7
Private Sub AJOUTER_PAYS_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AJOUTER_PAYS.Click
 
        If Text_PAYS.Text = BOX_PAYS.SelectedIndex Then
            MsgBox("Le pays existe déjà !", MsgBoxStyle.OkOnly, "Erreur")
        Else : BOX_PAYS.Items.Add(Text_PAYS.Text)
        End If
    End Sub

[hugoclo]

moi je ferais une petite boucle:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
dim cpt as boolean
cpt = false
for i as integer = 0 to BOX_PAYS.items.count - 1
if BOX_PAYS.item(i) = Text_PAYS.text then
cpt = true
end if
next
if cpt = true then
MsgBox("Le pays existe déjà !", MsgBoxStyle.OkOnly, "Erreur")
else
BOX_PAYS.Items.Add(Text_PAYS.Text)
end if

[hugoclo]

plus rapide

Code :

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

1
2
3
4
5
6
7
8
 
for i as integer = 0 to BOX_PAYS.items.count - 1
if BOX_PAYS.item(i) = Text_PAYS.text then
MsgBox("Le pays existe déjà !", MsgBoxStyle.OkOnly, "Erreur")
exit sub
end if
next
BOX_PAYS.Items.Add(Text_PAYS.Text)

[try123]

Merci pour vos réponses c'est quoi

cpt ?

[hugoclo]

cpt servais juste à voir si un pays existé déjà.

[try123]

Ok merci beaucoup je voulais savoir comment on fait pour ne pas saisir 2 fois le même pays par exemple on ne doit pas saisir 2 fois le pays FRANCE sinon on me marque une msgbox j'ai fais ce code:

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub AJOUTER_PAYS_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AJOUTER_PAYS.Click
        For i As Integer = 0 To BOX_PAYS.Items.Count - 1
            If BOX_PAYS.Items(i) = BOX_PAYS.Items(i) Then
                MsgBox("Erreur. Vous avez déjà sélectionné ce pays !", MsgBoxStyle.OkOnly, "Erreur")
                Exit Sub
            End If
        Next
        BOX_PAYS.Items.Add(Text_PAYS.Text)
    End Sub

[Danyel]

c'est quoi cpt ?

Code :

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

dim cpt as boolean

Soit Vrai ou Faux