[RESOLVED] Listbox refresh

[visy199]

Hy everyone,I'm new here and also I'm VB6 newbie who needs some help.
I'm working at a project with 2 listboxes,when I select a item from a listbox I want few items from the second listbox to dissappear,this worked by removeitem method.
Anyway after selecting another option I get Runtime error 5 & refresh command doesn't restore initial items.

Screenshots:
Intially:

Selecting second option:

Clicking on first option to restore intially listbox items-nothing happens:

Private Sub lstDB_Click()
    Select Case lstDB.Text
    Case "All"
        lstCid.Refresh
    Case "2000"
        lstCid.RemoveItem 8
        lstCid.RemoveItem 7
        lstCid.RemoveItem 6
        lstCid.RemoveItem 5
    Case "2000 PDA/Smartphone"
        lstCid.RemoveItem 2
        lstCid.RemoveItem 3
    End Select

Hope I'm clear enough!Thanks!

[MarMan]

Once you remove the items,they're gone forever. If you want them back, you would have to add them again. I suggest adding them in code if you're not doing it already. Put it in a sub and you can call the sub under Case "All" and it will re-populate the listbox. Don't forget to clear it in the first step.

[Hack]

Also, when you remove items from a listbox the listindex for the remaining listbox items change....something to keep in mind when hardcoding listindex numbers.

[Code Doc]

Welcome aboard!

Removing several items from a list box that may have to be added back to that list box means that you have to store the removed items in an array. It gets even more complicated when more items are removed later with other events. As Hack has implied, adding those items back to the list where they were removed in some sort of hierarchical order will likely drive you bonkers.

Things can be simplified somewhat if the second list being operated on by the first one is a sorted list so that as removed items are added back, they are automatically sorted within it. Give that a try to maintain your sanity.

[visy199]

Once you remove the items,they're gone forever. If you want them back, you would have to add them again. I suggest adding them in code if you're not doing it already. Put it in a sub and you can call the sub under Case "All" and it will re-populate the listbox. Don't forget to clear it in the first step.

I've added them in code and it's OK now.Thanks

There is a sample:

Private Sub lstDB_Click()
    Select Case lstDB.Text
    Case "All"
        lstCid.Clear
        With lstCid
            .AddItem "All"
            .AddItem "Item 1"
            .AddItem "Item 2"
            .AddItem "Item 3"
        End With
    Case "2000"
        lstCid.Clear
        With lstCid
            .AddItem "All"
            .AddItem "Item 1"
            .AddItem "Item 2"
            .AddItem "Item 3"
        End With
    Case "2000 PDA/Smartphone"
        lstCid.Clear
        With lstCid
            .AddItem "All"
        End With
    Case "2001"
        lstCid.Clear
        With lstCid
            .AddItem "All"
        End With
    Case "2010"
        lstCid.Clear
        With lstCid
            .AddItem "All"
            .AddItem "Item 1"
            .AddItem "Item 2"
            .AddItem "Item 3"
        End With
    Case "2012"
        lstCid.Clear
        With lstCid
            .AddItem "All"
            .AddItem "Item 1"
            .AddItem "Item 2"
            .AddItem "Item 3"
        End With
    Case "3200"
        lstCid.Clear
        With lstCid
            .AddItem "All"
            .AddItem "Item 1"
            .AddItem "Item 2"
            .AddItem "Item 3"
        End With
    Case "PNX5230"
        lstCid.Clear
        With lstCid
            .AddItem "All"
            .AddItem "Item 1"
            .AddItem "Item 2"
            .AddItem "Item 3"
        End With
    Case "ODM"
        lstCid.Clear
        With lstCid
            .AddItem "All"
        End With
    End Select
End Sub

Private Sub lstDB_GotFocus()
    With lstDB
         .AddItem "All"
        .AddItem 2000
        .AddItem "2000 PDA/Smartphone"
        .AddItem 2001
        .AddItem 2010
        .AddItem 2012
        .AddItem 2020
        .AddItem 3150
        .AddItem 3200
        .AddItem 3210
        .AddItem 3350
        .AddItem "PNX5230"
        .AddItem "AVR / DB1000"
        .AddItem "ODM"
    End With
End Sub

Now I've added a third listbox where I want to appear items depending of what I selected in first & second listbox.For example if I Select "All" from first listbox and "Item 1" from second listbox I want some items to appear in third listbox,if I select "All" from first listbox and "Item 2" form second listbox I want others items to appear in the third listbox.I need some advice for doing this in a simpe way.Using select case and if?


Thanks!

[Code Doc]

Build a form with three list boxes. Set the MultiSelect property of the first two to 1-Simple. Then apply this code:

Private Sub Form_Load()
'Sample Data
For I = 1 To 50
    List1.AddItem I
    List2.AddItem Chr$(I + 32)
Next
End Sub

Private Sub List1_Click()
PopList3
End Sub

Private Sub List2_Click()
PopList3
End Sub

Public Sub PopList3()
List3.Clear
For I = 0 To List1.ListCount - 1
    If List1.Selected(I) = True Then List3.AddItem List1.List(I)
Next
For I = 0 To List2.ListCount - 1
    If List2.Selected(I) = True Then List3.AddItem List2.List(I)
