Mega Code Archive
Class implements two interfaces
<![CDATA[
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
Get
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
]]>