Sedang Memuat...

Cara Melengkapi Teks di Combobox Secara Otomatis



Ketika Anda mengetikkan teks yang datanya ada di dalam combobox, otomatis
program akan melengkapi data yang sedang Anda ketik ke data yang mendekati atau yang
Anda inginkan. Tip ini juga sangat berguna bagi program Anda jika menggunakan
combobox yang di dalamnya terdiri atas ratusan bahkan ribuan data. User akan kesulitan jika harus memilih satu per satu menggunakan scroll combobox ke bawah hingga data yang diinginkan ketemu. Dengan adanya tip ini, user cukup hanya mengetikkan beberapa karakter awal, dan program akan otomatis melengkapinya, sehingga tidak perlu mengetik sampai akhir. Tip ini juga berguna sekaligus sebagai validasi data yang akan dipilih dari combobox, harus cocok dengan data yang sudah tersedia sebelumnya.


Persiapan:

  1. Buat 1 Project baru dengan 1 Form.
  2. Tambahkan lima combobox, masing-masing menjadi Combo1, Combo2, Combo3,
    Combo4, dan Combo5.
  3. Ketik coding berikut ke dalam editor form yang bertalian. Ketik coding berikut ini pada Form.

Option Explicit
'Konstanta untuk membantu pencarian string
Const CB_FINDSTRING = &H14C
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
'Untuk membantu menentukan apakah terjadi perubahan ‘(Ubah)hasil string di combobox atau
tidak (Asli).
Public Enum EnumKarakter
Asli = 0
Ubah = 1
End Enum
Dim Karakter As EnumKarakter
'Ini untuk mengisi setiap combobox dengan data yang ‘sama. 'Perhatikan perbedaan hasilnya
saat data diketikkan di 'masing2 combobox ybt pada event procedure KeyPress...
Private Sub IsiSemuaCombobox()
Dim ctrl As Control
For Each ctrl In Form1.Controls
If TypeOf ctrl Is ComboBox Then
With ctrl
.AddItem "Masino Sinaga"
.AddItem "Marlyin Monroe"
.AddItem "Matt Monroe"
.AddItem "Ady Chandra"
.AddItem "Ari Hadiyono"
.AddItem "Dorce Simatupang"
.AddItem "Elvis Sinaga"
.Text = .List(0)
End With
End If
Next
End Sub

'Mula-mula, isi semua combobox dengan data yang sama
Private Sub Form_Load()
IsiSemuaCombobox
End Sub
'Bandingkan Combo1 dan Combo4...
'Hasilnya sama saja bukan? Karena huruf yang akan ‘digunakan
tidak terpengaruh kepada parameter ketiga ‘(bUpperCase), tapi
ditentukan oleh parameter keempat ‘(cCharacter), yang bernilai
"Asli", artinya ‘menggunakan karakter aslinya.
Private Sub Combo1_KeyPress(KeyAscii As Integer)
KeyAscii = AutoComplete(Combo1, KeyAscii, True, Asli)
End Sub

Private Sub Combo4_KeyPress(KeyAscii As Integer) KeyAscii = AutoComplete(Combo4,
KeyAscii, False, _
Asli)
End Sub

'Karena parameter ketiga = False dan parameter keempat ‘di- Ubah, maka huruf yang
ditampilkan saat diketik akan ‘menjadi huruf kecil semuanya (terjadi perubahan karena "Ubah").
Private Sub Combo2_KeyPress(KeyAscii As Integer) KeyAscii = AutoComplete(Combo2,
KeyAscii, False, _
Ubah)
End Sub

'Karena parameter ketiga = True, dan parameter keempat ‘di- Ubah, maka huruf yang
ditampilkan saat diketik akan ‘menjadi huruf besar semuanya (terjadi perubahan karena
‘"Ubah").
Private Sub Combo3_KeyPress(KeyAscii As Integer)
KeyAscii = AutoComplete(Combo3, KeyAscii, True, Ubah)
End Sub

'Karena parameter ketiga dan keempat tidak ‘didefinisikan secara eksplisit dalam
pemakaiannya, ‘maka akan menggunakan
parameter default-nya; masing-‘masing: True dan Asli, sehingga huruf yang ditampilkan ‘menjadi
apa adanya (Asli).
'Dalam hal ini, sama dengan Combo1 dan Combo4 di atas. Private Sub
Combo5_KeyPress(KeyAscii As Integer)
KeyAscii = AutoComplete(Combo5, KeyAscii) End Sub
Public Function AutoComplete( _ cbCombo As ComboBox, _ sKeyAscii As Integer, _
Optional bUpperCase As Boolean = True, _ Optional cCharacter As EnumKarakter = Asli) _ As
Integer
Dim lngFind As Long, intPos As Integer Dim intLength As Integer, tStr As String With cbCombo
If sKeyAscii = 8 Then
If .SelStart = 0 Then Exit Function
.SelStart = .SelStart - 1
.SelLength = 32000
.SelText = ""
Else
'simpan posisi kursor
intPos = .SelStart
'simpan data string
tStr = .Text
'If bUpperCase = Asli Then .SelText = (Chr(sKeyAscii))
If bUpperCase = True Then
'ganti string. (hanya huruf besar)
.SelText = UCase(Chr(sKeyAscii))
Else 'If bUpperCase = KecilSemua Then
'ganti string. (biarkan data apa adanya)
.SelText = (Chr(sKeyAscii))
End If
End If
'Cari string di combobox
lngFind = SendMessage(.hwnd, CB_FINDSTRING, 0, _
ByVal .Text)
If lngFind = -1 Then 'Jika string tidak ditemukan 'Set ke string yg lama (digunakan untuk data
yang 'membutuhkan pengawasan karakter
.Text = tStr
'Tentukan posisi kursor
.SelStart = intPos
'Tentukan panjang yang terpilih
.SelLength = (Len(.Text) - intPos)
'Kembalikan nilai 0 KeyAscii (tidak melakukan
‘apapun)
AutoComplete = 0
Exit Function
Else 'Jika string ditemukan
intPos = .SelStart 'Simpan posisi kursor 'Simpan panjang teks sisa yang disorot
intLength = Len(.List(lngFind)) - Len(.Text)
If cCharacter = Ubah Then
'Ganti teks baru dalam string (ubah seluruhnya)
.SelText = .SelText & Right(.List(lngFind), _intLength)
Else 'Asli, huruf asli yang digunakan, tidak
‘diganti
.Text = .List(lngFind)
End If
'Tentukan posisi kursor
.SelStart = intPos
'Tentukan panjang yang terpilih
.SelLength = intLength
End If
End With
End Function

Selamat mencoba

Artikel Terkait

Posting Lebih Baru Posting Lama

Leave a Reply