Auto-Complete ComboBox

Topik sebelumnya Topik selanjutnya Go down

Auto-Complete ComboBox

Post by PujanggaBageur on Fri Aug 08, 2008 11:27 pm

Auto Complete adalah teknik melengkapi teks pada ComboBox (sesuai item yang telah terdaftar pada ComboBox) berdasarkan penggalan teks yang dimasukkan.

Tambahkan sebuah ComboBox pada form!

Buatlah sebuah module, Ketik:

Code:
Option Explicit

Sub Komplit(cbo As ComboBox, Koleksi$, KeyCode As Integer)
    Dim iCtr As Long
    Dim intSelStart As Integer
    Dim Pisah() As String
   
    'Jika konstanta KeyCode di bawah 65
    'maka abaikan
    If KeyCode < 65 Then Exit Sub
   
    intSelStart = cbo.SelStart
   
    If intSelStart = 0 Then intSelStart = 1
   
    'Memecah koleksi
    Pisah = Split(Koleksi$, "||")
   
    'Pengulangan pencarian teks
    'sebanyak pecahan koleksi
    For iCtr = 0 To UBound(Pisah)
        If LCase(Left$(Pisah(iCtr), _
        Len(cbo.Text))) = LCase(cbo.Text) Then
            cbo.Text = Pisah(iCtr)
            cbo.SelStart = intSelStart
            cbo.SelLength = 255
            Exit Sub
        End If
    Next
    cbo.SelStart = intSelStart
End Sub

Buka jendela kode form, ketik:
Code:
Option Explicit

Dim KoleksiKota As String

Private Sub Combo1_KeyUp(KeyCode As Integer, Shift As Integer)
    'Memanggil prosedur Komlit
    Call Komplit(Combo1, KoleksiKota, KeyCode)
End Sub

Private Sub Form_Load()
    Dim i As Integer
   
    'Mengisi item pada Combo1
    With Me.Combo1
        .AddItem "Bandung"
        .AddItem "Bogor"
        .AddItem "Cirebon"
        .AddItem "Cimahi"
        .AddItem "Ciamis"
        .AddItem "Tasikmalaya"
        .AddItem "Jakarta"
        .AddItem "Semarang"
        .AddItem "Yogyakarta"
    End With
   
    'Mengisi daftar koleksi item
    For i = 0 To Me.Combo1.ListCount - 1
        KoleksiKota = KoleksiKota & Me.Combo1.List(i) & "||"
    Next
End Sub

PujanggaBageur
Admin
Admin

Jumlah posting : 148
Join date : 07.08.08
Age : 34
Lokasi : Cirebon

Lihat profil user http://inochi.forumotion.net

Kembali Ke Atas Go down

Topik sebelumnya Topik selanjutnya Kembali Ke Atas

- Similar topics

 
Permissions in this forum:
Anda tidak dapat menjawab topik