Mencari Dengan Cepat Pada ListBox Menggunakan Fungsi API

Di bawah ini merupakan fungsi yang digunakan untuk mencari sebuah item yang terdapat dalam objek ListBox dengan cepat.

Option Explicit 
 
Private Declare Function SendMessage Lib "User32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Integer, ByVal wParam As Integer, lParam As Any) As Long 
Private Const LB_FINDSTRING = &H18F 
 
Public Function SearchInList(sText As String, lst As ListBox) 
    On Error Resume Next 
    lst.ListIndex = SendMessage(lst.hWnd, LB_FINDSTRING, -1, ByVal sText) 
    lst.TopIndex = List1.ListIndex - 1 
End Function 

Contoh penggunaan mencari dengan cepat menggunakan fungsi API

Private Sub Form_Load() 
    With List1 
        .AddItem "Bandung" 
        .AddItem "Jakarta" 
        .AddItem "Garut" 
        .AddItem "Surabaya" 
        .AddItem "New York" 
        .AddItem "Khoiriyyah" 
    End With 
End Sub 
 
Private Sub Text1_Change() 
      SearchInList Text1.Text, List1 
End Sub