İ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.
Not
Bilgisayarınız, aşağıdaki yönergelerde yer alan Visual Studio kullanıcı arabirimi öğelerinden bazıları 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
Dosya menüsünde Yeni Proje'ye tıklayarak proje oluşturun. Yeni Proje iletişim kutusu görünür.
Yeni projeyi görüntülemek için Visual Basic proje şablonları listesinden Windows Uygulaması'nı seçin.
Proje menüsünde Sınıf Ekle'ye tıklayarak projeye yeni bir sınıfekleyin. Yeni Öğe Ekle iletişim kutusu görünür.
Sınıf şablonunu seçin.
Yeni sınıfı
UserNameInfo.vb
adlandırın ve ardından Ekle'ye tıklayarak yeni sınıfın kodunu görüntüleyin.Public Class UserNameInfo End Class
Not
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 gelenEnd Class
bir deyim sağlar.ve
End Class
deyimleri arasınaClass
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 gibiPublic
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.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
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
adlı
Sub New
bir 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
Çözüm Gezgini'da adına sağ tıklayıp Tasarım Aracı Görüntüle'ye 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.
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
F5 tuşuna basarak uygulamanızı çalıştırın. Test yordamını çağırmak için formdaki düğmeye tıklayın. Yordam nesnenin yöntemini çağırdığından
Capitalize
özgünUserName
değerin "MOORE, BOBBY" olduğunu belirten bir ileti görüntüler.İleti kutusunu kapatmak için Tamam'a tıklayın. yordamı özelliğin
Button1 Click
UserName
değerini değiştirir ve yeni değerininUserName
"Worden, Joe" olduğunu belirten bir ileti görüntüler.