Bagikan melalui

Cara: Membuat Properti (Visual Basic)

Anda menyertakan definisi properti antara Property pernyataan dan End Property pernyataan. Dalam definisi ini Anda menentukan Get prosedur, Set prosedur, atau keduanya. Semua kode properti terletak di dalam prosedur ini.

Prosedur Get mengambil nilai properti, dan prosedur Set menyimpan nilai. Jika Anda ingin properti memiliki akses baca/tulis, Anda harus menentukan kedua prosedur. Untuk properti baca-saja, Anda menentukan hanya Get, dan untuk properti tulis-saja, Anda menentukan hanya Set.

Untuk membuat properti

  1. Di luar properti atau prosedur apa pun, gunakan Pernyataan Properti, kemudian ikuti dengan pernyataan End Property.

  2. Jika properti mengambil parameter, ikuti Property kata kunci dengan nama prosedur, kemudian daftar parameter dalam tanda kurung.

  3. Ikuti tanda kurung dengan As klausul untuk menentukan jenis data nilai properti. Anda harus menentukan jenis data bahkan untuk properti yang hanya bisa menulis.

  4. Tambahkan prosedur Get dan Set sesuai kebutuhan. Lihat petunjuk berikut.

Untuk membuat prosedur Get yang mengambil nilai properti

  1. Di antara pernyataan Property dan End Property, tulis Pernyataan Get, diikuti dengan pernyataan End Get. Anda tidak perlu menentukan parameter apa pun untuk prosedur tersebut Get .

  2. Tempatkan kode program untuk mendapatkan nilai properti antara pernyataan Get dan End Get. Kode ini dapat mencakup perhitungan lain dan manipulasi data selain menghasilkan dan mengembalikan nilai properti.

  3. Return Gunakan pernyataan untuk mengembalikan nilai properti ke kode panggilan.

Anda harus menulis prosedur Get untuk properti yang dapat dibaca dan ditulis serta untuk properti yang hanya-baca. Anda tidak boleh mendefinisikan prosedur Get untuk properti yang hanya dapat ditulis.

Untuk membuat prosedur Set yang menulis nilai properti

  1. Di antara Property dan End Property pernyataan, tulis Pernyataan Set, diikuti dengan pernyataan End Set.

  2. Dalam pernyataan Set, secara opsional ikuti kata kunci Set dengan daftar parameter dalam tanda kurung. Jika daftar parameter tidak ada atau kosong, parameter implisit bernama Value ditentukan, yang jenisnya adalah jenis properti itu sendiri. Jika daftar parameter tidak kosong, Anda dapat menggunakan nama yang berbeda jika sesuai, tetapi parameter harus memiliki jenis data yang sama dengan properti itu sendiri.

  3. Tempatkan pernyataan kode untuk menyimpan nilai dalam properti antara Set pernyataan dan End Set . Kode ini dapat mencakup perhitungan lain dan manipulasi data selain memvalidasi dan menyimpan nilai properti.

  4. Gunakan parameter nilai untuk menerima nilai yang disediakan oleh kode panggilan. Anda dapat menyimpan nilai ini secara langsung dalam pernyataan penugasan, atau menggunakannya dalam ekspresi untuk menghitung nilai internal yang akan disimpan.

Anda harus menulis Set prosedur untuk properti baca-tulis dan untuk properti tulis-saja. Anda tidak boleh menentukan Set prosedur untuk properti baca saja.

Contoh

Contoh berikut membuat properti baca/tulis yang menyimpan nama lengkap sebagai dua nama konstituen, nama depan dan nama belakang. Ketika kode panggilan berbunyi fullName, Get prosedur menggabungkan dua nama konstituen dan mengembalikan nama lengkap. Ketika kode panggilan menetapkan nama lengkap baru, Set prosedur mencoba memecahnya menjadi dua nama konstituen. Jika tidak menemukan spasi, semuanya akan disimpan sebagai nama depan.

Dim firstName, lastName As String
Property fullName() As String
    Get
      If lastName = "" Then
          Return firstName
      Else
          Return firstName & " " & lastName
      End If

    End Get
    Set(ByVal Value As String)
        Dim space As Integer = Value.IndexOf(" ")
        If space < 0 Then
            firstName = Value
            lastName = ""
        Else
            firstName = Value.Substring(0, space)
            lastName = Value.Substring(space + 1)
        End If
    End Set
End Property

Contoh berikut menunjukkan contoh pemanggilan ke prosedur properti dari fullName. Panggilan pertama mengatur nilai properti dan panggilan kedua mengambil nilai tersebut.

fullName = "MyFirstName MyLastName"
MsgBox(fullName)

Lihat juga