Проверка значений ListBox по записи из TextBox

@FangornGF · Регистрация: 27.03.2017

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

Всем привет! Помогите пожалуйста новичку с решением задачки... Есть на форме TextBox из которого я добавляю записи в ListBox. Так вот, не могу нигде нашарить инфы, как сравнить эти записи и при совпадении не добавлять, т.е. по нажатию кнопки добавить, если запись из TextBox'а совпадает хоть с одной записью в ListBox - не добавлять новый элемент в ListBox.
Нашел только FindStringExtract, но как его использовать не понял...

@Nachrichter · 28.12.2017, 10:04

Предлагаю осуществить поиск в ListBox и при отсутствии значения добавить оное.
Пара тем для изучения вопроса:
1. Поиск в ListBox при наборе искомого в TextBox;
2. Поиск в ListBox через TextBox.

@FangornGF · 28.12.2017, 10:08 **[ТС]**

Спасибо за ссылки, почитаю

@Yury Komar · 28.12.2017, 15:30

VB.NET
1
2
3
4
5
If Not ListBox1.Items.Contains(TextBox1.Text) Then
   ListBox1.Items.Add(TextBox1.Text)
Else
   Msgbox("Запись уже имеется")
End If

@Волшебник 307 · 07.02.2018, 10:29

Yury Komar,
А как это прописать? Например:
---------------------------------
Листбокс записи
-----------------
1) Запись вчера
2) Запись сегодня
3) Запись завтра
и тд.

А в текстбоксе - Запись сегодня
----------------------------------
Как проверить что запись,
которая в текстбоксе уже имеется в листбоксе?
Как это сделать?

@Kulma · 07.02.2018, 10:39

Волшебник 307, ну так код, который Юрий привёл, делает именно то , что вы спрашиваете ))
Если нужно , чтобы при нахождении существующей записи происходили какие-то действия,
а не наоборот , просто после IF уберите NOT и в этой ветке условия выполняйте необходимые действия

VB.NET
1
2
3
4
5
If  ListBox1.Items.Contains(TextBox1.Text) Then
   Msgbox("Запись уже имеется")
Else
   Msgbox("Запись не найдена")
End If

@Orlangur · 07.02.2018, 10:42

Волшебник 307,

Сообщение от Волшебник 307

Как проверить что запись,
которая в текстбоксе уже имеется в листбоксе?
Как это сделать?

так написан же код

Сообщение от Yury Komar

If Not ListBox1.Items.Contains(TextBox1.Text) Then
* *ListBox1.Items.Add(TextBox1.Text)
Else
* *Msgbox("Запись уже имеется")
End If

@Волшебник 307 · 07.02.2018, 11:53

Этот код надо как-то подправить,
в моей ситуации, он так работать не будет.
---------------------------------------------

@Orlangur · 07.02.2018, 13:33

Волшебник 307, тут должно быть точное совпадение, если по другому, то можно так

VB.NET
1
2
3
4
5
6
7
      For i = 0 To ListBox1.Items.Count - 1
            If ListBox1.Items.Item(i).ToString.ToLower.Contains(TextBox1.Text.ToLower) Then
                MsgBox("Запись уже имеется")
                Exit Sub
            End If
        Next
        MsgBox("Запись не найдена")

@MrCrown · 07.02.2018, 14:01

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

тут должно быть точное совпадение

Orlangur1991, там у ТС еще циферки имеются. Я так понял, их надо тоже отсечь.
В общем, как-то так

VB.NET
1
2
3
4
5
6
Dim items() As String = (From itm As String In ListBox1.Items Select CStr(itm.Substring(3).Trim)).ToArray
        If items.Contains(TextBox1.Text) Then
            MsgBox("Запись уже имеется")
        Else
            MsgBox("Запись не найдена")
        End If

Код крайне ненадёжен, т.к. зависит от ошибок ввода пользователя

Новые блоги и статьи Все статьи Все блоги /
Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .	Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .
Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .	SDL3 для Web (WebAssembly): Сборка библиотек: SDL3, Box2D, FreeType, SDL3_ttf, SDL3_mixer и SDL3_image из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .	SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .

Проверка значений ListBox по записи из TextBox

Решение

Решение

Решение

Решение

@FangornGF 72 / 13 / 2 Регистрация: 27.03.2017 Сообщений: 192

	Проверка значений ListBox по записи из TextBox 28.12.2017, 09:34. Показов 2698. Ответов 9 Метки нет (Все метки) Всем привет! Помогите пожалуйста новичку с решением задачки... Есть на форме TextBox из которого я добавляю записи в ListBox. Так вот, не могу нигде нашарить инфы, как сравнить эти записи и при совпадении не добавлять, т.е. по нажатию кнопки добавить, если запись из TextBox'а совпадает хоть с одной записью в ListBox - не добавлять новый элемент в ListBox. Нашел только FindStringExtract, но как его использовать не понял... 1

@Nachrichter 649 / 601 / 92 Регистрация: 19.03.2012 Сообщений: 1,128
	28.12.2017, 10:04
	Сообщение было отмечено FangornGF как решение Решение Предлагаю осуществить поиск в ListBox и при отсутствии значения добавить оное. Пара тем для изучения вопроса: 1. Поиск в ListBox при наборе искомого в TextBox; 2. Поиск в ListBox через TextBox. 3

@FangornGF 72 / 13 / 2 Регистрация: 27.03.2017 Сообщений: 192
	28.12.2017, 10:08 [ТС]
	Спасибо за ссылки, почитаю 0

@Волшебник 307 1396 / 331 / 45 Регистрация: 16.04.2013 Сообщений: 786 Записей в блоге: 2
	07.02.2018, 10:29
	Yury Komar, А как это прописать? Например: --------------------------------- Листбокс записи ----------------- 1) Запись вчера 2) Запись сегодня 3) Запись завтра и тд. А в текстбоксе - Запись сегодня ---------------------------------- Как проверить что запись, которая в текстбоксе уже имеется в листбоксе? Как это сделать? 0