Discussion :

[babass-77]

Bonjour,j'ai un problème de combobox. J'ai réussi à lier deux combobox entre-elles, la première permet de selectionner une région et la deuxième donne les villes correspondantes et permet alors de les selectionner. Le problème est que si la personne se trompe dans le choix de la région et veut donc modifier son choix, lorsqu'on veut utiliser la seconde combobox, les villes corespondantes à la bonne région s'affichent mais également celle de la fausse.
(par exemple, elle choisit Aquitaine au lieu d'Alsace, elle va dans la seconde combobox, les villes correspondant à l'Aquitaine s'affichent. Mais elle se rend compte de son erreur, donc elle modifie et met Alsace. A ce moment là lorsqu'on utilise la 2ème combobox, les villes correspondants à l'alsace mais également à l'aquitaine s'affichent)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ComboBox1.Items.Add("Alsace")
        ComboBox1.Items.Add("Aquitaine")
 
    End Sub
 
    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
 
        If ComboBox1.Text = "Alsace" Then
            ComboBox2.Items.Add("Mulhouse")
            ComboBox2.Items.Add("Strasbourg")
        End If
 
        If ComboBox1.Text = "Aquitaine" Then
            ComboBox2.Items.Add("Agen")
            ComboBox2.Items.Add("Bordeaux")
        End If
    End Sub

[Pol63]

ComboBox2.Items.Clear au début de la sub qui handles cmb1.SelectionChanged

il faut nommer les controles (et les variables en général) avec un nom explicite, et pour les controles il est conseillé d'avoir un préfixe pour le type
=> CmbRegion et CmbVille par exemple

dans ton cas il ne faut pas faire

Code :

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

1
2
3
4
if condition then 
end if
if condition then 
end if

mais

Code :

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

1
2
3
4
5
6
select case ComboBox1.Text
  case "Alsace"
    '
  case "Aquitaine"
    '
end select

car si la 1ère condition testée est vraie les autres seront fausses, donc ca perd du temps de les tester toutes

[tomlev]

Bah c'est normal, tu ajoutes des éléments à la ComboBox mais tu n'enlèves pas ceux qui étaient déjà présents... il faut faire un ComboBox2.Items.Clear() avant d'ajouter les nouveaux items.

Et au passage : par pitié, donne des vrais noms à tes contrôles ! Ca prend 2 secondes de renommer ComboBox1 en ComboBoxRegions et ComboBox2 en ComboBoxVilles si tu le fais tout de suite, et ça rend le code beaucoup plus lisible. Quand tu as 2 ou 3 contrôles, ça va encore, mais quand tu en as 50, comment tu fais pour te rappeler à quoi correspond TextBox42 ou ComboBox37 ?

[babass-77]

merci, ca fonctionne et oui jvais essayer de faire des efforts pour mes controles!!