MENGGUNAKAN EVENT METHOT PADA VB 6.0

Langkah – langkah Menggunakan Even dan Method

1.   Buat Proyek baru , kemudian di dalam form tambahkan control Gunakan komponen     ListBox, ComboBox dan CommandButton. Atur letak control pada form seperti gambar berikut :

   

2.  Ubah Properti  melalui property window dengan ketentuan sebagai berikut :

Nama Kontrol	Properti	Setting
Form1	Caption	MethotTest
List	-	-
Combobox	-	-
CommandBotton1	Caption	ADD
CommandBotton2	Caption	DELETE
CommandBotton3	Caption	CLEAR
CommandBotton4	Caption	TUTUp

3.  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

4.  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.

  

Penjelasan kode program :

Private Sub Form_Load()

Combo1.AddItem "MIcheal"

Combo1.AddItem "Flowrend"

Combo1.AddItem "Mirandha"

Combo1.AddItem "Yanne"

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.