Mehrere Comboboxen die in Abhängigkeit zueinander stehen

  • VB.NET

Es gibt 5 Antworten in diesem Thema. Der letzte Beitrag () ist von freefall.

    Mehrere Comboboxen die in Abhängigkeit zueinander stehen

    Hi,
    es geht darum ein Programm zu entwickeln, welches 2 Comboboxen enthält.
    Sobald man in der ersten Liste eine Auswahl getroffen hat, sollen sich die Auswahlmöglichkeiten der zweiten Liste einschränken.

    Beispiel:
    Angenommen es ginge um eine Liste mit Namen, in der ersten Combobox ließe sich wählen ob man einen männlichen oder einen weiblichen Namen wählen möchte.
    Die zweite Combobox würde, je nach der zuvor getroffenen Auswahl, eine Liste mit den entsprechenden Namen anzeigen.

    Naja, ich kenne mich nun leider nicht so gut mit VB aus, deshalb hoffe ich das mir hier jemand helfen kann.
    Besten Dank schonmal im voraus

    da musste in dem selectedIndexChanged Event der ersten cb eine Selectcase routine erstellen, dort den text der ersten cb überprüfen lassen und danach halt die items der 2. cb anpassen.

    Hier nochmal ein beispiel(grade zusammengeschustert):

    VB.NET-Quellcode

    1. Private Parent_Daten() As String = {"Haus", "Wohnung", "Container"}
    2. Dim child_case1() As String = {"Groß", "Schön", "Teuer", "6 Zimmer"}
    3. Dim child_case2() As String = {"Klein", "Billig", "3 Zimmer"}
    4. Dim child_case3() As String = {"o.O", "Niemals!", "Kostet nichts", "1 Zimmer", "unbewohnbar"}
    5. Private Sub ComboBox1_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
    6. ComboBox2.Items.Clear()
    8. Select Case ComboBox1.Text
    9. Case Parent_Daten(0)
    10. For Each info As String In child_case1
    11. 'haus
    12. ComboBox2.Items.Add(info)
    13. Next
    14. Case Parent_Daten(1)
    15. For Each info As String In child_case2
    16. 'wohnung
    17. ComboBox2.Items.Add(info)
    18. Next
    19. Case Parent_Daten(2)
    20. For Each info As String In child_case3
    21. 'container
    22. ComboBox2.Items.Add(info)
    23. Next
    24. End Select
    25. End Sub
    27. Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    28. For Each info As String In Parent_Daten
    29. ComboBox1.Items.Add(info)
    31. Next
    32. ComboBox1.SelectedIndex = 0
    33. End Sub



    VB.NET-Quellcode

    1. Private Parent_Daten() As String = {"Haus", "Wohnung", "Container"}

    Hier deklariere ich die Daten(items) für die erste combobox.
    in dem Fall "haus" "Wohnung" und "Container".
    die haben in der Reihenfolge automatisch ein Index ab 0 increment 1.(3 Einträge = 0 bis 2)


    VB.NET-Quellcode

    1. Dim child_case1() As String = {"Groß", "Schön", "Teuer", "6 Zimmer"}
    2. Dim child_case2() As String = {"Klein", "Billig", "3 Zimmer"}
    3. Dim child_case3() As String = {"o.O", "Niemals!", "Kostet nichts", "1 Zimmer", "unbewohnbar"}



    Da ich 3 Einträge für die Parentbox habe, brauche ich auch 3 verschiedene Ansammlungen von Outputs.
    Diese sind auch wieder in Arrays gespeichert.


    Nun im SelectedindexChanged Event der CheckBox1 ( erreichst du durch einen Doppelklick auf das Control :(

    VB.NET-Quellcode

    1. ComboBox2.Items.Clear()

    Damit die Einträge neu geschrieben werden und nicht einfach nur angefügt werden.

    VB.NET-Quellcode

    1. Select Case ComboBox1.Text
    2. Case Parent_Daten(0)
    3. For Each info As String In child_case1
    4. 'haus
    5. ComboBox2.Items.Add(info)
    6. Next
    7. Case Parent_Daten(1)
    8. For Each info As String In child_case2
    9. 'wohnung
    10. ComboBox2.Items.Add(info)
    11. Next
    12. Case Parent_Daten(2)
    13. For Each info As String In child_case3
    14. 'container
    15. ComboBox2.Items.Add(info)
    16. Next
    17. End Select


    Hier frage ich den jeweiligen selektierten index der ersten Combobox ab und füge dann jeweils mit einer ForEach-Schleife
    den Inhalt der jeweilgen deklarierten Variable ein.

    Im Form load sollte natürlich der Inhalt der ComboBox1 geschrieben werden:

    VB.NET-Quellcode

    1. For Each info As String In Parent_Daten
    2. ComboBox1.Items.Add(info)
    3. Next


    MfG GTW

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „GimpTutWorks“ ()

    Hiemal, wie man die Sache per Databinding aufziehen könnte. Dabei ist kein dynamischer Code mehr nötig, sondern man richtet das ein, und funktioniert.

    VB.NET-Quellcode

    1. Public Class Form1
    3. ''' <summary>Datenmodell</summary>
    4. Public Class Domizil
    5. Public Property Name As String '1 Name
    6. Public Property Eigenschaften As String() 'viele Eigenschaften
    7. End Class
    9. Private _Domizilse As New List(Of Domizil)
    11. Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
    13. 'Datenmodell füllen
    14. Dim dmz = New Domizil With {.Name = "Haus", .Eigenschaften = {"Groß", "Schön", "Teuer", "6 Zimmer"}}
    15. _Domizilse.Add(dmz)
    16. dmz = New Domizil With {.Name = "Wohnung", .Eigenschaften = {"Klein", "Billig", "3 Zimmer"}}
    17. _Domizilse.Add(dmz)
    18. dmz = New Domizil With {.Name = "Container", .Eigenschaften = {"o.O", "Niemals!", "Kostet nichts", "1 Zimmer", "unbewohnbar"}}
    19. _Domizilse.Add(dmz)
    21. 'BindingSources anbinden
    22. Dim bsDmz As New BindingSource
    23. bsDmz.DataSource = _Domizilse
    24. Dim bsProps As New BindingSource
    25. bsProps.DataSource = bsDmz
    26. bsProps.DataMember = "Eigenschaften"
    28. 'Gui anbinden
    29. ComboBox1.DataSource = bsDmz
    30. ComboBox1.DisplayMember = "Name"
    31. ComboBox2.DataSource = bsProps
    32. End Sub
    34. End Class

    @EDR:
    Das ist natürlich die beste Lösung, aber:

    freefall schrieb:

    Naja, ich kenne mich nun leider nicht so gut mit VB aus


    Für nen Anfänger völlig ausreichend.
    Natürlich spricht auch nichts dagagen, sich als Anfänger direkt das Bein zu brechen ^^

    MfG GTW

    naja, vlt. schaffter die 30 zeilen auch ohne Beinbruch, dann hätter den grundlegende Blickwechsel geschafft, der üblicherweise erst nach Jahren erfolgt (wenn überhaupt), und dann vielfach teurer ist: Nämlich den Blick weg von den Controls, und wie man was da reintut oder raustut, und hin zu den Daten, und wie diese strukturiert sind.

    Meinen Ansatz könnte man fortsetzen, wollteman das Sample sinnvoll weiterführen, bei deinem Ansatz würde sich die Holzwegigkeit sehr schnell zeigen.
    ZB wennman die Eigenschaften der Domizile standardisier- und eingebbar machen möchte - sowas wie: "EigenschaftName = Wert".

    Also schon son Winzteil failt vom Ansatz her, wenn man auf die Controls stiert, statt ein Datenmodell zu konzipieren.

Facebook
Telefonspende