VisiKita.Net

Fasilitas autocomplete akan sangat membantu user pada saat sedang menginput data yang cukup banyak. sebab ada saja kemungkinan adanya kesamaan data yang harus diinput, baik hanya sebagaian maupun secara keseluruhan.

Saya sendiri sangat menyukai aplikasi yang selalu dilengkapi dengan fasilitas autocomplete, maklum saya memang pemalas. Sehingga sedapat mungkin aplikasi-aplikasi yang saya buat selalu saya lengkapi dengan fasilitas autocomplete ini, dengan tujuan agar orang-orang yang menggunakan aplikasi buatan saya juga menjadi malas, hahaha…

Susah gak seh bikin fasilitas autocomplete? Hmm, gak lah… gampang kok… Lihat aja contoh kode berikut dan silahkan Anda kembangkan sendiri…

Desain Form :

Kode Program :

Option Explicit

Private Declare Function SendMessage Lib “user32″ Alias _
“SendMessageA” (ByVal hwnd As Long, ByVal wMsg As Long, _
ByVal wParam As Long, lParam As Any) As Long

Private Const LB_FINDSTRING = &H18F

Private Sub AutoComplete(ByVal KeyCode As Integer, _
ByVal Target As TextBox, ByVal Source As ListBox)
Dim SelStart As Integer
Dim ListIndex As Integer

Select Case KeyCode
Case vbKeyLeft, vbKeyRight, vbKeyBack
Case Else
SelStart = Target.SelStart
ListIndex = SendMessage(Source.hwnd, _
LB_FINDSTRING, -1, ByVal Target.Text)
If ListIndex >= 0 Then
Target.Text = Source.List(ListIndex)
End If
Target.SelStart = SelStart
Target.SelLength = Len(Target.Text) - SelStart
End Select
End Sub

Private Sub txtNama_KeyUp(KeyCode As Integer, Shift As Integer)
Call AutoComplete(KeyCode, txtNama, lstNama)
End Sub

Private Sub cmdSimpan_Click()
lstNama.AddItem Trim(txtNama.Text)
txtNama.Text = Empty
End Sub

Semoga bermanfaat.