ComboBox Sorting

[Appaq]

Hello!

I have a little problem sorting some names:

combo1.additem "Writer 1"
combo1.additem "Writer 2"
combo1.additem "Writer 3"
combo1.additem "Writer 4"

Ok!
Now begins the problem! I have a timer in my form wich i wana to make the sorting (i was thinkin'):

Timer1.Enable = True

If Combo1.Text = "Writer 1" then Combo2.Text = "Books of Writer 1"
If Combo1.Text = "Writer 3" Then Combo2.Text = Books of Writer 3"



i dont have any ideea how to write this in vb! i tried but without result! It puts me all the book in Combo2.text

Please help me to resolve this problem!

[da_silvy]

I'm not 100% sure of what you are actually asking?

What do you want to sort?

[Appaq]

ok! i dont know to speak very good english (thats one of my big problem).

i have a form with 2 comboboxes. in first combobox i have writers" (book writers) and into the second one i have the books! But... when i select the Writer #3 then in combobox2 to show mw only the book of the writer3. Understand now ? If u dont please tell me, i`ll try to explain in other way! Btw thanx for helping me!

[Appaq]

No one can help me ? Please...

[MartinLiss]

Option Explicit
 
Private Sub Combo1_Click()
Dim lngIndex As Long
 
For lngIndex = Combo2.ListCount - 1 To 0 Step -1
    If Combo2.ItemData(lngIndex) <> Combo1.ItemData(Combo1.ListIndex) Then
        Combo2.RemoveItem lngIndex
    End If
Next
 
End Sub
 
 
Private Sub Form_Load()
Combo1.AddItem "writer 1"
Combo1.ItemData(Combo1.NewIndex) = 1
Combo1.AddItem "writer 2"
Combo1.ItemData(Combo1.NewIndex) = 2
Combo1.AddItem "writer 3"
Combo1.ItemData(Combo1.NewIndex) = 3
Combo1.AddItem "writer 4"
Combo1.ItemData(Combo1.NewIndex) = 4
 
Combo2.AddItem "book by writer2"
Combo2.ItemData(Combo2.NewIndex) = 2
Combo2.AddItem "another book by writer2"
Combo2.ItemData(Combo2.NewIndex) = 2
Combo2.AddItem "still another book by writer2"
Combo2.ItemData(Combo2.NewIndex) = 2
Combo2.AddItem "book by writer1"
Combo2.ItemData(Combo2.NewIndex) = 1
Combo2.AddItem "book by writer3"
Combo2.ItemData(Combo2.NewIndex) = 3
 
End Sub

You'll probably need some way to put back the deleted books.