Condition et combobox

Version imprimable

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:

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

moi je ferais une petite boucle:

Code:

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

plus rapide

Code:

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)

01/05/2011, 14h53
try123

Merci pour vos réponses c'est quoi

Citation:

cpt ?
01/05/2011, 14h55
hugoclo

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

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:

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

01/05/2011, 16h23
Danyel

Citation:

Envoyé par try123

c'est quoi cpt ?

Code:

dim cpt as boolean

Soit Vrai ou Faux

Citation:

Code:

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

Avec ce code

Code:

If BOX_PAYS.Items(i) = BOX_PAYS.Items(i)

ca ne marchera pas
il faut mettre :

Code:

If BOX_PAYS.Items(i) = TEXT_PAYS.text

01/05/2011, 17h02
try123

merci énormément par contre si on veut qu'il y a une limite au niveau des choix des langues par exemple si on choisit au maximum 2 langues je dois utiliser For et count ?
01/05/2011, 17h41
hugoclo

c.a.d une limite si il ne faut que deux langues autant les definir directement dans le combobox.
01/05/2011, 17h52
The_Big_Lebowski

La méthode FindString de la classe combobox permet de retourner l'index de la première occurence trouvée.

Code:

dim position as integer = comboBox1.FindString("France")

Il faut tester position par la suite
01/05/2011, 20h13
try123

ok mille merci pour votre aide