belajar properties

Anda dapat menambahkan Properties Anda sendiri untuk Class Anda. Properti A, ingat, adalah sesuatu yang perubahan atau set nilai. Contohnya adalah, pengaturan Teks dalam kotak teks, mengubah warna latar belakang Formulir, dan pengaturan Tombol untuk menjadi Diaktifkan.
Anda dapat Dapatkan nilai dari Properti atau Set mereka.Jadi untuk sebuah Textbox, Anda dapat Mengatur teks yang muncul dalam kotak teks, atau Anda bisa Dapatkan apa teks dalam textbox.Anda menggunakan kata-kata yang sama, Get dan Set, ketika Anda membuat Anda Properties sendiri. Sebuah contoh mungkin jelas semuanya.Sebelum Anda melakukan hal berikut ini, download gambar yang Anda perlukan untuk tutorial ini:

Download gambar untuk tutorial ini (WinZip file)
Setelah Anda memiliki foto pada hard drive anda, lakukan hal berikut:
• Tambahkan kontrol Picture Box untuk Formulir Anda
. Mengatur Properti SizeMode dari kotak Gambar untuk StretchImage
• Klik pada Gambar Properti, dan menambahkan gambar planet.jpg yang Anda download di atas
• Tambahkan dua boks teks pada form. Mengubah Nama pertama untuk txtHeight, dan yang kedua untuk txtWidth. both textboxes Masukkan 300 sebagai teks untuk kedua boks teks
• Tambahkan dua label pada form. Mengatur Teks orang pertama yang Tinggi, dan yang kedua untuk Lebar. Memindahkan mereka di sebelah boks teks
• Tambahkan tombol baru untuk membentuk Anda. Atur properti Text untuk "Perubahan Tinggi dan Lebar"
Apa yang akan kita lakukan adalah memberikan obyek kita kemampuan pengaturan properti Tinggi dan Lebar.values from the textboxes. Ketika objek telah melakukan pekerjaannya, tinggi dan lebar dari kotak gambar akan berubah dengan nilai-nilai dari boks teks. Kita berangkat kemudian.
VB perlu tahu bahwa Anda ingin mengatur sebuah Properti untuk Kelas Anda.Cara Anda melakukannya adalah tipe "Umum Properti ... Akhir Properti".
Ketika Anda menekan tombol kembali setelah mengetik baris tersebut, VB selesai dari sisa rintisan kode untuk Anda:
Public Property ChangeHeight() As Integer Umum Properti ChangeHeight () As Integer
Get Mendapatkan
End Get Akhir Dapatkan
Set(ByVal Value As Integer) Set (ByVal Value As Integer)
End Set Akhir Set
End Property Akhir Properti
Sebelum kode tersebut dijelaskan, tambahkan variabel baru tepat di bagian atas kode Anda, tepat di bawah "changeHeightWidth Kelas Publik".Tambahkan ini:
Dengan Dapatkan dan bagian Set, Properti tulisan rintisan adalah:
Public Property PropertyName( ) As VaraibleType Umum Properti PropertyName () Sebagai VaraibleType
End Property Akhir Properti
Alasan Get dan Set yang ada sehingga Anda dapat Mengatur nilai untuk properti Anda, dan mendapatkan nilai keluar.
Untuk Mengatur nilai, kode dalam Properti ini:
Set(ByVal Value As Integer) Set (ByVal Value As Integer)
End Set Akhir Set