Buat objek
Cara termudah untuk membuat objek adalah dengan mengklik dua kali kontrol di Toolbox. Namun, untuk memanfaatkan sepenuhnya semua objek yang tersedia dalam Visual Basic dan dari aplikasi lain, Anda dapat menggunakan kemampuan programabilitas Visual Basic untuk membuat objek pada saat dijalankan.
1. Buat referensi objek dengan variabel objek
2. Gunakan modul kelas untuk membuat objek Anda sendiri "dari awal"
3. Buat koleksi Anda sendiri menggunakan objek koleksi
Detail tentang cara mengakses objek disediakan di bab lain. Misalnya, fungsi CreateObject dan GetObject dibahas di Bab 10, "Pemrograman dengan Komponen".
Gunakan variabel objek
Selain menyimpan nilai, variabel dapat mereferensikan objek. Sama seperti memberikan nilai pada variabel, Anda dapat menetapkan objek ke variabel dengan alasan yang sama:
1. Nama variabel cenderung lebih pendek dan lebih mudah diingat daripada nilai yang dikandungnya (atau, dalam hal ini, objek yang dirujuknya).
2. Saat menjalankan kode, variabel harus diubah untuk mereferensikan objek lain.
3. Mengacu pada variabel yang berisi objek lebih efisien daripada mereferensikan objek itu sendiri berulang kali.
Penggunaan variabel objek sama dengan penggunaan variabel biasa, hanya saja ada langkah tambahan untuk menugaskan objek ke variabel:
4. Deklarasikan variabel terlebih dahulu:
DimvariableAsclass
5. Kemudian tetapkan objek tersebut ke variabel:
Setvariabel=objek
Deklarasikan variabel objek
Cara mendeklarasikan variabel objek sama dengan mendeklarasikan variabel lainnya, yaitu menggunakan Dim, ReDim, Static, PRIvate dan Public. Satu-satunya perbedaan adalah kata kunci baru opsional dan parameter Kelas, yang akan diperkenalkan nanti di bab ini. Sintaksnya adalah:
Variabel {Dim|ReDim|Statis|Private|Publik}Sebagai kelas[Baru].
Misalnya, Anda bisa mendeklarasikan variabel objek yang mereferensikan formulir di aplikasi Anda yang disebut frmMain:
DimFormVarAsNewfrmMain 'Deklarasikan tipe sebagai frmMain
' variabel objek.
Anda juga dapat mendeklarasikan variabel objek yang mereferensikan bentuk apa pun dalam aplikasi Anda:
DimanyFormAsForm 'Variabel bentuk umum.
Demikian pula, Anda bisa mendeklarasikan variabel objek yang bisa mereferensikan kotak teks apa pun di aplikasi Anda:
DimanyTextAsTextBox 'dapat mereferensikan kotak teks apa pun
' (tetapi hanya kotak teks).
Anda juga bisa mendeklarasikan variabel objek, yang bisa mereferensikan semua jenis kontrol:
DimanyControlAsControl 'Variabel kontrol umum.
Perhatikan bahwa Anda bisa mendeklarasikan variabel formulir yang mereferensikan formulir tertentu dalam aplikasi Anda, namun Anda tidak bisa mendeklarasikan variabel kontrol yang mereferensikan kontrol tertentu. Anda dapat mendeklarasikan variabel kontrol yang mereferensikan tipe kontrol tertentu (seperti TextBox atau ListBox), namun bukan kontrol spesifik dari tipe tersebut (seperti txtEntry atau List1). Namun, kontrol khusus dapat ditetapkan ke variabel jenis tersebut. Misalnya, formulir dengan kotak daftar lstSample dapat diberi kode seperti ini:
DimobjDemoAsListBox
SetobjDemo=Sampel pertama
Variabel objek tugas
Gunakan pernyataan Set untuk menetapkan objek ke variabel objek:
Setvariabel=objek
Kapan pun Anda ingin variabel objek merujuk ke suatu objek, Anda dapat menggunakan pernyataan Set.
Terkadang Anda dapat menggunakan variabel objek, terutama variabel kontrol, untuk mempersingkat kode yang Anda ketik secara langsung. Misalnya, kode aslinya terlihat seperti ini:
IffrmAccountDisplay!txtAccountBalance.Text<0Lalu
frmAccountDisplay!txtAccountBalance.BackColor=0
frmAccountDisplay!txtAccountBalance.ForeColor=255
AkhirJika
Jika Anda menggunakan variabel kontrol, program Anda dapat dipersingkat secara signifikan:
DimBalAsTextBox
SetBal=frmAccountDisplay!txtAccountBalance
JikaBal.Teks<0Lalu
Bal.BackColor=0
Bal.Warna Depan=255
AkhirJika
Tipe objek tertentu vs. tipe objek umum
Variabel objek tertentu harus merujuk pada tipe objek atau kelas tertentu. Variabel formulir tertentu hanya dapat mereferensikan satu formulir dalam aplikasi (walaupun dapat direferensikan dalam salah satu dari banyak contoh formulir tersebut). Demikian pula, variabel kontrol tertentu hanya bisa merujuk pada tipe kontrol tertentu dalam aplikasi, seperti TextBox atau ListBox. Silakan lihat contohnya, buka proyek baru dan tempatkan kotak teks di formulir. Tambahkan kode berikut ke formulir:
PrivateSubForm_Klik()
DimanyTextAsTextBox
SetanyText=Teks1
anyText.Text=Halo
Sub Akhir
Jalankan aplikasi dan klik formulir. Properti Teks kotak teks akan berubah menjadi Halo.
Variabel objek umum dapat mereferensikan salah satu dari beberapa tipe objek tertentu. Misalnya, variabel formulir umum dapat mereferensikan formulir apa pun dalam aplikasi; variabel kontrol umum dapat mereferensikan kontrol apa pun pada formulir apa pun dalam aplikasi. Silakan lihat contohnya, buka proyek baru dan tempatkan beberapa kontrol Frame, Label dan CommandButton dalam urutan apa pun pada formulir. Tambahkan kode berikut ke formulir:
PrivateSubForm_Klik()
DimanyControlAsControl
SetanyControl=Bentuk1.Kontrol(3)
anyControl.Caption=Halo
Sub Akhir
Jalankan program dan klik pada formulir. Judul kontrol ketiga yang baru saja Anda tempatkan pada formulir akan berubah menjadi Halo.
Ada empat objek umum dalam Visual Basic:
Variabel objek umum berguna ketika tidak diketahui pada saat run time apakah variabel tersebut mengacu pada objek dengan tipe tertentu. Misalnya, jika Anda ingin menulis kode yang berfungsi pada formulir apa pun di aplikasi Anda, Anda harus menggunakan variabel formulir umum.
Perhatikan bahwa karena hanya ada satu formulir MDI dalam aplikasi, maka tidak perlu menggunakan tipe MDIForm umum. Kapan pun Anda perlu mendeklarasikan variabel formulir yang mereferensikan formulir MDI, Anda bisa menggunakan tipe MDIForm tertentu (baik MDIForm1, atau nama apa pun yang Anda tentukan pada properti Nama formulir MDI) alih-alih tipe MDIForm umum. Faktanya, Anda harus selalu menggunakan tipe MDIFform tertentu karena Visual Basic dapat menentukan properti dan metode yang mereferensikan tipe formulir tertentu sebelum menjalankan aplikasi.
Tipe MDIForm umum disediakan hanya untuk kelengkapan; akan berguna dalam versi Visual Basic yang akan datang untuk memiliki beberapa formulir MDI dalam satu aplikasi.
bentuk sebagai objek
Formulir paling sering digunakan untuk membangun antarmuka aplikasi, namun formulir juga sering kali merupakan objek yang dipanggil oleh modul lain dalam aplikasi. Formulir berkaitan erat dengan modul kelas. Perbedaan utama antara keduanya adalah formulir merupakan objek visual, sedangkan modul kelas tidak memiliki antarmuka visual.
Tambahkan metode dan properti khusus
Metode dan properti khusus dapat ditambahkan ke formulir dan diakses dari modul lain dalam aplikasi. Untuk membuat metode baru pada formulir, tambahkan prosedur yang dideklarasikan dengan Publik.
'Metode untuk menyesuaikan Form1.
PublicSubLateJobsCount()
.
.'<pernyataan>
.
Sub Akhir
Prosedur LateJobsCount dapat dipanggil dari modul lain menggunakan pernyataan berikut:
Formulir1.LateJobsCount
Membuat properti baru untuk formulir semudah mendeklarasikan variabel publik di modul formulir:
PublicIDNumberAsInteger
Dua pernyataan berikut dapat digunakan untuk mengatur dan mengembalikan nilai IDNumber Form1 dari modul lain:
Formulir1.IDNumber=3
Text1.Text=Formulir1.IDNumber
Anda juga bisa menggunakan prosedur Properti untuk menambahkan properti kustom ke formulir.
Detail Bab 9, "Pemrograman dengan Objek," memberikan materi rinci tentang prosedur Properti.
Perhatikan bahwa Anda bisa memanggil variabel formulir atau metode kustom tanpa memuat formulir, dan Anda juga bisa mengatur properti kustom formulir. Hasilnya, Anda bisa menjalankan kode tentang formulir tanpa memuatnya ke memori. Demikian pula, mereferensikan kontrol tanpa mereferensikan properti atau metodenya tidak akan memuat formulir.
Gunakan kata kunci Baru
Gunakan kata kunci Baru untuk membuat objek baru, yang diperlakukan sebagai objek yang ditentukan oleh kelasnya. Baru dapat digunakan untuk membuat instance koleksi, formulir, dan kelas yang ditentukan dalam modul kelas.
Gunakan kata kunci Baru pada formulir
Formulir yang dibuat pada waktu desain adalah kelas. Contoh baru dari kelas ini dapat dibuat menggunakan kata kunci Baru. Untuk melihat proses ini beraksi, gambarkan tombol perintah dan beberapa kontrol lainnya pada formulir. Di jendela Properties, atur properti Nama formulir ke Sample. Tambahkan kode berikut dalam prosedur acara Klik tombol perintah:
DimxAsNewSample
x.Tunjukkan
Jalankan aplikasi dan klik tombol perintah beberapa kali. Pindahkan formulir paling depan ke samping. Karena formulirnya adalah kelas dengan antarmuka visual, salinan tambahan akan terlihat. Setiap formulir memiliki kontrol yang sama di lokasi yang sama tempat formulir dirancang.
Perhatikan bahwa untuk membuat variabel formulir dan instance formulir yang dimuat selalu ada, gunakan variabel Statis atau Publik, bukan variabel lokal.
Anda juga dapat menggunakan kata kunci Baru dengan pernyataan Set. Silakan coba kode dalam prosedur acara Klik pada tombol perintah:
DimfAsForm1
Setf=Bentuk Baru1
f.Caption=halo
f.Tunjukkan
Menggunakan kata kunci Baru dengan pernyataan Set akan mempercepat eksekusi, jadi metode ini direkomendasikan.
Gunakan kata kunci Baru dengan objek lain
Anda dapat menggunakan kata kunci Baru untuk membuat koleksi dan objek dari kelas yang ditentukan dalam modul kelas. Gunakan contoh berikut untuk mengilustrasikan proses kerja ini.
Contoh ini menggambarkan bagaimana kata kunci New menciptakan sebuah instance dari sebuah kelas. Buka proyek baru dan gambar kontrol CommandButton di Form1. Pilih perintah Tambahkan Modul Kelas dari menu Proyek untuk menambahkan modul kelas ke proyek. Setel properti Nama modul kelas ke ShowMe.
Kode berikut di Form1 membuat instance baru dari kelas ShowMe dan memanggil prosedur yang terdapat dalam modul kelas.
PublicclsNewAsShowMe
PrivateSubCommand1_Klik()
SetclsNew=NewShowMe
clsNew.ShowFrm
Sub Akhir
Prosedur ShowFrm di modul kelas membuat instance baru dari kelas Form1, menampilkan formulir, dan kemudian meminimalkannya.
SubTampilkanFrm()
DimfrmNewAsForm1
SetfrmNew=Bentuk Baru1
dariBaru.Tunjukkan
frmBaru.WindowState=1
Sub Akhir
Untuk menerapkan contoh ini, jalankan aplikasi dan klik tombol perintah beberapa kali. Anda akan melihat ikon formulir yang diperkecil muncul di desktop saat setiap instance baru dari kelas ShowMe dibuat.
Untuk informasi lebih lanjut tentang penggunaan Baru untuk membuat objek, lihat Bab 10, "Pemrograman dengan Komponen."
Pembatasan kata kunci baru
Tabel berikut menjelaskan apa yang tidak dapat Anda lakukan dengan kata kunci Baru.
Lepaskan referensi ke objek tersebut
Setiap objek menggunakan memori dan sumber daya sistem. Merupakan praktik pemrograman yang baik untuk segera melepaskan sumber daya ini ketika objek tidak lagi digunakan.
Gunakan Unload untuk membongkar formulir atau kontrol dari memori.
Gunakan Nothing untuk melepaskan sumber daya yang ditempati oleh variabel objek. Gunakan pernyataan Set untuk menetapkan Tidak Ada ke variabel objek.
Untuk informasi lebih lanjut, silakan lihat bagian "Bongkar Acara" dan "Tidak Ada" di "Manual Referensi Bahasa Visual Basic 6.0".
Melewati objek ke prosedur
Objek dapat diteruskan ke prosedur di Visual Basic. Dalam contoh kode berikut, diasumsikan bahwa form memiliki kontrol CommandButton:
PrivateSubCommand1_Klik()
'Panggil subrutin Demo dan berikan formulirnya.
Formulir Demo1
Sub Akhir
SubDemo Pribadi(xAsForm1)
'Pusatkan formulir di layar.
x.Kiri=(Layar.Lebar-x.Lebar)/2
Sub Akhir
Anda dapat meneruskan objek ke parameter dengan referensi dan kemudian mengatur parameter ke objek baru dalam prosedur. Untuk melihat cara kerjanya, buka proyek dan masukkan formulir kedua. Tempatkan kotak gambar di setiap formulir. Nilai pengaturan atribut yang perlu diubah adalah seperti pada tabel berikut:
Prosedur acara Form1_Click memanggil prosedur GetPicture di Form2 dan meneruskannya ke kotak gambar kosong.
PrivateSubForm_Klik()
Formulir2.DapatkanGambarGambar1
Sub Akhir
Proses GetPicture di Form2 menugaskan properti Picture dari kotak gambar di Form2 ke kotak gambar kosong di Form1.
ObjXPictureBox Pribadi
PublicSubGetPicture(xAsPictureBox)
'Tetapkan bingkai foto yang diteruskan ke variabel objek.
SetobjX=x
'Tetapkan nilai atribut Gambar ke kotak gambar Form1.
objX.Gambar=gambar2.Gambar
Sub Akhir
Untuk menerapkan contoh ini, jalankan program dan klik Form1. Anda akan melihat ikon di Form2 muncul di kotak gambar Form1.
Detil Topik di atas dimaksudkan untuk memberikan gambaran umum mengenai objek. Untuk lebih jelasnya, lihat Bab 9, "Pemrograman dengan Objek" dan Bab 10, "Pemrograman dengan Komponen".
->