Class implements two interfaces : Interface « Class « VB.Net

Class implements two interfaces

Imports System

Public Class MainClass
    Shared Sub Main()
        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

     Interface ICompressible
         Sub Compress(  )
         Sub Decompress(  )
     End Interface

     Public Class Document
         Implements ICompressible, IStorable

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

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

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

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

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

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

         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.Implements an InterfaceImplements an Interface
4.Implement an InterfaceImplement an Interface
5.Define and use Interface AgeDefine and use Interface Age
6.Interface Inherits another InterfaceInterface Inherits another Interface
7.Define and use InterfaceDefine and use Interface
8.Implements Two InterfacesImplements Two Interfaces
9.Generic Class and InterfaceGeneric Class and Interface