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

Arabirimler özellikler, Yöntemler ve olayların özelliklerini ve uygulama ayrıntılarını yapılar veya sınıflar için bir şekilde bırakır.

Bu izlenecek yol, bir arabirimin nasıl bildirileceğini ve uygulanacağını gösterir.

Bir arabirim tanımlamak için

1. yeni bir Visual Basic Windows uygulama projesi açın.

2. Project menüsünde modül ekle ' ye tıklayarak projeye yeni bir modül ekleyin.

3. Yeni modülü adlandırın Module1.vb ve Ekle' ye tıklayın. Yeni modülün kodu görüntülenir.

4. TestInterfaceVe deyimleri arasına yazarak içinde adlı bir arabirim tanımlayın Module1 Interface TestInterface Module End Module ve ardından ENTER tuşuna basın. Kod Düzenleyicisi , Interface anahtar sözcüğünü girintiler ve End Interface bir kod bloğu oluşturmak için bir ifade ekler.

5. Aşağıdaki kodu ve deyimleri arasına yerleştirerek arabirim için bir özellik, yöntem ve olay tanımlayın Interface End Interface :

   Property Prop1() As Integer
   Sub Method1(ByVal X As Integer)
   Event Event1()
   

Uygulama

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

Arabirimi uygulamak için

1. ImplementationClassAşağıdaki deyimden Module1 sonra, ifadesinden sonra, öğesinden önce, sonra End Interface End Module ENTER tuşuna basarak adlı bir sınıf ekleyin:

   Class ImplementationClass
   

   Tümleşik geliştirme ortamı içinde çalışıyorsanız, ENTER tuşuna bastığınızda, Kod Düzenleyicisi eşleşen bir ifade sağlar End Class .

2. Aşağıdaki Implements ifadesini ImplementationClass , sınıfının uyguladığı arabirimi isimsiz olarak ekleyin:

   Implements TestInterface
   

   Bir sınıfın veya yapının üstündeki diğer öğelerden ayrı olarak listelendiğinde, Implements ifade sınıfın veya yapının bir arabirim uyguladığını gösterir.

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

3. Tümleşik geliştirme ortamı içinde çalışmadıysanız, arabirimin tüm üyelerini uygulamanız gerekir MyInterface . ImplementationClass,, Ve uygulamak için aşağıdaki kodu Event1 ekleyin Method1 Prop1 :

   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
   

   Implementsİfade, uygulanan arabirimi ve arabirim üyesini adlandırır.

4. Prop1Özellik değerini saklı sınıfa bir özel alan ekleyerek tanımını doldurun:

   ' Holds the value of the property.
   Private pval As Integer
   

   pvalÖzellik Al erişimcisinin öğesinden değerini döndürün.

   Return pval
   

   Değerini pval özellik kümesi erişimcisinde ayarlayın.

   pval = value
   

5. Method1Aşağıdaki kodu ekleyerek tanımını doldurun.

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

Arabirimin uygulamasını test etmek için

1. Çözüm Gezgini projenizin başlangıç formuna sağ tıklayın ve kodu görüntüle' ye tıklayın. Düzenleyici, başlangıç formunuz için sınıfını görüntüler. Varsayılan olarak, başlangıç formu çağırılır Form1 .

2. testInstanceSınıfına aşağıdaki alanı ekleyin Form1 :

   Dim WithEvents testInstance As TestInterface
   

   Olarak bildirerek testInstance WithEvents , Form1 sınıfı olaylarını işleyebilir.

3. Form1Tarafından oluşturulan olayları işlemek için aşağıdaki olay işleyicisini sınıfına ekleyin testInstance :

   Sub EventHandler() Handles testInstance.Event1
       MsgBox("The event handler caught the event.")
   End Sub
   

4. Test Form1 Uygulama sınıfını test etmek için sınıfına adlı bir altyordam 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
   

   TestYordam, uygulayan sınıfının bir örneğini oluşturur MyInterface , bu örneği alana atar, testInstance bir özelliği ayarlar ve arabirim aracılığıyla bir yöntemi çalıştırır.

5. TestBaşlangıç formunuzun yordamından yordamı çağırmak için kod ekleyin Form1 Load :

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

6. TestF5 tuşuna basarak yordamı çalıştırın. "Prop1 9 ' a ayarlanmıştır" iletisi görüntülenir. Tamam ' a tıkladıktan sonra, "Method1 X parametresi 5 olur" iletisi görüntülenir. Tamam ' a tıklayın ve "olay işleyicisi olayı yakalandı" iletisi görüntülenir.

Ayrıca bkz.

• Implements Deyimi
• Arabirimler
• Interface Deyimi
• Event Deyimi