|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
15.11.2016, 20:37 | #1 |
Старожил
Регистрация: 15.05.2008
Сообщений: 2,058
|
Синхронная прокрутка (скроллинг) двух ListBox на форме
Здравствуйте, Уважаемые.
Вопрос, собственно, в названии темы. На форме 2 листбокса. Нужно как-то синхронизировать прокрутку. Возможно ли сделать такое? Может кто сталкивался? На просторах инета есть решения, НО не для Excel VBA. Спасибо.
"Дайте людям рыбы, и вы накормите их на весь день; научите их ловить рыбу - и вы накормите их на всю жизнь"
"Большое спасибо" - Z261597841314, R208907249777, U447361470499 |
15.11.2016, 21:07 | #2 |
Старожил
Регистрация: 15.05.2008
Сообщений: 2,058
|
Думаю, вопрос снят.
Решение оказалось до безобразия простым. Код:
"Дайте людям рыбы, и вы накормите их на весь день; научите их ловить рыбу - и вы накормите их на всю жизнь"
"Большое спасибо" - Z261597841314, R208907249777, U447361470499 Последний раз редактировалось VictorM; 15.11.2016 в 21:11. |
16.11.2016, 18:39 | #3 |
Старожил
Регистрация: 15.05.2008
Сообщений: 2,058
|
Все же сделал синхронную прокрутку.
Добавил на форму ScrollBar и вот такой код Код:
"Дайте людям рыбы, и вы накормите их на весь день; научите их ловить рыбу - и вы накормите их на всю жизнь"
"Большое спасибо" - Z261597841314, R208907249777, U447361470499 |
16.11.2016, 21:39 | #4 |
2 the Nation Glory
Старожил
Регистрация: 27.05.2014
Сообщений: 3,289
|
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы. |
16.11.2016, 22:04 | #5 |
Старожил
Регистрация: 15.05.2008
Сообщений: 2,058
|
Спасибо, как раз там я не читал.
Хотя, было просмотрено много всего. НО вот как это все привязать именно к VBA ... Не получается что-то. Может можно использовать API, но я здесь пас...
"Дайте людям рыбы, и вы накормите их на весь день; научите их ловить рыбу - и вы накормите их на всю жизнь"
"Большое спасибо" - Z261597841314, R208907249777, U447361470499 |
17.11.2016, 21:47 | #6 | ||
Старожил
Регистрация: 15.05.2008
Сообщений: 2,058
|
В завершение темы - решение. Может кому-то пригодится.
Как оказалось, вменяемого программного решения для того, чтобы скрыть "родной" скролл у листбокса расположенного на форме для Excel VBA нет или может я все же не смог найти его в инете. Зато встретились такие предложения и идеи Цитата:
Цитата:
Он его просто обрезает. Сделал Frame размером равным по высоте ListBox, а шириной немного меньше, чтобы скрыть скролл (подбирается). В свойствах Frame-a выбрал SpecialEffect - 0. ВСЕ! ListBox-ы есть, родных скроллов у них нет, Frame-ов нет. Прокручиваются синхронно дополнительным объектом ScrollBar1. ps Скептики скажут "извращение", но работает же!
"Дайте людям рыбы, и вы накормите их на весь день; научите их ловить рыбу - и вы накормите их на всю жизнь"
"Большое спасибо" - Z261597841314, R208907249777, U447361470499 |
||
17.11.2016, 22:26 | #7 |
2 the Nation Glory
Старожил
Регистрация: 27.05.2014
Сообщений: 3,289
|
Это для чего такое "извращение" может пригодится?
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы. |
25.11.2017, 22:51 | #8 |
Пользователь
Регистрация: 25.02.2012
Сообщений: 28
|
Вот еще вариант синхронизации:
Private Sub ListBox1_Change() ListBox2.TopIndex = ListBox1.TopIndex End Sub Private Sub ListBox1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) With Me.ListBox1 On Error Resume Next .Selected(.TopIndex + Y \ 10) = True On Error GoTo 0 End With End Sub Образец.xls |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Скроллинг(Прокрутка) в Pascal ABC. | H4t | Паскаль, Turbo Pascal, PascalABC.NET | 1 | 10.05.2014 12:56 |
Скроллинг нескольких ListBox | sanek22bor | Общие вопросы .NET | 12 | 11.12.2013 23:00 |
Синхронная прокрутка в SynEdit | LISTAT | Компоненты Delphi | 3 | 26.06.2012 10:57 |
Вертикальный скроллинг по ListBox | Kveldulv | Microsoft Office Excel | 6 | 25.02.2010 16:22 |
Синхронная прокрутка двух Memo | Dimmitt | Компоненты Delphi | 1 | 21.10.2007 17:57 |