листание Списка (ListBox)

[dormouse]

имеем на форме (в частности в Access'е) ListBox и поле ввода. Список наполнен большим количеством значений - значений больше, чем высота списка. Пользователь вводит в поле некоторый текст, который должен содержаться в списке. По событию Change поля происходит поиск текста в Списке и выделяется
допустим, так:

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

Private Sub Поле_Change()
For i = 0 To Me.Список.ListCount
    If Me.Список.ItemData(i) = Me.Поле.Text Then
        Me.Список.Selected(i) = True
    End If
Next
End Sub

вопрос: есть ли возможность пролистать список, чтоб показать пользователю найденную строку?
ПолеСоСписком с автоподстановкой делает тоже самое, но список без дела закрыт. А хотелось бы держать его всё время открытым.
Знаю, в дельфи, например, есть такая опция у списка.. Но опять же хотелось бы использовать стандартные контролы.

Ещё это можно реализовать, используя подчинённую табличную форму. но не хотелось бы столько городить... Хотелось бы попроще

[bi-lya]

С Ассес дел не имею, а вообще так:

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

ListBox1.ListIndex = i

[dormouse]

не. так это свойство применять нельзя
а сам я придумал только такое:

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

Private Sub Поле_AfterUpdate()
For i = 0 To Me.Список.ListCount
    If Me.Список.ItemData(i) = Me.Поле.Text Then
        Me.Список.Selected(i) = True
        Me.Список.SetFocus
        SendKeys ("^{HOME}{DOWN " & i - 1 & "}{NUMLOCK}")
        Exit For
    End If
Next
End Sub


т.е. послать в список клавиши "перейти в начало" и "вниз n-цать раз". получилось довольно наглядно Но как-то не так... использовать SendKeys - что-то совсем запредельное

[MYF]

Думаю, так будет лучше:

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

ListBox1.TopIndex = ???

- переместить окно по листингу так, чтобы вверху оказалась строка с индексом ???. Индекс считается с "0". Естественно, сначала надо "в уме" найти нужную строку.

[alibek]

У списка в формах Access нет свойства TopIndex.

[Al Khamid]

""

[Twister]

Если список связан с набором записей, то вполне подойдет и FindFirst, при условии, что Access == 2003...

[dormouse]

Access97. там нет FindFirst
и вы таки не поняли суть моего вопроса. найти строчку в списке, поместить на неё фокус - это всё я могу. а чтоб список ПОКАЗАЛ эту строчку на экране.
вопщем я буду использовать свой способ, а тема - это так... мысли вслух Можно нафик её удалить, вообще