VPF::Быстрый поиск по ListBox - Форум программистов

Scorpeon123

Дата 20.11.2006, 15:57 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 10
Регистрация: 15.11.2006

Репутация: нет
Всего: нет

Lопутим у меня есть ListBox с какими то надписями, надписи выстроены по алфовиту и есть TextBox. Нужно зделать так что бы когда воддилось слово в TextBox, Допустим "ар" в ListBox показывалось это слово с которое начинается с "ар", Желательно что бы это работало и в DataList

BorisVorontsov

Дата 20.11.2006, 16:05 (ссылка)

(нет голосов)

Загрузка ...

Thinker

Профиль
Группа: Комодератор
Сообщений: 714
Регистрация: 3.11.2005
Где: Молдавия, г. Киши нёв

Репутация: 5
Всего: 10

Код


Option Explicit

Private Sub FindInList(ByVal strText As String)
    Dim i As Long
    For i = 0 To ListBox.ListCount - 1
        If InStr(ListBox.List(i), strText) Then
            ListBox.ListIndex = i
            Exit For
        End If
    Next i
End Sub

Private Sub txtFind_Change()
    Call FindInList(txtFind.Text)
End Sub

--------------------

[code=cpp]
const char *out = "|*0>78-,+<|"; size_t cc = char_traits<char>::length(out);
for (size_t i=0;i<cc;i++){cout<<static_cast<char>((out[i]^89));}cout<<endl;
[/code]

Voldemar2004

Дата 20.11.2006, 19:33 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1650
Регистрация: 25.12.2004

Репутация: 7
Всего: 23

Есть бинарный и интерполяционный поиск - когда массив уже отсортирован.

--------------------

i_i
(';')
(V)

user posted image

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB6 \| Следующая тема »