VB6 Code - Mencari Dengan Cepat Pada Listbox (Fungsi Api)

Di bawah ini merupakan fungsi VB6 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