Bagikan melalui

Panduan: Menentukan Kelas (Visual Basic)

Panduan ini menunjukkan cara menentukan kelas, yang kemudian dapat Anda gunakan untuk membuat objek. Ini juga menunjukkan kepada Anda cara menambahkan properti dan metode ke kelas baru, dan menunjukkan cara menginisialisasi objek.

Nota

Komputer Anda mungkin menampilkan nama atau lokasi yang berbeda untuk beberapa elemen antarmuka pengguna Visual Studio dalam instruksi berikut. Edisi Visual Studio yang Anda miliki dan pengaturan yang Anda gunakan menentukan elemen-elemen ini. Untuk informasi lebih lanjut, lihat Mempersonalisasi IDE.

Untuk menentukan kelas

  1. Buat proyek dengan mengklik Proyek Baru pada menu File . Kotak dialog Proyek Baru muncul.

  2. Pilih Aplikasi Windows dari daftar templat proyek Visual Basic untuk menampilkan proyek baru.

  3. Tambahkan kelas baru ke proyek dengan mengklik Tambahkan Kelas pada menu Proyek . Kotak dialog Tambahkan Item Baru akan muncul.

  4. Pilih templat Kelas .

  5. Beri nama kelas UserNameInfo.vbbaru , lalu klik Tambahkan untuk menampilkan kode untuk kelas baru.

    Public Class UserNameInfo
End Class

    Nota

    Anda dapat menggunakan Visual Basic Code Editor untuk menambahkan kelas ke formulir startup Anda dengan mengetik Class kata kunci diikuti dengan nama kelas baru. Editor Kode menyediakan pernyataan End Class yang sesuai untuk Anda.

  6. Tentukan bidang privat untuk kelas dengan menambahkan kode berikut antara Class pernyataan dan End Class :

    Private userNameValue As String

    Mendeklarasikan bidang sebagai Private berarti hanya dapat digunakan dalam kelas. Anda dapat membuat bidang tersedia dari luar kelas dengan menggunakan pengubah akses seperti Public yang menyediakan lebih banyak akses. Untuk informasi selengkapnya, lihat Tingkat akses di Visual Basic.

  7. Tentukan properti untuk kelas dengan menambahkan kode berikut:

    Public Property UserName() As String
    Get
        ' Gets the property value.
        Return userNameValue
    End Get
    Set(ByVal Value As String)
        ' Sets the property value.
        userNameValue = Value
    End Set
End Property

  8. Tentukan metode untuk kelas dengan menambahkan kode berikut:

    Public Sub Capitalize()
    ' Capitalize the value of the property.
    userNameValue = UCase(userNameValue)
End Sub

  9. Tentukan konstruktor berparameter untuk kelas baru dengan menambahkan prosedur bernama Sub New:

    Public Sub New(ByVal UserName As String)
    ' Set the property value.
    Me.UserName = UserName
End Sub

    Sub New Konstruktor dipanggil secara otomatis ketika objek berdasarkan kelas ini dibuat. Konstruktor ini menetapkan nilai bidang yang menyimpan nama pengguna.

Untuk membuat tombol guna mengetes kelas

  1. Ubah formulir startup ke mode desain dengan mengklik kanan namanya di Penjelajah Solusi lalu mengklik Tampilkan Perancang. Secara default, formulir startup untuk proyek Aplikasi Windows diberi nama Form1.vb. Formulir utama kemudian akan muncul.

  2. Tambahkan tombol ke formulir utama dan klik dua kali untuk menampilkan kode untuk penangan peristiwa Button1_Click. Tambahkan kode berikut untuk memanggil prosedur pengujian:

    ' Create an instance of the class.
Dim user As New UserNameInfo("Moore, Bobby")
' Capitalize the value of the property.
user.Capitalize()
' Display the value of the property.
MsgBox("The original UserName is: " & user.UserName)
' Change the value of the property.
user.UserName = "Worden, Joe"
' Redisplay the value of the property.
MsgBox("The new UserName is: " & user.UserName)

Untuk menjalankan aplikasi Anda

  1. Jalankan aplikasi Anda dengan menekan F5. Klik tombol pada formulir untuk memanggil prosedur pengujian. Ini menampilkan pesan yang menyatakan bahwa yang asli UserName adalah "MOORE, BOBBY", karena prosedur memanggil metode Capitalize dari objek.

  2. Klik OK untuk menutup kotak pesan. Prosedur mengubah Button1 Click nilai UserName properti dan menampilkan pesan yang menyatakan bahwa nilai UserName baru adalah "Worden, Joe".

Lihat juga