Next
End Sub

As you select items from either of the first two, the third list box will contain all of the selected items.

[visy199]

Build a form with three list boxes. Set the MultiSelect property of the first two to 1-Simple. Then apply this code:

Private Sub Form_Load()
'Sample Data
For I = 1 To 50
    List1.AddItem I
    List2.AddItem Chr$(I + 32)
Next
End Sub

Private Sub List1_Click()
PopList3
End Sub

Private Sub List2_Click()
PopList3
End Sub

Public Sub PopList3()
List3.Clear
For I = 0 To List1.ListCount - 1
    If List1.Selected(I) = True Then List3.AddItem List1.List(I)
Next
For I = 0 To List2.ListCount - 1
    If List2.Selected(I) = True Then List3.AddItem List2.List(I)
Next
End Sub

As you select items from either of the first two, the third list box will contain all of the selected items.

Thanks but the third listbox should contain different items than the first & second ones,not the selected items from these.Other ideas?

[Code Doc]

I guess I misread your earlier post. Here's what you said in post #5:

"Now I've added a third listbox where I want to appear items depending of what I selected in first & second list box."

That's the code that I wrote. So try again. What determines what items appear in the third list box?

[korabih]

hmm,try using timer i think...

[visy199]

I guess I misread your earlier post. Here's what you said in post #5:

"Now I've added a third listbox where I want to appear items depending of what I selected in first & second list box."

That's the code that I wrote. So try again. What determines what items appear in the third list box?

For example:
first listbox items:
All
Nokia
Motorola
Sony Ericsson

second listbox items:
All
Low-end
Middle-end
High-end

In the third listbox I want to appear some items based on what I choose in the first and second listboxes.
For example in third listbox should appear items:
1100
1101
others
only if Nokia is selected from first listbox and Low-end from second listbox.
This is what i mean,hope the examples are clear.

[MarMan]

Well you can put the code in s sub to fill the third listbox and call it from the click events from either list boxes:

    Sub Fill3rdListBox

            If lstDB.SelectedIndex > -1 And lstCid.SelectedIndex > -1 Then
                Select Case lstDB.Items(lstDB.SelectedIndex)
                    Case "Nokia"
                        Select Case lstCid.Items(lstCid.SelectedIndex)
                            Case "Low-end"
                            Case "Middle-end"
                            Case "High-end"
                        End Select
                End Select
            End If

    End Sub

You get the idea?

[visy199]

Well you can put the code in s sub to fill the third listbox and call it from the click events from either list boxes:

    Sub Fill3rdListBox

            If lstDB.SelectedIndex > -1 And lstCid.SelectedIndex > -1 Then
                Select Case lstDB.Items(lstDB.SelectedIndex)
                    Case "Nokia"
                        Select Case lstCid.Items(lstCid.SelectedIndex)
                            Case "Low-end"
                            Case "Middle-end"
                            Case "High-end"
                        End Select
                End Select
            End If

    End Sub

You get the idea?

Not really...



Uploaded with ImageShack.us

[MarMan]

I incorrectly posted .NET code. Modify it for VB6. Instead of lst.SelectedIndex change it to ListIndex I believe. Its been awhile since I used VB6. But its main purpose is to illustrate a concept. Apply the concept to your code and like always, pot questions.

[visy199]

I incorrectly posted .NET code. Modify it for VB6. Instead of lst.SelectedIndex change it to ListIndex I believe. Its been awhile since I used VB6. But its main purpose is to illustrate a concept. Apply the concept to your code and like always, pot questions.

Modified:

Private Sub lstcid_Click()
                If lstDB.ListIndex > -1 And lstCid.ListIndex > -1 Then
                Select Case lstDB.List(lstDB.ListIndex)
                    Case "Nokia"
                        Select Case lstCid.List(lstCid.ListIndex)
                            Case "Low-end"
                                lstPhones.Clear
                                lstPhones.AddItem "1100"
                                lstPhones.AddItem "1101"
                                lstPhones.AddItem "1110"
                            Case "Middle-end"
                                lstPhones.Clear
                                lstPhones.AddItem "5200"
                            Case "High-end"
                               'Will be added
                        End Select
                End Select
            End If

End Sub

Thanks again,it seems to work,post rated!
If I have others questions can I post them here or I should start a new topic?

[si_the_geek]

Unless the new questions are explicitly extensions of the original question in this thread, you should create a new thread - it saves time and confusion for many people.


If your question for this thread has been answered to your satisfaction, please mark the thread as Resolved.
(it saves time reading for those of us who like to answer questions, and also helps those who search to find answers)

You can do it by clicking on "Thread tools" just above the first post in this thread, then "Mark thread resolved". (like various other features of this site, you need JavaScript enabled in your browser for this to work).

[visy199]

Unless the new questions are explicitly extensions of the original question in this thread, you should create a new thread - it saves time and confusion for many people.


If your question for this thread has been answered to your satisfaction, please mark the thread as Resolved.
(it saves time reading for those of us who like to answer questions, and also helps those who search to find answers)

You can do it by clicking on "Thread tools" just above the first post in this thread, then "Mark thread resolved". (like various other features of this site, you need JavaScript enabled in your browser for this to work).

Done!