这段代码我都糊涂了，帮帮我吧！
这段代码我都糊涂了，帮帮我吧！
Public Class Class_1
Public Overridable Function GetMyName() As String
Return "Class_1 "
End Function
Public Function GetMeType() As String
Return Me.GetType.ToString
End Function
End Class
Public Class Class_2
Inherits Class_1
Public Overrides Function GetMyName() As String
Return "Class_2 "
End Function
Public Overridable Function GetMyBassName() As String
Return MyBase.GetMyName
End Function
Public Overridable Function GetMyClassName() As String
Return MyClass.GetMyName
End Function
End Class
Public Class Class_3
Inherits Class_2
Public Overrides Function GetMyName() As String
Return "Class_3 "
End Function
End Class
执行代码：
Dim m_Class_2 As New Class_3
Dim m_String As String
m_String &= "GetMyBassName -- > " & m_Class_2.GetMyBassName & vbCrLf
'结果是：GetMyBassName -- > Class_1
对于以上代码，我的问题是：
1：Class_3 继承Class_2，那么Class_3 就会有Class_2的所有属性和方法（重写的GetMyName除外）
然后再看最后的代码
m_String &= "GetMyBassName -- > " & m_Class_2.GetMyBassName & vbCrLf
'结果是：GetMyBassName -- > Class_1
其中的“m_Class_2.GetMyBassName ”命令，也就是调用Class_3的 Public Overridable Function GetMyBassName() As String
Return MyBase.GetMyName
End Function
因为class_3继承class_2，所以class_3当然有Function GetMyBassName
在其中的方法体中，代码是： Return MyBase.GetMyName
我认为这里的mybase指的是class_2
因为class_3继承class_2
那么Return MyBase.GetMyName中的GetMyName方法指的就是class_2中的GetMyName方法，那为什么还会输出结果：
GetMyBassName -- > Class_1
真是糊涂了，这个问题可以说是我最没思路的，请各位务必给我讲一下，
谢谢！！
[解决办法]
这儿没有所谓的重写谁的，自己的方法还是自己的方法。
只不过在调用的时候，根据你所创建的实例，在虚拟表中依次向上查找。
