Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Синхронизация ListBox'ов / 3 сообщений из 3, страница 1 из 1
05.04.2005, 11:37:02
    #32997677
Va1entin
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Синхронизация ListBox'ов
Помогите пожалуйста.

Хочу синхронизировать scrolling двух ListBox'ов.
Не могу докопаться в документации до описания необходимых мне свойств.
В событии Scroll ListBox'а мне необходимо прочитать свойство
отвечающее за позицию ScrollBar'a и соответственно
перемотать второй сопутствующий ScrollBar.

Заранее премного благодарен.
...
Рейтинг: 0 / 0
05.04.2005, 12:51:28
    #32997909
Alexey Kudinov
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Синхронизация ListBox'ов
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
Option Explicit

Private Const LB_GETTOPINDEX = &H18E
Private Const LB_SETTOPINDEX = &H197
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, _
ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Private Sub Form_Load()
Dim i As Integer
For i =  1  To  50 
List1.AddItem "Item " & CStr(i)
List2.AddItem "Item " & CStr(i)
Next
End Sub

Private Sub List1_Scroll()
Call SendMessage(List2.hwnd, LB_SETTOPINDEX, SendMessage(List1.hwnd, _
LB_GETTOPINDEX,  0 ,  0 ),  0 )
End Sub

Private Sub List2_Scroll()
Call SendMessage(List1.hwnd, LB_SETTOPINDEX, SendMessage(List2.hwnd, _
LB_GETTOPINDEX,  0 ,  0 ),  0 )
End Sub

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

Private Sub List1_Click()
List2.ListIndex = List1.ListIndex
End Sub
...
Рейтинг: 0 / 0
05.04.2005, 13:17:41
    #32997993
Va1entin
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Синхронизация ListBox'ов
Ещё и целый код написал :-)
Спасибо большое добрый человек.
...
Рейтинг: 0 / 0
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Синхронизация ListBox'ов / 3 сообщений из 3, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]