Cara Menampilkan Isi ComboBox secara Otomatis saat di Load di Layar Tanpa Mengklik DropDown

Pada artikel kali saya akan membagikan sebuah trik bagaimana cara menampilkan isi combobox secara otomatis tanpa harus mengkliknya saat di load dilayar.

Combobox merupakan sebuah kotak kecil yang sisi kanannya terdapat arah panah bawah atau DropDown yang apabila di klik terdapat sebuah daftar isian secara menurun.

Nah pada Combobox kali ini saya akan membuat sebuah Combobox yang pada saat di load di layar atau di tampilkan langsung menampilkan isinya tanpa harus mengklik tanda panah DropDown.

Berikut adalah langkah-langkahnya :

Cara Menamapilkan Isi Combobox Secara Otomatis saat di Load di Layar Tanpa Mengklik DropDown

Buka Form VB6 anda pilih Standar EXE

Tanamkan  1 buah Combobox di form dan biarkan seperti apa adanya

Tambahkan 1 buah Module dengan cara Klik >> Project >> Add Module, jendela Module akan terbuka.

Ketik kode dibawah ini di Jendela Module :

Public Declare Function ComboAuto Lib "User32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wparam As Long, ByVal lparam As Long) As Long

Public Const AutoCombo = &H14F

Setelah itu kembali ke Form lalu double klik Form di area kosong, lalu ketik kode dibawah ini di area Private Sub Form_Load() :

Private Sub Form_Load()

BP = ComboAuto(Combo1.hwnd, AutoCombo, True, 0)

With Combo1

.Clear

.AddItem "TIP"

.AddItem "AND"

.AddItem "TRICK"

.AddItem "UNIK"

.AddItem "VB"

End With

End Sub

Setelah langkah-langkah diatas di ikuti dengan benar, kemudian jalankan program Anda, maka Combobox yang Anda buat langsung menampilkan isinya tanpa harus mengklik DropDown.

Lihat seperti gambar dibawah ini:

AutoCombo

Demikianlah trik dari saya tentang Cara Menamapilkan Isi Combobox secara Otomatis saat di Load di Layar tanpa Mengklik DropDown, semoga artikel ini bermanfaat buat kita semua.Amin

Selamat mencoba semoga berhasil.

Related Post: ComboBox