Contoh Penggunaan ListBox dan ComboBox pada VB 6.0

hai teman, kali ini saya akan share contoh penggunaan Listbox dan ComboBox pada visual basic 6.0,
langsung aja TKP yah..
-buka Visual Basic 6.0
-pilih Standard EXE
-lalu klik Open

setelah muncul Form nya kita tambahkan 1 ListBox dan 1 ComboBox dan 2 CommandButton.
lalu ubahlah commandbutton 1 dengan nama >
dan commandbutton 2 dengan nama < , seperti gambar berikut :

lalu copy-paste kn coding berikut :


Private Sub Command1_Click()
List1.Clear
Combo1.AddItem "Nasi Goreng"
Combo1.AddItem "Jus"
Combo1.AddItem "Nasi Lemak"
Combo1.AddItem "jus apel"

End Sub

Private Sub Command2_Click()
Combo1.Clear
List1.AddItem "Nasi Goreng"
List1.AddItem "Jus"
List1.AddItem "Nasi Lemak"
List1.AddItem "Jus Apel"
End Sub

Private Sub Form_Load()
List1.AddItem "Nasi Goreng"
List1.AddItem "Jus"
List1.AddItem "Nasi Lemak"
List1.AddItem "Jus Apel"
End Sub

lalu klik run atau Start

jadi deh, selamat belajar yah,,