module1.vb

编程之道VB.NETt程序设计入门-589M.zip

Module Module1
    Public Interface IScrollable
        Sub Scroll()
    End Interface

    Public Class ScrollDog
        Inherits Pet.Dog
        Implements IScrollable

        Public Sub New(ByVal birthDate As Date)
            MyBase.New(birthDate)
        End Sub

        Public Sub Scroll() Implements IScrollable.Scroll
            Console.WriteLine("ScrollDog " & Name & " is scrolling!")
        End Sub
    End Class

    Sub Main()
        Dim s As IScrollable
        Dim sd As ScrollDog

        sd = New ScrollDog("1998-9-9")
        sd.Name = "ScrollDoggy"
        sd.FetchSaucer()
        sd.Scroll()

        s = New ScrollDog("1999-9-9")
        s.Scroll()

        Console.ReadLine()
    End Sub

End Module