谁能给我解释一下myclass的意思?
看了MSDN,但是说的太专业化了,不明白,谁能给俺举例说明?
最好把mybase 和 me 一块说说,他们我老是弄混了,在网上查了很久,对这个myclass说的都不是很清楚!!!!!
咱们csdn高手众多,还是麻烦一下
[解决办法]
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 = "GetMyName -- > " & m_Class_2.GetMyName & vbCrLf
m_String &= "GetMyBassName -- > " & m_Class_2.GetMyBassName & vbCrLf
m_String &= "GetMyClassName -- > " & m_Class_2.GetMyClassName & vbCrLf
m_String &= "GetMeType -- > " & m_Class_2.GetMeType
结果:GetMyName -- > Class_3
GetMyBassName -- > Class_1
GetMyClassName -- > Class_2
GetMeType -- > Class_3 (注意:原名为AppRunTest.Class_3,AppRunTest为工程命)
希望以上测试对理解有帮助