Можно ли использовать фильтр записей в ListBox

dev.Free · 23.09.2012, 15:50. **Показов** 4402. **Ответов** 7

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

Всем заглянувшим, здрям!

Есть код:

Visual Basic
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
Private Sub Text1_Change()
    strFind = UCase(Text1.Text)
    List1.Clear
    
    For intResult = 0 To List2.ListCount - 1
        intSearchResult = InStr(UCase(List2.List(intResult)), strFind)
        If intSearchResult > 0 Then List1.AddItem List2.List(intResult)
    Next intResult
End Sub
 
Private Sub Form_Load()
    Text1.Text = ""
    With List2
        .AddItem "ÌÏ-Êîì ïðàâäà"
        .AddItem "Tanya"
        .AddItem "Shannon"
        .AddItem "Ìîñêîâñêàÿ ïðàâäà"
        .AddItem "Ìîñêîâñêèé êîìñîìîëåö"
        .AddItem "Ìîñêîâñêèå íîâîñòè"
        .AddItem "Johnny"
        .AddItem "Mike"
        .AddItem "Derek"
        .AddItem "Scotty"
        .AddItem "ÌÏ-Ñîâ Ðîñ"
        .AddItem "Scott"
        .AddItem "Tyna"
        .AddItem "Diana"
        .AddItem "Chris"
        .AddItem "Stanley"
        .AddItem "Kamal"
        .AddItem "ÌÏ-Êóðÿä"
    End With
End Sub

Там используется 2 ListBox и 1 текстовое поле, при вводе символа в текстовое поле, найденное в List2 загружается в List1.

Внимание вопрос!

Как можно обойтись без List1, а работать только с List2 в нем же искать, в него же и сортировать поиск?

Dragokas · 23.09.2012, 16:47

Visual Basic
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
Private Names()
 
Private Sub Text1_Change()
    Call Fill_TextBox
End Sub
 
Private Sub Form_Load()
    Names = Array( _
    "МП-Ком правда", _
    "Tanya", _
    "Shannon", _
    "Московская правда", _
    "Московский комсомолец", _
    "Московские новости", _
    "Johnny", _
    "Mike", _
    "Derek", _
    "Scotty", _
    "МП-Сов Рос", _
    "Scott", _
    "Tyna", _
    "Diana", _
    "Chris", _
    "Stanley", _
    "Kamal", _
    "МП-Куряд")
    'Text1_Change будет инициирована самостоятельно
    Text1.Text = vbNullString
End Sub
 
Private Sub Fill_TextBox()
    Dim S$(), i&
    S = Filter(Names, Text1.Text, , vbTextCompare)
    List1.Clear
    For i = 0 To UBound(S)
        List1.AddItem S(i)
    Next
End Sub

@Kogb · 23.09.2012, 16:50

Тогда будет только 1 результат поиска. Если устраивает, то:
3 строку удаляешь, 7 меняешь на:

Visual Basic
1
If intSearchResult > 0 Then List2.Text = List2.List(intResult)

Можно поставить sorted=true свойствах List2 для сортировки по алфавиту.

@Апострофф · 23.09.2012, 19:48

Visual Basic
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
45
Option Compare Text
Dim h
 
Private Sub Text1_Change()
Dim f&, t$
List2.Height = h * (List2.ListCount + 1)
    If Text1.Text <> "" Then
        For intresult = 0 To List2.ListCount - 1
            intsearchresult = InStr(List2.List(intresult), Text1.Text)
            If intsearchresult > 0 Then
                t = List2.List(f)
                List2.List(f) = List2.List(intresult)
                List2.List(intresult) = t
                f = f + 1
                List2.Height = h * (f + 1)
            End If
        Next intresult
    End If
End Sub
 
Private Sub Form_Load()
    With List2
        .AddItem "МП-Ком правда"
        .AddItem "Tanya"
        .AddItem "Shannon"
        .AddItem "Московская правда"
        .AddItem "Московский комсомолец"
        .AddItem "Московские новости"
        .AddItem "Johnny"
        .AddItem "Mike"
        .AddItem "Derek"
        .AddItem "Scotty"
        .AddItem "МП-Сов Рос"
        .AddItem "Scott"
        .AddItem "Tyna"
        .AddItem "Diana"
        .AddItem "Chris"
        .AddItem "Stanley"
        .AddItem "Kamal"
        .AddItem "МП-Куряд"
    End With
Set Me.Font = List2.Font
h = Me.TextHeight("A")
Text1.Text = ""
End Sub

@kuklp · 01.10.2012, 08:58

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

Visual Basic
1
2
3
4
5
6
7
8
Private Sub Fill_TextBox()
 Dim S$(), i&
 S = Filter(Names, Text1.Text, , vbTextCompare)
 List1.Clear
 For i = 0 To UBound(S)
 List1.AddItem S(i)
 Next
End Sub

Вместо этого лучше:

Visual Basic
1
2
3
Private Sub Text1_Change()
    List1.List = Filter(n, Text1, , 1)
End Sub

И Names - зарезервированное слово Экса. Лучше не применять в именах переменных. Могут быть проблемы.

@RCF · 18.10.2012, 20:40

Всем привет!

Возник вопрос поиска точного значения из ListBox. В ниже представленном коде выполняется условие типа Like, то есть совпадение. А нужно было чтобы ТОЧНОЕ совпадение значение из Text1(0) со значением в List3.

Visual Basic
1
2
3
4
Dim entryNum As Long
Dim txtToFind As String
txtToFind = Text1(0).Text
entryNum = SendMessageByString(List3.hwnd, LB_SELECTSTRING, 0, txtToFind)

Как это можно реализовать?

Dragokas · 19.10.2012, 00:33

Совпадение с учетом регистра букв

Visual Basic
1
2
3
With List1
    If .List(.ListIndex) = Text1(0).Text Then MsgBox "Совпадение с учетом регистра букв"
End With

Совпадение без учета регистра букв

Visual Basic
1
2
3
With List1
    If StrComp(.List(.ListIndex), Text1(0).Text, vbTextCompare) = 0 Then MsgBox "Совпадение без учета регистра букв"
End With

dev.Free · 19.10.2012, 08:18 **[ТС]**

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
For i = 1 To List1.ListCount
List1.ListIndex = List1.ListIndex + 1
    With List1
        If .List(.ListIndex) = Text1.Text Then
            MsgBox "Ñîâïàäåíèå ñ ó÷åòîì ðåãèñòðà áóêâ"
                List1.ListIndex = 0
                List1.Text = ""
        End If
        If StrComp(.List(.ListIndex), Text1.Text, vbTextCompare) = 0 Then
            MsgBox "Ñîâïàäåíèå áåç ó÷åòà ðåãèñòðà áóêâ"
                List1.ListIndex = 0
                List1.Text = ""
        End If
    End With
Next i

Ну и мои пять копеек !

Dragokas, у тебя пока в листе не выделишь запись поиск не работает, я сделал по циклу на кол-во записей в List1.

Новые блоги и статьи Все статьи Все блоги /
Видеокарта простаивает ночами? Вот 4 проекта, которые загрузят её наукой Programma_Boinc 10.04.2026 Видеокарта простаивает ночами? Вот 4 проекта, которые загрузят её наукой Если на Windows стоит дискретная NVIDIA или AMD — можно отдать её вычислительную мощность реальным исследованиям. . . .	Очистка реквизитов документа при копировании 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	Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики. Hrethgir 07.04.2026 Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .	Горе от ума kumehtar 07.04.2026 Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .

Можно ли использовать фильтр записей в ListBox

Решение

Решение