ReSQL.ru
     
powered by simpleCommunicator - 2.0.51     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Поднять, опустить строку в ListBox
5 сообщений из 5, страница 1 из 1
Поднять, опустить строку в ListBox
    #39168670
Фотография lopuxi
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
lopuxi
Участник
Добрый день.
У меня что-то не получается корректно поднять выделенную строку в Listbox, во второй колонке.
А еще ее надо опустить.

Суть того что мне нужно довольно проста. Просто перемещать всю выделенную строку в ListBox вверх и вниз, и в первой и во второй колонке.

Я приложу файл, где поднять значение в первой колонке получается, а во второй нет. Почему то при поднятии, к примеру выделенной строки №5, элемент во второй колонке поднимается не корректно...
И я ни как не пойму, что именно делаю не так. У меня такое ощущение что все не так...
Не ругайте строго :-)
...
Рейтинг: 0 / 0
11.02.2016, 15:10
| Ответить | Цитировать | Написать  
Поднять, опустить строку в ListBox
    #39168731
Фотография Akina
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Akina
Участник
Ты не учитываешь, что после .AddItem у тебя изменились .ListIndex всех записей после вставленной. А потому значение для второй колонки ты берёшь не из той записи...
Трассировка что такое - знаешь? вот и используй.
...
Рейтинг: 0 / 0
11.02.2016, 16:04
| Ответить | Цитировать | Написать  
Поднять, опустить строку в ListBox
    #39168778
Фотография lopuxi
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
lopuxi
Участник
Akina,
Трассировка?) Первый раз слышу.
Я кажется догадываюсь что это, но слышать, об этом не слышал.
...
Рейтинг: 0 / 0
11.02.2016, 16:41
| Ответить | Цитировать | Написать  
Поднять, опустить строку в ListBox
    #39168802
Фотография lopuxi
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
lopuxi
Участник
Akina,

У меня почти что-то нужное уже почти получилось.
У меня съедает верхнюю строку.

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
Private Sub ButtonUP_Click()
'вверх
Dim ListUP As Integer

With ListBox2
    ListUP = .ListIndex
    If ListUP > 0 Then
        MsgBox .List(ListUP, 0) & " " & .List(ListUP, 1)
        .AddItem
        .Column(0, ListUP - 1) = .List(ListUP, 0)
        .Column(1, ListUP - 1) = .List(ListUP, 1)
        MsgBox "удалим строку " & ListUP + 1
        .RemoveItem ListUP
        MsgBox "удалили строку " & ListUP + 1
        .ListIndex = ListUP - 1
    End If
End With
End Sub
...
Рейтинг: 0 / 0
11.02.2016, 17:04
| Ответить | Цитировать | Написать  
Поднять, опустить строку в ListBox
    #39168846
Фотография Akina
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Akina
Участник
lopuxi , я не понимаю, почему ты копируешь по одному полю, вместо того, чтобы сразу вставить все поля записи...

lopuxiТрассировка?) Первый раз слышу.Она же пошаговое исполнение.
Help > Visual Basic for Applications Language Reference > Visual Basic User Interface Help > Debug Menu
...
Рейтинг: 0 / 0
11.02.2016, 17:39
| Ответить | Цитировать | Написать  
5 сообщений из 5, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Поднять, опустить строку в ListBox
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=39168846&tid=2155628]:
 0ms
get settings:
 8ms
get forum list:
 13ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 99ms
get topic data:
 10ms
get forum data:
 3ms
get page messages:
 40ms
get tp. blocked users:
 1ms
others: 12ms
total:  194ms
созд. / загр.: 194ms
x
x
Закрыть


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