Problème avec ComboBox sur VB6 ! Fermé

Question

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.


Configuration: Intel Core2 Duo CPU T5270 @ 1.4GHz, 1GB RAM, Mobile Intel 965 Express Chipset Family

lermite222 · Answer

Bonjour,
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+

said394 · Answer

Bonsoir,

J'aimerais bien un code complet et plus simple pour mon problème !

Merci à vous d'avance

lermite222 · Answer

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.
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+

Problème avec ComboBox sur VB6 !

3 réponses

Discussions similaires