LATIHAN MEMBUAT COMBOBOX VB

KONTROL COMBOBOX

Hy Sobat?? Pasti pernah dengar kata ComboBox kan??

Nahhh... Sekarang kita Lathan melakukan Kontrol ComboBox yah!!

eeesssstttttt... tunggu dulu!!

Kita harus tau dolo apa itu ComboBox...

ComboBox

komponen yang digunakan untuk membuat sebuah daftar pilihan, dimana ada satu pilihan yang dapat dipilih. Kemudian Sobat dapat mengklik drop dwon untuk mencari dan memilih salah satu yang terdapat di dalam daftar.

Contoh

Rancang lah Kontrol ComboBox yang berisikan Nama Siswa, Materi Ujian dan Biaya Ujian. Materi Ujian menggunakan Kontrol ComboBox!!

Langkah Pertama Sobat Merancang desain Form.

•  Sobat desain form seperti pada Gambar 1.1 yang terdiri dari: Label, TextBox, ComboBox, dan Commandbutton.

• Control	Nama	Caption/Text
  Label1	Label1	Nama Siswa
  Label2	Label2	Materi Ujian
  Label3	Label3	Biaya Ujian
  Text1	Nama	Dikosongkan
  Text2	Biaya	Dikosongkan
  Combo1	Com_Materi	Dikosongkan
  command1	Keluar	Keluar

Gambar 1.1

• Sobat mengubah properti dari Kontrol CombBox dan isi dengan ketentuan :

1.  Gunakan properti  List dari Kontrol ComboBox untuk memasukkan data input pilihan: Visual Basic, Dreamweaver, dan Flash. Setiap mengisi sebuah data input pilihan, gunakan tombo Ctrl +  Enter untuk memisahakan penulisan daftar pilihan.
2.  Kosongkan baris Properti Text.

• Setelah itu Sobat klik dua kali pada ComboBox dan isikan Kode program berikut:

Private Sub Cbo_materi_Click()

If Cbo_Materi.ListIndex = 0 Then

biaya.Text = 40000

ElseIf Cbo_Materi.ListIndex = 1 Then

biaya.Text = 35000

ElseIf Cbo_Materi.ListIndex = 2 Then

biaya.Text = 25000

ElseIf Cbo_Materi.ListIndex = 3 Then

biaya.Text = 43000

ElseIf Cbo_Materi.ListIndex = 4 Then

biaya.Text = 38000

ElseIf Cbo_Materi.ListIndex = 5 Then

biaya.Text = 42000

End If

End Sub

• Dan terakhir klik dua kali CommandButton dan isikan Kode program berikut:

Privat Sub Out_click()

end

End Sub

Setelah Sobat memasukkan Kode, Sobat klik Run ( Jalankan Program) !!

Dan Hasilnya Seperti Gambar 1.2 ini ! !

Nah.. kalau Sobat ingin mengembangkannya lebih baik lagi, pastinya lebih hebat! !

Jangan Ragu untuk Mencoba yah Sobat ! ! Mc.Daniel