ScrollBars in Listboxes

Can anybody help me?

I am trying to synchronise scrollbars in listboxes, i.e if one scrolls, the others should also scroll.

The problem is that Listboxes do not have a scrollbar property/I don't know

There is an event Scroll, but it does not return a value...

PLEASE HELP!

Scroll bars appears in the list box as soon as the list items increse than the size of the list box. :D
So you don't have to make separate scrollbar for list box.

Thanks for the reply, but that is my problem:

Here is what happens:

Three lists grow at exactly the same pace.

All get scroll bars at exactly the same time.

Now, when I scroll in one list, I want the other two to scroll automatically.

Any ideas?

I think that's impossible?

Sorry :(

Can't seem to get the list boxs to scroll together, but this works if the user is using the cursor keys or the page up/down keys.

Some API guru will probably be able to tell you how to do it.

Code:

---

Option Explicit

Private Sub Form_Load()
    Dim i As Integer
   
    For i = 1 To 100
      List1.AddItem i
      List2.AddItem i
    Next i
   
    List1.ListIndex = 0
    List2.ListIndex = 0
   
End Sub

Private Sub List1_Click()
    List2.ListIndex = List1.ListIndex
End Sub

Private Sub List2_Click()
    List1.ListIndex = List2.ListIndex
End Sub

---

Cheers for the attempt...

Ill let you know if I solve it...

Why do you need to use 3 syncronised list boxes?
Can't you use a listview with 3 columns?

Cheers

I'll try it now...

I think you can use the scroll event. Using something like:

Code:

---

Private Sub listbox1_Scroll()
  lisbox2.TopIndex = lisbox1.TopIndex 'or something
End Sub

---

[Edited by pardede on 05-16-2000 at 02:45 PM]

Bollox, what a simple soultion. I stand humbled before Pardede's wisdom;)

Thanks a mil

..:)..;)..:D..;)..:)..
No problem, me just glad my peace of thought has some meaning
..:)..;)..:D..;)..:)..


______________________________________________________
...scroll-scroll-scroll the bar gently down the box..