Define and use Interface

Imports System

Public Class MainClass

    Shared Sub Main(ByVal args As String())
        Dim doc As New Document("Test Document")
             doc.Status = -1
             doc.Read( )
             Console.WriteLine("Document Status: {0}", doc.Status)    
        End Sub

End Class

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

Public Class Document
    Implements IStorable

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

    ' implement the Read method
    Public Sub Read( ) Implements IStorable.Read
        Console.WriteLine("Implementing the Read Method for IStorable")
    End Sub 'Read

    ' implement the Write method
    Public Sub Write(ByVal o As Object) Implements IStorable.Write
        Console.WriteLine( _
           "Implementing the Write Method for IStorable")
    End Sub 'Write

    ' implement the property
    Public Property Status( ) As Integer Implements IStorable.Status
        Get
            Return myStatus
        End Get
        Set(ByVal Value As Integer)
            myStatus = Value
        End Set
    End Property

    ' store the value for the property
    Private myStatus As Integer = 0
End Class 'Document

Related examples in the same category

1.	One Class implements two Interfaces which have the same name method
2.	Interface inherits interface
3.	Class implements two interfaces
4.	Implements an Interface
5.	Implement an Interface
6.	Define and use Interface Age
7.	Interface Inherits another Interface
8.	Implements Two Interfaces
9.	Generic Class and Interface

Define and use Interface : Interface « Class « VB.Net

Related examples in the same category