Быстрый поиск в листбоксе

[LeXoN]

Помогите с быстрым поиском в листбоксе что не делаю не могу как сделать подскажите !!!

[Thomas]

LeXoN
Привет.
А какие данные у тебя в ListBox? Какого типа, текст или числа?
Как сам пытался реализовать поиск?

Идея должна быть примерно такая:
- отсортировать данные в ListBox;
- бинарный поиск искомого значения. (если я правильно понял твой вопрос)

Сортировать можно так, вот пример сортировки массива

Код: Выделить всё

Public Sub Quicksort(ByVal tabel() As Integer, ByVal Li As Integer, ByVal Re As Integer)
        Dim Hli, Hre, mid As Integer
        Hli = Li : Hre = Re
        mid = tabel((Hli + Hre) / 2)
        While Hli <= Hre
            While tabel(Hli) < mid
                Hli += 1
            End While
            While tabel(Hre) > mid
                Hre -= 1
            End While
            If Hli <= Hre Then
                verwissel(tabel, Hli, Hre)
                Hli += 1 : Hre -= 1
            End If
        End While
        If Li < Hre Then
            Quicksort(tabel, Li, Hre)
        End If
        If Hli < Re Then
            Quicksort(tabel, Hli, Re)
        End If
    End Sub

То есть выполним быструю сортировку.
Далее бинарный поиск. Сравниваем искомое с серединой, если больше то ищем в верхней части, если меньше то в нижней. И так далее, снова сравниваем с серединой оставшейся части, а там вверх или вниз пока не найдешь.
Идея понятна?

Да для сравнения данных типа String используй IComparer.Compare.

Удачи.

[Sebas]

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

[LeXoN]

Привет Thomas у меня данные буквеные
пытался что-то типа этого
Dim FIndex As Integer = MyListBox.FindString ("As")
или
Dim FIndex As Integer = MyListBox.FindStringExact ("As")

[Thomas]

LeXoN
Привет.
Ну вот видишь, какой ты молодец. Нашел встроенные функции для ListBox. Первая, как я понимаю ищет все значения типа String, начинающиеся на "As". Вторая, ищет значения типа String, полностью совпадающие с "As".

ЗЫ и в следующий раз, постарайся свои вопросы формулировать более чётко, а то не совсем понятно что ты хочешь узнать и в чём проблема.