Menggunakan Combo Box di VB

Kontrol ComboBox merupakan kontrol yang mirip dengan kontrol Listbox, jadi apa yang dapat bekerja pada kontrol Listbox juga bekerja dengan baik pada kontrol comboBox. Seperti pada kontrol listbox juga memiliki properti sorted yang digunakan untuk  mengurutkan item data secara otomatis dan  properti list yang digunakan untuk menambahkan data pada saat design time. Kebanyakan metode yang digunakan pada ListBox juga terdapat pada ComboBox seperti AddItem, RemoveItem, dan Clear.

Kontrol ComboBox sebenarnya merupakan gabungan antara sebuah TextBox dan ListBox. Kontrol ComboBox juga memiliki properti Style memberikan 3 pilihan yaitu:

  • 0 – Dropdown Combo : pemakai diperbolehkan mengetik tulisan yang tidak ada di list (daftar)
  • 1 – Simple Combo    :     pemakai boleh mengetik atau memilih dengan tombol ke atas dan ke bawah pada keyboard dan daftar tidak bisa
  • 2 – Dropdown List    :     pemakai hanya dapat memilih tulisan yang ada di list (daftar) dan tidak bisa mengetik di list

Berikut ini langkah -langkah yang dapat digunakan untuk mengaktifkan combo box

  1. Lakukan double click (atau klik drag pada form)pada objek COMBO BOX
  2. Atur letaknya pada form
  3. Lakukan pengaturan property seperti name, AddItem, RemoveItem, dan Clear sesuai kebutuhan

LATIHAN

Buat form seperti gambar di bawah ini. Kemudian lakukan pengisian data combo box dengan dua cara. Combo box 1 lakukan pengisian datanya melalui properties sedangakan combo box 2 lakukan melalui code program seperti tertulis dalam code di bawah.

KODE PROGRAM

Private Sub Combo1_CLICK()

Text1.Text = Combo1.Text

End Sub

 

Private Sub Combo2_Click()

Text2.Text = Combo2.Text

End Sub

 

Private Sub Command1_Click()

END

End Sub

 

Private Sub Form_Load()

‘pengisian data combo box melalui code progra

Combo2.AddItem “CERENTI”

Combo2.AddItem “GUNTOR”

Combo2.AddItem “MUARA LEMBU”

Combo2.AddItem “KOTO BARU”

Combo2.AddItem “LUBUK JAMBI”

Combo2.AddItem “SUNGAI PINANG”

Combo2.AddItem “BENAI”

Combo2.AddItem “TELUK KUANTAN”

Combo2.AddItem “PANGEAN”

End Sub

Print Friendly, PDF & Email
Hari

Written by 

admin "Ilmu Itu Tak Ada Yang Tak Bermanfaat"

Leave a Reply

Your email address will not be published.