Фильтр записей в 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 **[ТС]**

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

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

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств 8Observer8 07.02.2026 Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .	SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .
SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .

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

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

Решение