Contoh Program menggunakan objek ComboBox pada Microsoft Visual Basic 6.0

Objek ComboBox merupakan gabungan dari objek TextBox dan ListBox. ComboBox dapat menampilkan atau diketik / diisi suatu teks seperti halnya pada objek TextBox serta dapat menampilkan dafar pilihan seperti pada objek LsitBox.

Langkah – langkah pembuatan program dengan menggunakan objek CheckBox adalah sbb :

·      Buka proyek Standard EXE yang baru

·  Disain tampilan form seperti gambar berikut dengan menggunakan objek Label, TextBox, CommandButton, Frame dan CheckBox

 

Gbr 1

·      Atur Properties masing - masing kontrol seperti dibawah ini :

Kontrol	Properties	Pengaturan
TextBox1	Name        Caption      Font ForeColor	txt_kurs (dikosongkan) MS Sans Serif, Bold, 10 &H00FF0000&
TextBox1	Name        Caption      Font ForeColor	txt_jumlah (dikosongkan) MS Sans Serif, Bold, 10 &H00FF0000&
TextBox1	Name        Caption      Font ForeColor	txt_rupiah (dikosongkan) MS Sans Serif, Bold, 10 &H00FF0000&
CommandButton1	Name         Caption	cmd_exit E&xit
Label1	Caption Font ForeColor	Valuta Asing MS Sans Serif, Bold, 10 &H00FF0000&
Label2	Caption Font ForeColor	Nilai Kurs MS Sans Serif, Bold, 10 &H00FF0000&
Label3	Caption Font ForeColor	Jumlah MS Sans Serif, Bold, 10 &H00FF0000&
Label4	Caption Font ForeColor	Nilai Rupiah MS Sans Serif, Bold, 10 &H00FF0000&
CheckBox1	Name Caption	Chk_KartuAnggota Kartu Anggota
CheckBox2	Name Caption	Chk_Cash Bayar Tunai
ComboBox1	Name Text Font Fore Color	ComboBox_MoneyChanger (dikosongkan) MS Sans Serif, Bold, 10 &H00FF0000&

Form1

Name Caption

ComboBox_MoneyChanger Program Money Changer dengan menggunakan Objek ComboBox

·      Double click pada  ComboBox Cmb_ValutaAsing lalu ketik Kode Program dibawah ini :

Private Sub Cmb_ValutaAsing_Click()

Kurs = Me.Cmb_ValutaAsing.ItemData(Me.Cmb_ValutaAsing.ListIndex)

Me.txt_kurs.Text = Format(Kurs, "###,###,###.#0")

Me.txt_jumlah.SetFocus

End Sub

·     Double click pada TextBox txt_jumlah lalu ketik kode program dibawah ini :

Private Sub txt_jumlah_Change()

Me.txt_rupiah.Text = Format(Kurs * Me.txt_jumlah.Text, "###,###,###.#0")

End Sub

·     DoubleClick pada  CommandButton cmd_exit lalu ketik Kode Program dibawah ini :

Private Sub cmd_exit_Click()

End

End Sub

·     Jalankan Program dengan cara menekan tombol F5 pada keyboard atau pilih menu Run  => Start

Download program Money Changer dengan menggunakan Objek ComboBox  disini