VB中继承的使用

在VB.NET中，使用关键字 Inherits 来创建一个子类继承自一个父类

?

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

' 父类 Public Class Animal     Public Property Name As String       Public Sub New(name As String)'构造函数         Me.Name = name     End Sub       Public Overridable Sub Speak()'虚方法         Console.WriteLine("I am an animal.")     End Sub End Class   ' 子类继承自父类 Animal Public Class Dog     Inherits Animal       Public Sub New(name As String)         MyBase.New(name)     End Sub       Public Overrides Sub Speak()'重写         Console.WriteLine("Woof! I am a dog named " & Me.Name)     End Sub End Class