Problème avec ComboBox sur VB6 !
said394
Messages postés
69
Statut
Membre
-
lermite222 Messages postés 9042 Statut Contributeur -
lermite222 Messages postés 9042 Statut Contributeur -
Bonsoir,
J'ai créer une interface sous VB6, et j'y ai mis des ComboBox.
La première Combobox contient ceci :
A, B, C, D
Et la deuxième Combobox Contient ceci:
A1, A2, A3, B1, B2, B3, B4, B5, C1, C2, D1, D2, D3
Mon souci est le suivant:
Je veux que quand je choisi A dans la liste première, VB doit me limité le choix entre A1, A2 et A3 dans la deuxième liste.
J'ai créer une interface sous VB6, et j'y ai mis des ComboBox.
La première Combobox contient ceci :
A, B, C, D
Et la deuxième Combobox Contient ceci:
A1, A2, A3, B1, B2, B3, B4, B5, C1, C2, D1, D2, D3
Mon souci est le suivant:
Je veux que quand je choisi A dans la liste première, VB doit me limité le choix entre A1, A2 et A3 dans la deuxième liste.
A voir également:
- Problème avec ComboBox sur VB6 !
- Vb6 - Télécharger - Divers Utilitaires
- Vba combobox selected item ✓ - Forum VB / VBA
- Combobox vba liste déroulante dynamique ✓ - Forum Excel
- Dtpicker vb6 - Forum VB / VBA
- VB6 - SSTab ✓ - Forum VB / VBA
3 réponses
Bonjour,
Employer un tableau à 4 dimentions
et changer le contenu du ComboBox2 en fonction de la sélection du comboBox1
A+
Employer un tableau à 4 dimentions
Dim Tableau(1 to 4,1 to 3)
Tableau(1,1) = "A1"
Tableau(1,2) = "A2"
Tableau(1,3) = "A3"
Tableau(2,1) = "B1"
Tableau(2,2) = "B2"
Tableau(2,3) = "B3"
Etc...
et changer le contenu du ComboBox2 en fonction de la sélection du comboBox1
A+
Plus simple !! je ne fais que répondre à ta demande.
Un nouveau projet.
deux Combo sur la feuille, Combo1 et Combo2
Copier le code ci-dessous dans le module de la forme.
Et lancer...
A+
Un nouveau projet.
deux Combo sur la feuille, Combo1 et Combo2
Copier le code ci-dessous dans le module de la forme.
Dim Tableau(1, 2)
Private Sub Combo1_Click()
Dim i As Integer
Combo2.Clear
For i = 0 To 2
Combo2.AddItem Tableau(Combo1.ListIndex, i)
Next i
Combo2.ListIndex = 0
End Sub
Private Sub Form_Load()
Dim V1 As Integer, V2 As Integer
For V1 = 0 To 1
For V2 = 0 To 2
Tableau(V1, V2) = Chr(65 + V1) & V2 + 1
Next V2
Next V1
Combo1.AddItem "A"
Combo1.AddItem "B"
Combo1.ListIndex = 0
End Sub
Et lancer...
A+
