13. 单击File，接着单击Close Solution。

　　在下个实例里打开IDE。

　　继承实例2

　　这个例子进一步的说明了继承。

　　1. 单击File，单击New，单击Project 打开新的Project 窗口。

　　2. 在Project Types栏里，单击Visual Basic Projects，在Templates 栏里，单击Empty Project.

　　3. 单击OK。

　　4. 在工程中增加一个新的类：在Project菜单，单击Add Class。

　　5. 在Name栏里，输入A.vb。

　　6. 单击Open。一个空的Class出现。

　　7. 将以下代码添加到Class A之上:

Imports System
Imports System.Console

　　8. 增加以下代码完成class A:

Class A
Public Overridable Sub F()
Console.WriteLine("A.F")
End Sub
End Class

　　9. 在Class A之下增加以下代码:

Class B
Inherits A
Public Overrides Sub F()
　Console.WriteLine("B.F")
End Sub
End Class
Class C
Inherits B
Public Shadows Overridable Sub F()
　Console.WriteLine("C.F")
End Sub
End Class

Class D
Inherits C
Public Overrides Sub F()
　Console.WriteLine("D.F")
End Sub
End Class

　　在以下的代码段，你声明了四个对象，并且调用他们的方法看结果：

Class Test
Shared Sub Main()
Dim d As New D()
Dim a As A = d
Dim b As B = d
Dim c As C = d
a.F()
b.F()
c.F()
d.F()
End Sub
End Class

上一页  [1] [2] [3] [4] [5] 下一页