Pada bagian ini, mari kita praktikkan. Pertama buat objek COM, lalu gunakan, dan terakhir pikirkan perbaikan.
Pertama lakukan dua langkah berikut:
Jalankan Visual Basic; pilih jenis proyek "StandardEXE" karena objek COM didasarkan pada kelas, kelas sebenarnya adalah paket, seperti kode dalam modul. Jadi:
Pilih "PRoject"->"AddClassModule"; ketika kotak dialog terkait muncul, pilih "'ClassModule", lalu klik tombol "Open".
Dengan cara ini, formulir ditampilkan di desktop, serta Kelas1 yang terdapat di Project1.
Selanjutnya, ubah nama kelas dari kelas yang kosong:
Di jendela properti kelas, ubah properti Nama kelas menjadi CDog.
Perlu dicatat bahwa demi pembedaan, setiap nama objek memiliki awalan yang sesuai, misalnya objek TextBox diawali dengan "txt", Formulir diawali dengan "frm", dan kelas dapat diawali dengan huruf besar huruf "C" atau huruf kecil "cls" ", tetapi yang pertama digunakan di sini.
Mari tambahkan beberapa kode untuk mengujinya:
Di bagian deklarasi umum kelas CDog, tambahkan deklarasi variabel:
Lalu, buka Formulir1;
Tambahkan tombol perintah ke formulir;
Buka jendela kode dan tambahkan kode berikut ke tombol perintah:
Mari kita jelaskan arti dari kode di atas:
Baris pernyataan ini digunakan untuk memberitahukan Visual Basic agar menetapkan ruang bit untuk objek CDog. Namun, objek tersebut tidak dapat digunakan saat ini dan harus menunggu hingga pernyataan berikutnya:
Ini digunakan untuk membuat instance CDog. Artinya template MyDog yang sebelumnya kosong menjadi objek CDog yang sekarang dapat digunakan.
Baris pertama kode di atas digunakan untuk mengatur variabel Nama MyDog, dan baris pernyataan kedua digunakan untuk menampilkan isi variabel di kotak dialog pesan. akhirnya:
Digunakan untuk sekadar mengosongkan objek MyDog.
Tekan F5 untuk menjalankan dan menguji.
Bagaimana dengan itu? Namun pada saat yang sama, kita mungkin bertanya, apa perbedaan antara modul standar dan modul kelas? Mari kita lihat kembali contoh berikut:
Ubah kode tombol perintah menjadi:
Berbeda dengan kode sebelumnya, kode di sini sebenarnya mendefinisikan dua objek, MyDog dan MyDog2, yang merupakan dua objek independen berdasarkan CDog.
Tekan F5 untuk menjalankan dan menguji.
Apa hasilnya? Apakah dua kotak dialog muncul kali ini? Yang satu bertuliskan "BillyMoore" dan yang lainnya bertuliskan "SadieMoore".
Kecuali Nama, setiap objek yang didefinisikan di atas tidak memiliki atribut sebenarnya, sehingga proses berikut akan ditambahkan:
Buka Kelas1 sebelumnya;
Deklarasikan variabel publik berikut:
Buka Form1 sebelumnya;
Ubah kode tombol perintah menjadi:
Kodenya mirip dengan yang sebelumnya, hanya saja variabel Age digunakan di sini.
Tekan F5 untuk menjalankan dan menguji.
Akan muncul dua kotak dialog pesan yang menunjukkan isi nama dan umur.
Sekarang coba atur nilai umur salah satu objek menjadi 1.000 atau 30.000. Lihat bagaimana hasilnya? Program masih berjalan normal karena nilai maksimal variabel integer yang ditentukan bisa mencapai 32.767, namun sebenarnya anjing (Dog) belum berumur 30.000 tahun.
Jadi, bagaimana situasi ini harus ditangani?
->