Удаление выделенных строк из ListBox

@SetoFF · Регистрация: 07.12.2011

Студворк — интернет-сервис помощи студентам

Visual Basic
1
2
3
4
5
For I = 0 To ListBox1.ListCount - 1
        If ListBox1.Selected(I) Then
            ComboBox1.AddItem (ListBox1.List(I))
        End If
    Next I

Скажите пожалуйста, что нужно добавить, чтобы из ListBox'а выделенные строки удалялись?

@Казанский · 07.12.2011, 10:24

Ну если AddItem - "добавить элемент", то как будет "удалить элемент"?

Visual Basic
1
ListBox1.RemoveItem I

При этом цикл лучше пустить в обратную сторону, т.к. при удалении i-го элемента i-тым становится следующий элемент.

@SetoFF · 12.12.2011, 14:55 **[ТС]**

Что-то у меня не пашет... Можете полностью написать как должно быть?

@Казанский · 12.12.2011, 15:33

Visual Basic
1
2
3
4
5
6
For I = ListBox1.ListCount - 1 To 0 Step -1
    If ListBox1.Selected(I) Then
        ComboBox1.AddItem ListBox1.List(I), 0
        ListBox1.RemoveItem I
    End If
Next I

@maestreek · 06.04.2015, 16:52

А как сделать так, чтобы при удалении из листбокса, удалялась строка в таблице?

@The_Prist · 06.04.2015, 16:55

Для этого изначально надо понимать как эта строка в ListBox попадает. И как её правильно отнести именно к нужной строке, чтобы не удалять то, чего удалять не надо.
Обычно в таких случаях при занесении данных в ListBox делают скрытый столбец, в котором для каждой строки записывается её номер на листе Excel. И потом опираясь на этот номер строка и удаляется.

@Antontth · 21.12.2015, 20:56

Скажите пожалуйста!
Как узнать программно номер выделенной строки Listbox-e?

@Казанский · 21.12.2015, 22:48

Antontth, ListBox1.ListIndex

Новые блоги и статьи Все статьи Все блоги /
Отображение реквизитов в документе по условию и контроль их заполнения Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .	Фото всей Земли с борта корабля Orion миссии Artemis II kumehtar 04.04.2026 Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .	Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .	Программный контроль заполнения реквизита табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать контроль заполнения реквизита "ПричинаСписания". . .
wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/	Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .	Вывод данных в справочнике через динамический список Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .	Программное заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .

@SetoFF 0 / 0 / 0 Регистрация: 07.12.2011 Сообщений: 3
	12.12.2011, 14:55 [ТС]
	Что-то у меня не пашет... Можете полностью написать как должно быть? 0

@maestreek 0 / 0 / 0 Регистрация: 06.04.2015 Сообщений: 27
	06.04.2015, 16:52
	А как сделать так, чтобы при удалении из листбокса, удалялась строка в таблице? 0

@The_Prist 2061 / 490 / 134 Регистрация: 13.11.2008 Сообщений: 934
	06.04.2015, 16:55
	Для этого изначально надо понимать как эта строка в ListBox попадает. И как её правильно отнести именно к нужной строке, чтобы не удалять то, чего удалять не надо. Обычно в таких случаях при занесении данных в ListBox делают скрытый столбец, в котором для каждой строки записывается её номер на листе Excel. И потом опираясь на этот номер строка и удаляется. 0

@Antontth 1 / 1 / 0 Регистрация: 05.07.2015 Сообщений: 42
	21.12.2015, 20:56
	Скажите пожалуйста! Как узнать программно номер выделенной строки Listbox-e? 0

@Казанский 15155 / 6428 / 1731 Регистрация: 24.09.2011 Сообщений: 9,999
	21.12.2015, 22:48
	Antontth, ListBox1.ListIndex 1