İzlenecek yol: Arabirim Oluşturma ve Uygulama (Visual Basic)

Arabirimler özelliklerin, yöntemlerin ve olayların özelliklerini açıklar, ancak uygulama ayrıntılarını yapılara veya sınıflara bırakır.

Bu kılavuz, bir arabirimi tanımlamayı ve uygulamayı gösterir.

Uyarı

Bu izlenecek yol, kullanıcı arabirimi oluşturma hakkında bilgi sağlamaz.

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.

Arabirim tanımlamak için

Yeni bir Visual Basic Windows Uygulaması projesi açın.
Proje menüsünde Modül Ekle'ye tıklayarak projeye yeni bir modül ekleyin.
Yeni modülü Module1.vb adlandırın ve Ekle'ye tıklayın. Yeni modülün kodu görüntülenir.
TestInterface içinde Module1 adında bir arabirim tanımlayın, Interface TestInterface ve Module deyimleri arasına End Module yazıp ENTER tuşuna basın. Kod Düzenleyicisi, anahtar sözcüğe girinti ekler ve bir kod bloğu oluşturmak için bir Interface deyimi ekler.
Interface ve End Interface deyimleri arasına aşağıdaki kodu yerleştirerek arabirim için bir özellik, yöntem ve olay tanımlayın.
```
Property Prop1() As Integer
Sub Method1(ByVal X As Integer)
Event Event1()
```

Uygulama

Arabirim üyelerini bildirmek için kullanılan söz diziminin, sınıf üyelerini bildirmek için kullanılan söz diziminden farklı olduğunu fark edebilirsiniz. Bu fark, arabirimlerin uygulama kodu içerememesi gerçeğini yansıtır.

Arayüzü uygulamak için

ImplementationClass ifadesinden sonra ancak Module1 ifadesinden önce, End Interface'a aşağıdaki ifadeyi ekleyerek ve ENTER tuşuna basarak End Module adlı bir sınıf ekleyin:
```
Class ImplementationClass
```
Tümleşik geliştirme ortamında çalışıyorsanız, ENTER tuşuna bastığınızda Kod Düzenleyicisi eşleşen End Class bir deyim sağlar.
Sınıfın uyguladığı arabirimi adlandıran aşağıdaki Implements deyimini ImplementationClassöğesine ekleyin:
```
Implements TestInterface
```
Bir sınıfın veya yapının en üstündeki diğer öğelerden ayrı olarak listelendiğinde, Implements deyimi sınıfın veya yapının bir arabirim uyguladığını gösterir.

Tümleşik geliştirme ortamında çalışıyorsanız Kod Düzenleyicisi , ENTER tuşuna bastığınızda tarafından TestInterface gereken sınıf üyelerini uygular ve sonraki adımı atlayabilirsiniz.

Tümleşik geliştirme ortamında çalışmıyorsanız arabiriminin MyInterfacetüm üyelerini uygulamanız gerekir. Aşağıdaki kodu ImplementationClass ekleyerek Event1, Method1 ve Prop1 uygulayın:

Event Event1() Implements TestInterface.Event1

Public Sub Method1(ByVal X As Integer) Implements TestInterface.Method1
End Sub

Public Property Prop1() As Integer Implements TestInterface.Prop1
    Get
    End Get
    Set(ByVal value As Integer)
    End Set
End Property

deyimi, Implements uygulanan arabirimi ve arabirim üyesini adlandırıyor.

özelliğini depolayan sınıfa özel bir alan ekleyerek tanımını Prop1 tamamlayın:
```
' Holds the value of the property.
Private pval As Integer
```
Özellik get erişimcisinden pval değerini döndürün.
```
Return pval
```
pval değerini özellik kümesi erişimcisinde ayarlayın.
```
pval = value
```

Method1'nin tanımını tamamlamak için aşağıdaki kodu ekleyin.

MsgBox("The X parameter for Method1 is " & X)
RaiseEvent Event1()

Arayüzün uygulanmasını test etmek için

Çözüm Gezgini'nde projenizin başlangıç formuna sağ tıklayın ve Kodu Görüntüle'ye tıklayın. Düzenleyici başlangıç formunuzun sınıfını görüntüler. Varsayılan olarak, başlangıç formu olarak adlandırılır Form1.
Aşağıdaki testInstance alanını Form1 sınıfına ekleyin:
```
Dim WithEvents testInstance As TestInterface
```
testInstance'i WithEvents olarak bildirerek, Form1 sınıfı olaylarını işleyebilir.
tarafından Form1oluşturulan olayları işlemek için sınıfına testInstance aşağıdaki olay işleyicisini ekleyin:
```
Sub EventHandler() Handles testInstance.Event1
    MsgBox("The event handler caught the event.")
End Sub
```

Uygulama sınıfını test etmek için sınıfına Test adlı Form1 bir alt yordam ekleyin:

Sub Test()
    '  Create an instance of the class.
    Dim T As New ImplementationClass
    ' Assign the class instance to the interface.
    ' Calls to the interface members are 
    ' executed through the class instance.
    testInstance = T
    ' Set a property.
    testInstance.Prop1 = 9
    ' Read the property.
    MsgBox("Prop1 was set to " & testInstance.Prop1)
    '  Test the method and raise an event.
    testInstance.Method1(5)
End Sub

Test yordamı, uygulayan MyInterfacesınıfının bir örneğini oluşturur, bu örneği testInstance alana atar, bir özellik ayarlar ve arabirimi aracılığıyla bir yöntem çalıştırır.

Giriş formunuzdaki Test yordamından Form1 Load yordamını çağırmak için kod ekleyin:

Private Sub Form1_Load(ByVal sender As System.Object,
                       ByVal e As System.EventArgs) Handles MyBase.Load
    Test() ' Test the class.
End Sub

F5 tuşuna basarak Test prosedürü çalıştırın. "Prop1 9 olarak ayarlandı" iletisi görüntülenir. Tamam'a tıkladıktan sonra " Method1 için X parametresi 5" iletisi görüntülenir. Tamam'a tıklayın ve "Olay işleyicisi olayı yakaladı" iletisi görüntülenir.

Ayrıca bakınız

Geri Bildirim

Bu sayfayı yararlı buldunuz mu?

Last updated on 2025-06-22