Secara relatif, penggunaan event relatif sederhana. Sebelum menggunakannya, kita harus mendefinisikan event terlebih dahulu, yang artinya memberi tahu Visual Basic apa nama eventnya. Suatu peristiwa mungkin memiliki parameternya sendiri. Misalnya, tombol Command memiliki peristiwa Klik, yang tidak memiliki parameter. Selain itu, kotak edit teks memiliki acara KeyPRess, yang menangani konten terkait melalui nilai yang disebut "KeyAscii".
Untuk mendefinisikan suatu kejadian, tambahkan kode yang mirip dengan berikut ini ke bagian deklarasi umum suatu kelas:
Kemudian panggil metode RaiseEvent dalam kode untuk mengaktifkan suatu acara. Sama seperti kode berikut:
Untuk mengilustrasikan dengan lebih baik proses penambahan dan pengaktifan peristiwa di atas, mari kita ambil contoh. Pertama, tentukan suatu peristiwa:
Tambahkan kode berikut di bagian deklarasi umum kelas CDog:
Tambahkan subproses Sleep di kelas CDog:
Dalam kode, beberapa loop tidak berguna dilakukan sebanyak 1.000.000 kali di awal. Setelah komputer berhenti sejenak, sub-proses Tidur memicu peristiwa Awake.
Namun setelah peristiwa Awake terjadi, haruskah kita membiarkan program meresponsnya? Tentu saja menggunakan tombol perintah paling mudah, cukup pilih objek tombol perintah dalam daftar di jendela kode.
Namun dalam hal ini, kita pasti membutuhkan sebuah kontrol, dan semua yang kita lihat ada di formulir. Di sini kami murni menggunakan kode yang sesuai dan tidak terlihat.
Tentu saja, menggunakan kode untuk menerima peristiwa memerlukan operasi tambahan:
Di bagian Deklarasi Umum pada jendela kode formulir, tambahkan kode berikut:
Kode ini berbeda dari deklarasi MyDog sebelumnya. Kode ini memiliki kata kunci WithEvents untuk menginformasikan Visual Basic bahwa objek dapat menerima peristiwa apa pun, dan objek harus menerima peristiwa tersebut.
Hapus semua kode di tombol perintah; dan tambahkan kode berikut di Command1:
Kode ini hanya menyetel MyDog ke instance CDog yang baru, menyetel Nama, memanggil Bark, dan akhirnya menjalankan subproses Tidur.
Sekarang tambahkan beberapa kode untuk merespons acara Awake.
Di jendela Kode formulir, pilih "MyDog" dari daftar drop-down objek;
Pada event "Awake" di "MyDog", tambahkan kode berikut:
Oke, sekarang saatnya menguji.
Tekan F5 untuk menjalankan program;
Klik tombol Perintah;
Dengan cara ini, ketika anak anjing menggonggong, dia mulai tidur siang dan pada akhirnya dibangunkan oleh Anda. Sungguh menakjubkan!
->