Вертикальная прокрутка в listbox

[Makc]

На форме есть три листбокса (list1(0), list1(1), list1(2)). В каждом из них одинаковое значение элементов. Как сделать, чтобы при вертикальной прокрутке одного одновременно с ним прокручивались два других?

[Arcanoid]

Родилась такая мысля:
Прошманать листбокс GetWindow'ом, найти там скроллбар, запросить его позицию (по-моему есть такая функция GetScrollPos ), затем в других листбоксах аналогично в скроллы установить этот самый pos.

ну, впрочем может и не сработает... пробавать надо!

[Iq51]

Можно так:

Код: Выделить всё


Private Sub list1_GotFocus()
List2.ListIndex = List1.ListIndex
List3.ListIndex = List1.ListIndex
'Чтобы исключить прокрутку листбокса колесиком мыша, перекидываем фокус на что-нибудь другое
Command1.SetFocus
End Sub

Private Sub list1_Scroll()
List2.TopIndex = List1.TopIndex
List3.TopIndex = List1.TopIndex
End Sub


Тоже самое для других ListBox'ов. Можно как-то по другому решить проблему с колесиком мыша

[Makc]

Iq51, спасибо, самое то!!! =))