Implement Interface : Interface « Class Module « VB.Net Tutorial






Option Strict On
 Imports System

 Interface Printable
     Sub Read( )
     Sub Write(ByVal obj As Object)
     Property Status( ) As Integer
 End Interface 

 Public Class Document
     Implements Printable

     Public Sub New(ByVal s As String)
         Console.WriteLine("Creating document with: {0}", s)
     End Sub

     Public Sub Read( ) Implements Printable.Read
         Console.WriteLine("Implementing the Read Method for Printable")
     End Sub

     Public Sub Write(ByVal o As Object) Implements Printable.Write
         Console.WriteLine("Implementing the Write Method for Printable")
     End Sub

     Public Property Status( ) As Integer Implements Printable.Status
         Get
             Return myStatus
         End Get
         Set(ByVal Value As Integer)
             myStatus = Value
         End Set
     End Property

     Private myStatus As Integer = 0
 End Class

 Class Tester
     Public Shared Sub Main( )
         Dim doc As New Document("Test Document")
         doc.Status = -1
         doc.Read( )
         Console.WriteLine("Document Status: {0}", doc.Status)
     End Sub 
 End Class
Creating document with: Test Document
Implementing the Read Method for Printable
Document Status: -1








6.44.Interface
6.44.1.Implement Interface
6.44.2.Interface with two methods
6.44.3.One Class implements two interfaces
6.44.4.Interface Inherits Interface
6.44.5.Interface with Property
6.44.6.Inheritance And Interfaces
6.44.7.Reimplement interface
6.44.8.Public Sub aMethod() Implements Interface1.Method, Interface2.Method
6.44.9.Two classes implement one interface
6.44.10.Implements two interfaces and WriteOnly Property