Sabtu, 15 November 2014

Penggunaan ListBox, Combobox, frame, dan command button pd IDE VB 6.0 Buatlah Design nya dan copykan Code berikut ini : Private Sub cmdclose_Click() End End Sub Private Sub cmdhapus_Click() List1.RemoveItem List1.ListIndex End Sub Private Sub cmdpilih_Click() List1.AddItem cmbsayur.Text End Sub Private Sub cmdpilih2_Click() List1.AddItem cmblauk.Text End Sub Private Sub cmdpilih3_Click() List1.AddItem cmbminum.Text End Sub Private Sub Form_Load() cmbsayur.AddItem "Sayur Asem" cmbsayur.AddItem "Sayur Sop" cmbsayur.AddItem "Sayur Lodeh" cmbsayur.AddItem "Garang Asem" cmbsayur.AddItem "Pecel" cmbsayur.AddItem "Megono" cmbsayur.AddItem "Sop Buntut" cmbsayur.AddItem "Sayur Bayam" cmblauk.AddItem "Tempe" cmblauk.AddItem "Tahu" cmblauk.AddItem "Ayam Goreng" cmblauk.AddItem "Telur" cmblauk.AddItem "Lele Goreng" cmblauk.AddItem "Bebek Goreng" cmblauk.AddItem "Ikan Bakar" cmbminum.AddItem "Teh Manis" cmbminum.AddItem "Es Teh" cmbminum.AddItem "Jeruk Hangat" cmbminum.AddItem "Es Jeruk" cmbminum.AddItem "Jus Alpukat" cmbminum.AddItem "Jus Jambu" cmbminum.AddItem "Jus Durian" cmbminum.AddItem "Jus Melon" End Sub

Tidak ada komentar:

Posting Komentar