Перемещение данных в ListBox

Весь MS Office, программирование на Visual Basic for Applications и MS VB

Модератор: Naeel Maqsudov

Ответить
aks_sv
Сообщения: 53
Зарегистрирован: 30 окт 2007, 06:38

Всем очень здрасьте!
Вычитал у Уокенбаха "Перемещение опции в списке элемента управления ListBox". Все вроде сделал, как у него, а не получается. В чем дело? :confused:
"В данном разделе вы узнаете, как можно перемещать опции вверх и вниз в списке элемента
управления ListBox. В VBA подобный метод применяется для предоставления пользователю
возможности указать порядок просмотра элементов управления в диалоговом окне UserForm.
На рис. 14.13 показано диалоговое окно, которое содержит элемент управления L i s t B o x
и два элемента управления CommandButton. Щелчок на кнопке Вверх приведет к переме-
щению выделенной опции вверх по списку элемента управления ListBox. Щелчок на кноп-
ке Вниз приведет к перемещению выделенной опции вниз по списку."
(Профессиональное программирование на VBA в Excel 2002, стр.379)
И еще. Как сделать, чтобы вместе с перемещением элементов в ListBox перемещались данные и в таблице?
Заранее благодарен.
пример
SAS888
Сообщения: 156
Зарегистрирован: 16 янв 2008, 08:28

Т.к. перемещать требуется и в ListBox и в таблице рабочего листа, то лучше поступить так (см. вложение).
Аватара пользователя
Naeel Maqsudov
Сообщения: 2570
Зарегистрирован: 20 фев 2004, 19:17
Откуда: Moscow, Russia
Контактная информация:

Использование Find выглядит как-то некошерно...
А если в списке есть одинаковые элементы?
А еще одно если: Если надо перемещать целую строку исходного набора данных?
Вобщем, переделал.

PS
Кроме того, при движении вниз у Вас получается глючок... Выделенный элемент в списке не перемещается.
Вложения
ListBox.zip
(12.34 КБ) 82 скачивания
aks_sv
Сообщения: 53
Зарегистрирован: 30 окт 2007, 06:38

Naeel Maqsudov, SAS888
Большое СПАСИБО
Аватара пользователя
Naeel Maqsudov
Сообщения: 2570
Зарегистрирован: 20 фев 2004, 19:17
Откуда: Moscow, Russia
Контактная информация:

Надо еще добавить сюда Drag&Drop :)

Посему, как найти индекс элемента по координатам?
Ответить