İzlenecek yol: Arabirimleri 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 izlenecek yol, bir arabirimi bildirmeyi ve uygulamayı gösterir.

Arabirim tanımlamak için

1. Yeni bir Visual Basic Windows Uygulaması projesi açın.

2. Proje menüsünde Modül Ekle'ye tıklayarak projeye yeni bir modülekleyin.

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

4. ve End Module deyimleri arasında Module yazıp Interface TestInterface ENTER tuşuna basarak içinde Module1 adlı TestInterface bir arabirim tanımlayın. Kod Düzenleyicisi anahtar sözcüğü girintiler Interface ve kod bloğu oluşturmak için bir End Interface deyim ekler.

5. ve deyimleri arasına Interface aşağıdaki kodu yerleştirerek arabirim için bir özellik, yöntem ve End Interface 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.

Arabirimi uygulamak için

1. deyiminden sonra ancak deyiminden End Interface önce End Module aşağıdaki deyimini Module1ekleyerek ve ENTER tuşuna basarak adlı ImplementationClass 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.

2. 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.

3. Tümleşik geliştirme ortamında çalışmıyorsanız arabiriminin MyInterfacetüm üyelerini uygulamanız gerekir. , Method1ve Prop1uygulamak Event1için aşağıdaki kodu ImplementationClass ekleyin:

   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.

4. ö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
   

   get erişimcisinden değerini pval döndürür.

   Return pval
   

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

   pval = value
   

5. Aşağıdaki kodu ekleyerek tanımını Method1 tamamlayın.

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

Arabirimin uygulanması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ıç formunuzun sınıfını görüntüler. Varsayılan olarak, başlangıç formu olarak adlandırılır Form1.

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

   Dim WithEvents testInstance As TestInterface
   

   olarak WithEventsForm1 bildirerek testInstance sınıfı, olaylarını işleyebilir.

3. tarafından testInstanceoluşturulan olayları işlemek için sınıfına Form1 aşağıdaki olay işleyicisini ekleyin:

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

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

5. Başlangıç formunuzun yordamından yordamı çağırmak TestForm1 Load 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
   

6. F5 tuşuna Test basarak yordamı ç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 bkz.

• Implements Deyimi
• Arabirimler
• Interface Deyimi
• Event Deyimi