Pada bagian Code Editor ketikkan kode programnya sebagai berikut :
Private Sub Form_Load()
Combo1.AddItem "Umar"
Combo1.AddItem "Salman"
Combo1.AddItem "Halimah"
Combo1.AddItem "Shafira"
End Sub
Private Sub Command1_Click()
List1.AddItem Combo1.Text
End Sub
Private Sub Command2_Click()
List1.RemoveItem List1.ListIndex
End Sub
Private Sub Command3_Click()
List1.Clear
End Sub
Simpan Form2 (nama file : Lat2.frm).
Klik menu Project > Project1 Properties lalu klik tab General. Gantilah Startup Object-nya menjadi Form2 :
![]() |
Gambar project properties |
Keterangan : Startup Object menentukan object mana yang muncul setiap kali sebuah project dijalankan.
Coba jalankan Project1 :
>> Untuk menambah isi ListBox : pilih “Umar” di dalam ComboBox kemudian klik tombol Add. Ulangi untuk nama-nama yang lain secara acak.
>> Untuk menghapus salah satu isi ListBox : pilih “Shafira” di dalam ListBox kemudian klik tombol Delete.
>> Untuk menghapus semua isi ListBox : klik tombol Clear.
![]() |
Gambar Method Test running |
Sumber : Cepat Mahir Visual Basic 6.0 - Krisna D. Octovhiana - Kuliah Berseri IlmuKomputer.Com