Mega Code Archive
Implement Interface
<![CDATA[
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
]]>