Поиск в ListBox через TextBox

@FadiSh · Регистрация: 24.10.2014

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

Всем привет!
Есть такая задача,
у нас есть в Форме:
4 ListBox с данными, 1 Textbox, Button Search, Listbox для результата поиска.

VB.NET
1
2
3
4
5
6
7
8
9
10
11
 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       ListBox5.Items.Clear()
       Dim Count As Integer = (ListBox1.Items.Count - 1)
       Dim words As String
        For a = 0 To Count
            words = ListBox1.Items.Item(a)
            If InStr(words.ToLower, TextBox1.Text.ToLower) Then
                ListBox5.Items.Add(words)
            End If
        Next
    End Sub

Работает такой код, но вот как сделать так чтобы он делал поиск по всем остальным тоже ListBox-ов?
делал так не сработал

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       ListBox5.Items.Clear()
       Dim Count As Integer = (ListBox1.Items.Count - 1)
       Dim Count1 As Integer = (ListBox2.Items.Count - 1)
       Dim Count2 As Integer = (ListBox3.Items.Count - 1)
       Dim Count3 As Integer = (ListBox4.Items.Count - 1)
       Dim words As String
        For a = 0 To Count
            words = ListBox1.Items.Item(a)
            words = ListBox2.Items.Item(a)
            words = ListBox3.Items.Item(a)
            words = ListBox4.Items.Item(a)
            If InStr(words.ToLower, TextBox1.Text.ToLower) Then
                ListBox5.Items.Add(words)
            End If
        Next
    End Sub

Кто может подсказать как такое можно исправить ?

Спасибо !

@edward_freedom · 28.08.2015, 09:52

FadiSh, Переделай первый код в функцию и в параметрах передавай листбокс

@FadiSh · 28.08.2015, 09:57 **[ТС]**

edward_freedom, А можно пример если не трудно ?

@edward_freedom · 28.08.2015, 10:04

FadiSh,

VB.NET
1
2
3
Public Sub Search(ByVal ListBox As ListBox)
        'тут ищешь, используя переданный листбок
    End Sub

Используешь так

VB.NET
1
2
Search(ListBox1)
Search(ListBox2)

@FadiSh · 28.08.2015, 10:28 **[ТС]**

edward_freedom, А если сделать через
TRY?

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
 Dim Count As Integer = (ListBox1.Items.Count - 1)
        Dim words As String
        For a = 0 To Count
            Try
                words = ListBox1.Items.Item(a)
                If InStr(words.ToLower, TextBox1.Text.ToLower) Then
                    ListBox5.Items.Add(words)
                End If
                Try
                    words = ListBox2.Items.Item(a)
                    If InStr(words.ToLower, TextBox1.Text.ToLower) Then
                        ListBox5.Items.Add(words)
                    End If
                    Try
                        words = ListBox3.Items.Item(a)
                        If InStr(words.ToLower, TextBox1.Text.ToLower) Then
                            ListBox5.Items.Add(words)
                        End If
                        Try
                            words = ListBox4.Items.Item(a)
                            If InStr(words.ToLower, TextBox1.Text.ToLower) Then
                                ListBox5.Items.Add(words)
                            End If
                                                        
                          Catch ex As Exception
 
                                End Try
                            Catch ex As Exception
 
                            End Try
 
                        Catch ex As Exception
 
                        End Try
                    Catch ex As Exception
 
                    End Try
                Catch ex As Exception
 
                End Try
            Catch ex As Exception
 
            End Try
        Next

Сейчас Тестил Вроде тоже так работает...

@edward_freedom · 28.08.2015, 10:31

FadiSh, А чем тебе мой способ не угодил? И зачем тебе try, тем более так много?

@FadiSh · 28.08.2015, 10:34 **[ТС]**

edward_freedom, Я начал метод с Трай до того как увидел твои метод.. Да и если честно с твоим методом я не знаком, Я просто еще начинающи в Этой среде, и не догнал точно как его сделать :|
Если можно объяснить как точно его Юзать )

@ovva · 28.08.2015, 15:04

Вариант

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    'ListBox1,3,4 - источники; ListBox2 - накопитель
    findWrd(ListBox1, ListBox2, TextBox1.Text, True)
    findWrd(ListBox3, ListBox2, TextBox1.Text, False)
    findWrd(ListBox4, ListBox2, TextBox1.Text, False)
    '...
End Sub
Private Sub findWrd(ByVal lbxFrom As ListBox, ByVal lbxTo As ListBox, ByVal str As String, ByVal isClear As Boolean)
    If str.Length = 0 Then Exit Sub
    Dim fnd = (From tt As String In lbxFrom.Items Where tt.ToLower.Contains(str.ToLower) Select tt).ToArray
    If isClear Then lbxTo.Items.Clear()
    lbxTo.Items.AddRange(fnd)
End Sub

@FadiSh · 28.08.2015, 15:10 **[ТС]**

ovva, Спасибо - буду пробовать такой вариант тоже )

Новые блоги и статьи Все статьи Все блоги /
Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .	Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .
модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .	Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .	Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ

@edward_freedom 1569 / 1448 / 303 Регистрация: 01.10.2011 Сообщений: 2,636
	28.08.2015, 09:52
	FadiSh, Переделай первый код в функцию и в параметрах передавай листбокс 0

@FadiSh 0 / 0 / 0 Регистрация: 24.10.2014 Сообщений: 56
	28.08.2015, 09:57 [ТС]
	edward_freedom, А можно пример если не трудно ? 0

@edward_freedom 1569 / 1448 / 303 Регистрация: 01.10.2011 Сообщений: 2,636
	28.08.2015, 10:31
	FadiSh, А чем тебе мой способ не угодил? И зачем тебе try, тем более так много? 0

@FadiSh 0 / 0 / 0 Регистрация: 24.10.2014 Сообщений: 56
	28.08.2015, 10:34 [ТС]
	edward_freedom, Я начал метод с Трай до того как увидел твои метод.. Да и если честно с твоим методом я не знаком, Я просто еще начинающи в Этой среде, и не догнал точно как его сделать :\| Если можно объяснить как точно его Юзать ) 0

@FadiSh 0 / 0 / 0 Регистрация: 24.10.2014 Сообщений: 56
	28.08.2015, 15:10 [ТС]
	ovva, Спасибо - буду пробовать такой вариант тоже ) 0