Гость
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / listbox поднять или опустить занесенные данные / 4 сообщений из 4, страница 1 из 1
24.06.2015, 11:23
    #38991413
lopuxi
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
listbox поднять или опустить занесенные данные
Добрый день.
у меня вот какая задача. Я искал подобный примеры в интернете, но ничего что бы мне помогло, найти не удалось.
И сам, я тоже не могу сообразить как такое сделать.

В общем у меня есть Listbox2, который частично заполняется сам, а частично пользователем из listbox1. После чего наступает момент, который я реализовать в VBA не смог.
Я хочу научить программу поднимать или опустить выделенный элемент, в списке listbox2.

Я приложил скрин, стрелочкой обозначил задачу, поднимаю канал на позицию выше. А по нажатию на кнопку "Добавить ..", в эксель заносился порядок созданный в listbox2.

Может тут у кого-то есть примеры такого кода, где подобная задача решается или привести какой-то свой пример? Если конечно вообще возможно такое в listbox сделать.

С уважением. Всем хорошего дня.
...
Рейтинг: 0 / 0
24.06.2015, 11:47
    #38991452
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
listbox поднять или опустить занесенные данные
ну как-то так можно
Код: vbnet
1.
2.
List1.AddItem List1.List(2), 1
List1.RemoveItem 3
...
Рейтинг: 0 / 0
24.06.2015, 12:27
    #38991518
Akina
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
listbox поднять или опустить занесенные данные
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
Private Sub btnMoveUp_Click()
Dim ListIndex As Integer
With List1
    ListIndex = .ListIndex
    If ListIndex > 0 Then
        .AddItem .List(ListIndex), ListIndex - 1
        .RemoveItem ListIndex + 1
        .ListIndex = ListIndex - 1
    End If
End With
End Sub


Анальногично напишешь MoveDown.
...
Рейтинг: 0 / 0
24.06.2015, 15:10
    #38991737
lopuxi
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
listbox поднять или опустить занесенные данные
Akina,

ага. спасибо! Теперь я в этом разобрался. )
...
Рейтинг: 0 / 0
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / listbox поднять или опустить занесенные данные / 4 сообщений из 4, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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