Народ помогите с поиском в листбокс

[X-Team]

У меня есть listbox там всер рассартированно
по алфавиту
и есть Text проле для поиска
как можно сделать вот что
Ты пишешь букву "А" в Text и он ищет первое значение в листбоксе
Пишишь "АB" он ищет первое значение с АВ
и так далее
Взаранее благодарен

[tyomitch]

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

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const LB_FINDSTRING = &H18F&

Private Sub Text1_Change()
    List1.TopIndex = SendMessage(List1.hWnd, LB_FINDSTRING, -1, ByVal Text1.Text)
End Sub


[X-Team]

Что то не получается можно по подробнее плийз

[hCORe]

не List1.TopIndex, а List1.ListIndex

[tyomitch]

не List1.TopIndex, а List1.ListIndex

А у меня именно прокрутка на подходящий элемент, а не его выделение.

Из-за одного только изменения TopIndex на ListIndex работать всё равно не начнёт


hCORe, подпись-то смени, раз QuickHTML уже переименован...

[X-Team]

Всеравно не получается вот что у меня 'Private Sub Text1_Change()
On Error Resume Next

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const LB_FINDSTRING = &H18F&
lstCheat.ListIndex = SendMessage(lstCheat.hWnd, LB_FINDSTRING, -1, ByVal Text1.Text)

End Sub'

[A.A.Z.]

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

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const LB_FINDSTRING = &H18F&

Private Sub Text1_Change()
lstCheat.ListIndex = SendMessage(lstCheat.hWnd, LB_FINDSTRING, -1, ByVal Text1.Text)
End Sub

[tyomitch]

:?

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

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const LB_FINDSTRING = &H18F&

Private Sub Text1_Change()
lstCheat.ListIndex = SendMessage(lstCheat.hWnd, LB_FINDSTRING, -1, ByVal Text1.Text)
End Sub

Или, если выделение подходящего элемента всё же не нужно, то:

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

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const LB_FINDSTRING = &H18F&

Private Sub Text1_Change()
    lstCheat.TopIndex = SendMessage(lstCheat.hWnd, LB_FINDSTRING, -1, ByVal Text1.Text)
End Sub