Aracılığıyla paylaş

İzlenecek yol: Sınıfları Tanımlama (Visual Basic)

Bu kılavuzda, nesneleri oluşturmak için kullanabileceğiniz sınıfların nasıl tanımlanacağı gösterilmektedir. Ayrıca yeni sınıfa özellik ve yöntem eklemeyi ve bir nesneyi başlatmayı gösterir.

Uyarı

Bilgisayarınız, aşağıdaki yönergelerde bazı Visual Studio kullanıcı arabirimi öğeleri için farklı adlar veya konumlar gösterebilir. Sahip olduğunuz Visual Studio sürümü ve kullandığınız ayarlar bu öğeleri belirler. Daha fazla bilgi için bkz. IDE'yi Kişiselleştirme.

Sınıf tanımlamak için

  1. Dosya menüsünde Yeni Proje'ye tıklayarak proje oluşturun. Yeni Proje iletişim kutusu görünür.

  2. Yeni projeyi görüntülemek için Visual Basic proje şablonları listesinden Windows Uygulaması'nı seçin.

  3. Proje menüsünde Sınıf Ekle'ye tıklayarak projeye yeni bir sınıf ekleyin. Yeni Öğe Ekle iletişim kutusu görüntülenir.

  4. Sınıf şablonunu seçin.

  5. Yeni sınıfı UserNameInfo.vbadlandırın ve ardından Ekle'ye tıklayarak yeni sınıfın kodunu görüntüleyin.

    Public Class UserNameInfo
End Class

    Uyarı

    Visual Basic Code Düzenleyicisi'ni kullanarak başlangıç formunuza bir sınıf eklemek için anahtar sözcüğünü Class ve ardından yeni sınıfın adını yazabilirsiniz. Kod Düzenleyicisi size karşılık gelen End Class bir deyim sağlar.

  6. Class ve End Class deyimleri arasına aşağıdaki kodu ekleyerek sınıf için özel bir alan tanımlayın.

    Private userNameValue As String

    alanı olarak Private bildirmek, yalnızca sınıfı içinde kullanılabildiği anlamına gelir. Daha fazla erişim sağlayan gibi Public erişim değiştiricileri kullanarak alanları sınıfın dışından kullanılabilir hale getirebilirsiniz. Daha fazla bilgi için bkz . Visual Basic'te erişim düzeyleri.

  7. Aşağıdaki kodu ekleyerek sınıfı için bir özellik tanımlayın:

    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. Aşağıdaki kodu ekleyerek sınıfı için bir yöntem tanımlayın:

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

  9. adlı Sub Newbir yordam ekleyerek yeni sınıf için parametreli bir oluşturucu tanımlayın:

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

    Oluşturucu Sub New , bu sınıfı temel alan bir nesne oluşturulduğunda otomatik olarak çağrılır. Bu oluşturucu, kullanıcı adını tutan alanın değerini ayarlar.

Sınıfı test etmek için bir düğme oluşturmak için

  1. Çözüm Gezgini'nde adına sağ tıklayıp Görünüm Tasarımcısı'na tıklayarak başlangıç formunu tasarım moduna değiştirin. Varsayılan olarak, Windows Uygulaması projelerinin başlangıç formu Form1.vb olarak adlandırılır. Ardından ana form görüntülenir.

  2. Ana forma bir düğme ekleyin ve olay işleyicisinin kodunu görüntülemek için Button1_Click çift tıklayın. Test yordamını çağırmak için aşağıdaki kodu ekleyin:

    ' 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)

Uygulamanızı çalıştırmak için

  1. F5 tuşuna basarak uygulamanızı çalıştırın. Test yordamını çağırmak için formdaki düğmeye tıklayın. Prosedür, nesnenin UserName yöntemini çağırdığından, özgün Capitalize değerin "MOORE, BOBBY" olduğunu belirten bir mesaj görüntüler.

  2. İleti kutusunu kapatmak için Tamam'a tıklayın. yordamı özelliğin Button1 ClickUserName değerini değiştirir ve yeni değerinin UserName "Worden, Joe" olduğunu belirten bir ileti görüntüler.

Ayrıca bakınız

  • Last updated on