Фильтр записей в ListBox

@Wilant · Регистрация: 23.02.2016

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

Делаю программу для библиотеки для простого управления списком читателей, книг, задолженностей и все в этом духе (научный проект)
По списку "ФИО" необходимо сделать поиск, но дело в том, что все пять списков (на скрине отмечены соответствующе) связанны между собой, и все грузится из листа excel (типа наша бд с книгами и тд)
Нужен TextBox, при в вводе текста в который ищутся совпадения, листбокс фильтруется и в нем же остаются нужные записи
Как сделать это сделать, да еще и так, чтобы при этом оставались соответствующие записи и в остальных листбоксах?
Вот ссылка на всю программу, если кому интересно

SoftIce · 08.03.2016, 06:19

Сообщение от Wilant

все грузится из листа excel

Ну так и делайте в VBA Excel, зачем Вам VB6?
По крайней мере в VBA не нужно будет городить 5 несвязанных между собой литсбоксов, а сделать все в одном, в пять столбцов.

SoftIce · 08.03.2016, 13:05

Сообщение от SoftIce

По крайней мере в VBA не нужно будет городить 5 несвязанных между собой литсбоксов, а сделать все в одном, в пять столбцов.

И код будет намного проще. Например, заполнение листбокса

Visual Basic
1
2
3
4
5
Private Sub UserForm_Initialize()
    ListBox1.ColumnCount = 12
    ListBox1.ColumnWidths = "90;65;60;60;30;90;90;60;60;60;30;40"
    ListBox1.List = Range(Cells(3, 1), Cells(10, 13)).Value
End Sub

Поиск в лист боксе

Visual Basic
1
2
3
4
5
6
7
8
Private Sub CommandButton1_Click()
m:  For i = 1 To ListBox1.ListCount - 1
      If Not (ListBox1.List(i) Like TextBox1.Text & "*") Then
          ListBox1.RemoveItem i
          GoTo m
      End If
    Next i
End Sub

@Wilant · 09.03.2016, 19:51 **[ТС]**

Мне лень было переделывать
Самое лаконичное решение, что я нашел и сделал, это лишние записи в листбоксе передавать в другой листбокс, находящийся за пределами формы и соответственно не видимый
А при очистке поля для поиска возвращать все обратно
Вроде все работает)

Прога перезалита, можно скачать по той же ссылке

Новые блоги и статьи Все статьи Все блоги /
Уведомление о неверно выбранном значении справочника Maks 06.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "НарядПутевка", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если в документе выбран неверный склад. . .	Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt 8Observer8 05.04.2026 Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .	AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .	Отображение реквизитов в документе по условию и контроль их заполнения 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. Задача: 1. Реализовать контроль заполнения реквизита. . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/

@Wilant 0 / 0 / 0 Регистрация: 23.02.2016 Сообщений: 2
	09.03.2016, 19:51 [ТС]
	Мне лень было переделывать Самое лаконичное решение, что я нашел и сделал, это лишние записи в листбоксе передавать в другой листбокс, находящийся за пределами формы и соответственно не видимый А при очистке поля для поиска возвращать все обратно Вроде все работает) Прога перезалита, можно скачать по той же ссылке 0

Фильтр записей в ListBox

Решение