TextBox Auto Complete Dan Pencarian Cepat Pada ListBox

Apabila Anda pernah menggunakan Tools API-Guide salah satu produk AllApi.net, maka kita akan melihat salah satu TextBox (untuk pencarian fungsi API) yang dilengkapi dengan fasilitas Auto Complete. Auto Complete ini sangat tepat bagi Anda yang sedang mengembangkan aplikasi kamus, database (unbound-control), maupun aplikasi-aplikasi yang menuntut pencarian cepat. Agar lebih jelas, apa yang dimaksud dengan AutoComplete itu perhatikan gambar di bawah ini:

'simpan kode di bawah ini pada modul 
Option Explicit 
 
Public Function TextBoxAutoComplete(Key As Integer, txt As TextBox, lst As ListBox) 
    'fitur auto complete 
    If Key = vbKeyBack Then Exit Function 
    If Key =   vbKeyDelete Then Exit Function 
    
    Dim start As Integer 
     
    If InStr(1, lst.Text, txt.Text) > 0 Then 
        start = txt.SelStart 
        txt.Text = lst.Text 
        If Key = 13 Then 'enter 
            txt.SelStart = Len(txt.Text) 
            Exit Function 
        End If 
        txt.SelStart = start 
        txt.SelLength = Len(lst.Text) 
    End If 
End Function 

Contoh penggunaan fungsi di atas:

'simpan kode di bawah ini pada form 
Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer) 
    Call TextBoxAutoComplete(KeyCode, Text1, List1) 
End Sub