Vyhľadávane položky v ListBoxu – Visual Basic – Fórum – Programujte.com

Mám pri sebe knižku 1001 tipú a trikú pro VB. Vo veľa príkladoch sa píše napr.: Pro vytvorení takového kódu použijte funkci API SendNessage a zprávu LB_FINDSTRING. Prosím vysvetlí mi niekto čo je funkcia API a ako sa k nej dostanem?

Konkrétne mi ide o toto:

Vyhľadávane položky v ListBoxu:

Private Sub Text1_keyPress (KeyAscii As Iteger)
Dim text As String, ret As Long
Text = Left (Text1.Text, Text1.Selstart) & Chr(KeyAscii)
ret = SendMessage(List1.hwnd, LB_FINDSTRING, -1,text 'Chybové hlásanie: Syntax Error
if ret <> LB_ERR then
List1.ListIndex = ret
Text1.Text = List.List(ret)
Text1.Selstart = Len(Text)
Text1.SelLenght = Len (List.Text)
KeyAscii = 0
End If
End Sub


Kód umístěte do události KeyPress TextBoxu.... toto už ovládam ale bez API to nefunguje.

P.S. Som samouk a tá knižka mi hodne pomáha.