Menggunakan Event dan Method

1.1 Membuat User Interface (UI)

Aktifkan VB 6 melalui tombol Start.

Buka kembali project Latihan :

 

-Klik kanan Project latian

-Pilih Add > From

-Klik Tombol Open

 

Pada Jendela Form buatlah UI seperti ini :

(Gunakan komponen ListBox, ComboBox dan CommandButton)

 

Pengaturan property setiap object-nya adalah sebagai berikut :

1.2 Menulis Kode Program : Method Test

Pada bagian Code Editor ketikkan kode programnya sebagai berikut :

Private Sub Form_Load()

combo1.AddItem "Budi Prakoso"

combo1.AddItem "Riko Septian"

combo1.AddItem "Ignatius"

combo1.AddItem "Arko"

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 Form1

Klik menu Project > Project1 Properties lalu klik tab General. Gantilah Startup Object-nya menjadi

Form1 :

 

Coba jalankan Project1 :

1.Untuk menambah isi ListBox : pilih “Umar” di dalam ComboBox kemudian klik tombol Add.

2.Ulangi untuk nama-nama yang lain secara acak.

3.Untuk menghapus salah satu isi ListBox : pilih “Shafira” di dalam ListBox kemudian klik tombol

   Delete.

4.Untuk menghapus semua isi ListBox : klik tombol Clear.

 

Penjelasan kode program :

Private Sub Form_Load()

combo1.AddItem "Budi Prakoso"

combo1.AddItem "Riko Septian"

combo1.AddItem "Ignatius"

combo1.AddItem "Arko"

End Sub

Pada saat Form2 di-load ke dalam memori komputer, object Combo1 diisi dengan beberapa nama.

Private Sub Command1_Click()

List1.AddItem Combo1.Text

End Sub

Ketika seorang user meng-klik tombol Add (object Command1) maka isi object List1 ditambah sesuai

dengan isi object Combo1 yang sudah dipilih.

Private Sub Command2_Click()

List1.RemoveItem List1.ListIndex

End Sub

Ketika seorang user meng-klik tombol Delete (object Command2) maka isi object List1 yang dipilih

akan dihapus. Catatan : bila belum ada isi yang dipilih akan terjadi error.

Private Sub Command3_Click()

List1.Clear

End Sub

Ketika seorang user meng-klik tombol Clear (object Command3) maka semua isi object List1 akan

dihapus.