Visual Studio 2005, 3 List boxes - Overclock.net

guitar22891 · 09-01-06

I KNOW I"M A NOOB... BUT PLEASE HELP ME>>>
so I have 3 listboxes and I want to make it so when I select colors from a list (for example) on listbox1 it shows the colors list on listbox2 and when I select like the color blue from listbox 2 it shows light and dark in listbox3... could someone construct something like this for me.... rep+ will be awarded for people who help....

Zeus · 09-02-06

Try this. You'll have to edit the items for each listbox

Add the code below to the Form Load Sub

Code:

        Me.FillListBox1()
        Me.ListBox2.Items.Clear()
        Me.ListBox3.Items.Clear()

Add the code below to the class for the Form

Code:

    Private Sub FillListBox1()

        With Me.ListBox1
            .Items.Clear()
            .Items.Add("List 1")
            .Items.Add("List 2")
        End With
    End Sub

    Private Sub ListBox1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
        Me.ListBox2.Items.Clear()
        Me.ListBox3.Items.Clear()

        Select Case Me.ListBox1.SelectedIndex
            Case 0
                With Me.ListBox2
                    .Items.Clear()
                    .Items.Add("List 1 - Item 1")
                    .Items.Add("List 1 - Item 2")
                End With
            Case 1
                With Me.ListBox2
                    .Items.Clear()
                    .Items.Add("List 2 - Item 1")
                    .Items.Add("List 2 - Item 2")
                End With
        End Select
    End Sub


    Private Sub ListBox2_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListBox2.SelectedIndexChanged
        Me.ListBox3.Items.Clear()
        Select Case Me.ListBox1.SelectedIndex
            Case 0
                Select Case Me.ListBox2.SelectedIndex
                    Case 0
                        With Me.ListBox3
                            .Items.Clear()
                            .Items.Add("List 1 - Item 1 - subitem 1")
                            .Items.Add("List 1 - Item 1 - subitem 2")
                        End With
                    Case 1
                        With Me.ListBox3
                            .Items.Clear()
                            .Items.Add("List 1 - Item 2 - subitem 1")
                            .Items.Add("List 1 - Item 2 - subitem 2")
                        End With
                End Select
            Case 1
                Select Case Me.ListBox2.SelectedIndex
                    Case 0
                        With Me.ListBox3
                            .Items.Clear()
                            .Items.Add("List 2 - Item 1 - subitem 1")
                            .Items.Add("List 2 - Item 1 - subitem 2")
                        End With
                    Case 1
                        With Me.ListBox3
                            .Items.Clear()
                            .Items.Add("List 2 - Item 2 - subitem 1")
                            .Items.Add("List 2 - Item 2 - subitem 2")
                        End With
                End Select
        End Select

    End Sub