Acara kuliah dasar VisualBasicCOM

Penulis：Eve Cole Waktu Pembaruan：2025-03-09 05:16:01

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

-sejajarkan="kanan">->->->

Untuk mendefinisikan suatu kejadian, tambahkan kode yang mirip dengan berikut ini ke bagian deklarasi umum suatu kelas:

->PublicEventMyEventName(PossArgumentsAsString,DllAsVariant)->

Kemudian panggil metode RaiseEvent dalam kode untuk mengaktifkan suatu acara. Sama seperti kode berikut:

->RaiseEventMyEventName("PossArgs", "Dll")->

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:

->PublicEventAwake()->

Tambahkan subproses Sleep di kelas CDog:

->PublikSubTidur()

DimiAsLong

Fori=1To1000000

DoEvents:DoEvents:DoEvents

KELUAR

RaiseEventAwake

Sub Akhir

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:

->DimWithEventsMyDogAsCDog->

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:

->SetMyDog=CDog Baru

Anjingku.Nama="Billy"

Anjingku.Kulit

Anjingku.Tidur->

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:

-> PrivateSubMyDog_Awake()

MsgBox"Anjingmu sudah bangun!"

Sub Akhir->

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!