VB6: Combobox Control

Property yang Umum Digunakan

Property	Keterangan
BackColor	Warna latar combobox.
Enabled	Jika true maka user dapat berinteraksi, jika false tidak.
Font	Tampilan teks font name, style, dan size.
ForeColor	Wana Teks.
Height	Tinggi combobox dalam twips.
Index	Nomor urut jika akan dibuat control array.
Left	Jarak dari kiri ke combobox dalam twips.
List	Isian list item yang ada pada combobox.
Locked	Jika di set True maka user tidak dapat mengubah nilai pilihan pada combobox.
Shorted	Jika true maka list item akan diurutkan.
Style	Ada 3 macam Style Combobox: Dropdown Combo, Simple Combo, dan Dropdownlist (penjelasan dibawah).
TabIndex	Urutan fokus aktif jika menekan tombol Tab pada keyboard.
Text	Teks yang akan ditampilkan sebagai item terpilih pada combobox.
ToolTipText	Tulisan akan akan muncul ketika running dan mouse pointer ada di atas combobox.
Top	Jarak dari atas ke combobox dalam twips.
Visible	Jika True maka user dapat melihat combobox dan control didalamnya, sebaliknya jika false maka tersembunyi.
Width	Lebar combobox dalam twips.

Event yang Umum Digunakan

Event	Keterangan
Change	Saat teks pada combobox berubah.
Click	Saat mouse mengklik untuk memilih item dari list.
DropDown	Saat Dropdown Combo ditampilkan.
GotFocus	Saat Combobox menerima fokus aktif.
LostFocus	Saat Combobox kehilangan fokus aktif.

Method yang Umum Digunakan

Method	Keterangan
AddItem	Menambahkan item ke list item.
Clear	Membersihkan semua item dari list.
RemoveItem	Menghapus item tertentu dari list.
SetFocus	Memindahkan fokus aktif ke Combobox.

Contoh Penggunaan Combobox.
1. ComboBox Style
Dropdown Combo: Teks dapat diketik manual dan bisa berbeda dengan item yang ada di list.

Simple Combo: Tanpa dropdown, untuk memilih list menggunakan tombol panah atas bawah pada keyboard.

Dropdown List: Teks tidak dapat diubah dengan ketik manual, hanya bisa memilih yang ada pada list.

2. ComboBox Add, Remove, dan Clear Item
UI:

Code:
Private Sub cmdAdd_Click()
Combo1.AddItem Text1.Text
End Sub

Private Sub cmdRemoved_Click()
If Combo1.ListCount > 0 Then
Combo1.RemoveItem (Combo1.ListIndex)
End If
End Sub

Private Sub cmdClear_Click()
Combo1.Clear
End Sub

Runtime:
- Add