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

Bu izlenecek yolda, daha sonra nesneleri oluşturmak için kullanabileceğiniz sınıfların nasıl tanımlanacağı gösterilmektedir. Ayrıca, yeni sınıfa nasıl özellik ve Yöntem ekleneceğini ve bir nesnenin nasıl başlatılacağını gösterir.

Bir sınıf tanımlamak için

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

2. yeni projeyi göstermek için Visual Basic proje şablonları listesinden Windows uygulama ' yı seçin.

3. Project 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ünür.

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

5. Yeni sınıfı adlandırın UserNameInfo.vb ve ardından Ekle ' ye tıklayarak yeni sınıf için kodu görüntüleyin.

   Public Class UserNameInfo
   End Class
   

   Not

   anahtar sözcüğünü ve ardından yeni sınıfın adını yazarak başlangıç formunuza bir sınıf eklemek için Visual Basic kod düzenleyicisini kullanabilirsiniz Class . Kod Düzenleyicisi sizin için karşılık gelen bir End Class bildirim sağlar.

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

   Private userNameValue As String
   

   Alanı olarak bildirmek, Private yalnızca sınıfında kullanılabileceği anlamına gelir. Daha fazla erişim sağlayan gibi erişim değiştiricilerini kullanarak alanları bir sınıfın dışından kullanılabilir hale getirebilirsiniz Public . Daha fazla bilgi için bkz. Visual Basic 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ı bir yordam ekleyerek yeni sınıf için parametreli bir Oluşturucu tanımlayın Sub New :

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

   Sub NewBu sınıfa dayalı bir nesne oluşturulduğunda Oluşturucu otomatik olarak çağrılır. Bu Oluşturucu, Kullanıcı adını tutan alanın değerini ayarlar.

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

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

2. Ana forma bir düğme ekleyin ve olay işleyicisi için kodu göstermek üzere çift tıklayın Button1_Click . 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. Bu, UserName yordamın nesne yöntemi olarak adlandırıldığından, orijinalin "Moore, BODIRE" olduğunu belirten bir ileti görüntüler Capitalize .

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

Ayrıca bkz.

• Nesne odaklı programlama (Visual Basic)
• Nesneler ve sınıflar