Membuat combobox Visual Basic 6.0

Hai sobat semua, kali ini saya akan menuliskan cara untuk membuat combobox di vb 6.0, untuk sobat yang belum tahu seperti apa combobox itu?mungkin bentuknya hampir mirip dengan menu dropdown yang di Html atau blog, yang bentuknya seperti ini

Combox1 Combox2 Combox3    Kalau di VB itu namanya combobox, bagai mana cara untuk membuat menu combobox di vb??
Untuk cara membuat cobobox di vb perintah'ya berbeda dengan yang ada di HTML, kalau dihtml menggunakan perintah select dan option untuk membuat pilihannya buat di vb lain lagi.
Buat sobat yang belum tahu dan ingin tahu bagai mana cara membuat combobox di VB, disini saya akan sedikit mempraktekannya buat sobat.
Pertama sobat buat formnya dulu kira-kira bentuk formnya seperti ini :

Form Vb

Keterangan untuk Properties nya adalah Sebagai Berikut :

Object	Caption	Name
ComboBox1	Kosongkan	Ckode
Text1	Kosongkan	Tnmbrg
Text2	Kosongkan	Thrg
Text3	Kosongkan	Tjumbel
Text4	Kosongkan	Ttotal
Label1	TOKO ABC	Label1
Label2	Kode	Label2
Label3	Nama Barang	Label3
Label4	Harga	Label4
Label5	Jumlah Beli	Label5
Label6	Total	Label6
CommandButton1	Ulang	Culang
CommandButton2	Keluar	Ckeluar

Untuk Listing  atau code Programnya adalah Sebagai Berikut :
Private Sub Form_Load()
Ckode.AddItem "F001"
Ckode.AddItem "F002"
Ckode.AddItem "F003"
End Sub

Private Sub Ckode_Click()
If Ckode.Text = "F001" Then
Tnmbrg.Text = "CDrw"
Thrg.Text = "100000"
ElseIf Ckode.Text = "F002" Then
Tnmbrg.Text = "Flashdisk 4gb"
Thrg.Text = "80000"
ElseIf Ckode.Text = "F003" Then
Tnmbrg.Text = "Monitor LCD"
Thrg.Text = "1000000"
Else
Tnmbrg.Text = ""
Thrg.Text = ""
End If
End Sub

Private Sub Culang_Click()
Ckode = ""
Tnmbrg = ""
Thrg = ""
Tjumbel = ""
Ttotal = ""
End Sub

Private Sub Tjumbel_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Ttotal.Text = (Thrg.Text) * Val(Tjumbel.Text)
End If
End Sub

Private Sub Ckeluar_Click()
pesan = MsgBox("Keluar Aplikasi?", vbQuestion + vbOKCancel, "fajar345.com")
If pesan = vbOK Then
Unload Me
End If
End Sub

Nah itulah cara membuat combobox di VB 6.0, tapi yang saya tulis diatas bukan hanya combobox tapi ada perintah lain seperti penjumlahan, percabangan dan dialogbox.
Agar lebih jelasnya silahkan sobat coba buat sendiri..
Selamat mencoba..Semoga suksess ;-)

Sobat suka tulisan ini..?

	Dapatkan Tulisan Gratis Via Email!
Follow Fajar345!