Mencari Data di Listbox Secara Otomatis di VB6

Tujuan dari di rancangnya sebuah program adalah untuk mempermudah pekerjaan agar lebih simpel dan efisien.Sebuah program akan lebih berguna dan efisien bila didalamnya dirancang secara User friendly sehingga user merasa nyaman untuk mengelola suatu data.

Dalam artikel kali ini saya akan memberikan sebuah trik bagaimana cara mencari data di Listbox secara otomatis. Ketika Anda mempunayai data yang sangat banyak disebuah Listbox tentu untuk mencari data tersebut tidak harus dilakukan mengecek satu per satu sehingga ini tidak efisien.

Kali ini Saya ingin berbagi kepada anda bagaimana kode untuk mencari data secara otomatis di Listbox.

Prinsip kerja kode ini adalah ketika user mulai mengetik karakter awal dari data yang akan dicari misalnya nama orang, maka huruf  awal dari nama orang tersebut akan muncul, contoh Saya ingin mencari nama Joko kemudian saya ketikan huruf "J" maka nama yang berawalan huruf "J" pada urutan pertama pada Listbox akan muncul.

Untuk lebih jelasnya perhatikan pada gambar dibawah ini :

Cari Data di Listbox

Untuk mempersingkat waktu berikut adalah langkah-langkah pembuatannya sebagai berikut :

• Buka Form VB6 Anda pilih Satandar EXE
• Tanamkan pada Form1 1 buah Textbox dan 1 Listbox
• Tambahkan 1 buah module dengan cara klik Project >> Add Module
• Kemudian ketik kode dibawah ini pada 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

• Kemudian kembali ke Form1 doubel klik area kosong Form kemudian ketik kode berikut :

Private Sub Form_Activate()

Text1.SetFocus

End Sub

Private Sub Form_Load()

List1.AddItem "Andi"

List1.AddItem "Ardi"

List1.AddItem "Budi"

List1.AddItem "Dedi"

List1.AddItem "Doni"

List1.AddItem "Carli"

List1.AddItem "Finan"

List1.AddItem "Joko"

List1.AddItem "Jaka"

List1.AddItem "Sinta"

List1.AddItem "Mirza"

List1.AddItem "Joni"

Text1.Text = ""

End Sub

Private Sub Text1_Change()

List1.ListIndex = sendmessage(List1.hwnd, LB_FINDSTRING, -1, ByVal CStr(Text1.Text))

End Sub

• Simpan hasil pekerjaan Anda dan jalankan program,jika tidak ada erorr maka hasilnya akan tampak pada gambar diatas.

Demikianlah artikel singkat dari Saya tentang Mencari Data di Listbox Secara Otomatis di VB6 semoga bermanfaat buat kita semua.Amin

Selamat mencoba semoga sukses

Related Post: Uncategories