Implements Two Interfaces : Interface « Class « VB.Net

Implements Two Interfaces

Implements Two Interfaces
Imports System

Public Class MainClass

    Shared Sub Main(ByVal args As String())
        Dim doc As New Document("Test Document")
        doc.Status = -1
        doc.Read( )
        doc.Compress( )
        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

' here's the new interface
Interface ICompressible
    Sub Compress( )
    Sub Decompress( )
End Interface 'ICompressible

' Document implements both interfaces
Public Class Document
    Implements ICompressible, IStorable

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

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

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

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

    ' implement ICompressible
    Public Sub Compress( ) Implements ICompressible.Compress
        Console.WriteLine("Implementing Compress")
    End Sub 'Compress

    Public Sub Decompress( ) Implements ICompressible.Decompress
        Console.WriteLine("Implementing Decompress")
    End Sub 'Decompress

    Private myStatus As Integer = 0
End Class


Related examples in the same category

1.One Class implements two Interfaces which have the same name methodOne Class implements two Interfaces which have the same name method
2.Interface inherits interfaceInterface inherits interface
3.Class implements two interfaces
4.Implements an InterfaceImplements an Interface
5.Implement an InterfaceImplement an Interface
6.Define and use Interface AgeDefine and use Interface Age
7.Interface Inherits another InterfaceInterface Inherits another Interface
8.Define and use InterfaceDefine and use Interface
9.Generic Class and InterfaceGeneric Class and Interface