Event Buatan Sendiri dengan Visual Basic

Anda telah  membuat activex OCX pada pembahasan terdahulu. Sekarang kita akan membuat event buatan kita sendiri. Anda tentu telah mengerti apa yang dimaksud dengan event. Jika anda belum mengerti tentang event anda bisa baca E-Book saya yang berjudul  "Trik Dasar Belajar Visual Basic 6.0". Di ebook tersebut dijelaskan pengertian event. Pekerjaan membuat program pada umumnya memakai  event-event bawaan visual basic.

Mengapa membuat event sendiri?AnctiveX OCX adalah user interface yang tidak dapat berdiri sendiri. Tetapi harus ada tempat penampungannya (container) misalnya form windows atau web.
Dalam pembuatan program dasar tentunya anda sering melihat event command1_click misalnya. Event itu adalah event bawaan visual basic. Jika anda membuat project standard dengan satu form.
Lihat gambar di bawah ini:

 

Lalu anda meletakkan commandbutton. Kemudian anda ketikkan kode:
Private Sub Command1_Click()

  MsgBox "Halo command1 di click dari event bawaan vb command1_click"

End Sub

Jalankan program lalu klik command1. Hasil nya akan terlihat seperti di bawah ini:

Anda sudah melihat semuanya berjalan seperti biasa tidak ada masalah. Karena project yang kita buat adalah project standard yang meletakkan objek command1 ke form windows.

Bagaimana jika command1 tadi ada di dalam control OCX sedangkan OCX berada di dalam windows form ataupun di dalam Browser?

Ok. Kita coba bagaimana command1 yang ada di dalam usercontrol (activeX OCX) dapat menjalankan event Form_Click yang ada pada form1.

Caranya buat project standard baru lalu tambahkan control ActiveX lihat di atas sudah saya jelaskan caranya. Jika anda melakukannya dengan benar seharusnya project anda seperti gambar di bawah ini:

 

Berikut adalah kode pada user control1
Public Event onFormClick()

Private Sub Command1_Click()

   RaiseEvent onFormClick  

End Sub

Berikut ini adalah kode yang terdapat pada form1:
Private Sub UserControl11_onFormClick()

    Form_Click

End Sub

Private Sub Form_Click()

   MsgBox "bisa dipicu oleh UserControl1_onFormClick..."

End Sub

Jika anda jalankan project nya dengan menekan tombol Run (F5) lalu anda meng klik tombol command1 maka hasilnya seharusnya seperti gambar dibawah:

 

download project event buatn sendiri dengan visual basic 6.0 di sini 

Posted in: Visual Basic