Cara Membuat ListBox Autocomplete VB6

Berikut ini adalah cara membuat listbox autocomplete dengan bantuan textbox di visual basic 6, untuk mempraktekannya siapkan :

1. Buat 1 Project baru dengan 1 Form, 1 Module, 1 TextBox, dan 1 ListBox.
2. Tambahkan beberapa item ke dalam List1.
3. Copy-kan coding berikut ke dalam editor Module/Form yang bertalian

          '--- Coding ini di Module...
          Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As _
          Long, ByVal wMsg As Long, ByVal wParam As Integer, ByVal lParam As Any) As Long
          Public Const LB_FINDSTRING = &H18F
          '--- Batas coding di Module...

          '--- Coding ini di Form...
          Private Sub Form_Load()   'Tambahkan beberapa item ke dalam List1

             List1.AddItem "Adi"
             List1.AddItem "Aman"
             List1.AddItem "Akhmad"
             List1.AddItem "Armanto"
             List1.AddItem "Badu"

             List1.AddItem "Bobo"
             List1.AddItem "Joko"
             List1.AddItem "Jaka"
             List1.AddItem "Parto"

             List1.AddItem "Paino"
          End Sub

          Private Sub Text1_Change()

            List1.ListIndex = SendMessage(List1.hwnd, LB_FINDSTRING, -1, ByVal CStr(Text1.Text))
          End Sub
          '--- Batas coding di Form...

Tags:

contoh program vb6, contoh fungsi di vb6, cara penggunaan fungsi vb, tutorial vb6, download tutorial vb6, vb6 tutorial download, dasar dasar vb6, belajar vb6, cara mudah belajar vb6, vb6 artikel download, vb6 blog, contoh program vb6, artikel vb6, semua tentang vb6, vb6 api, cara menggunakan module, cara menggunakan class module