读书人

哪位高手能给小弟我解释一下myclass的

发布时间: 2012-04-06 12:22:24 作者: rapoo

谁能给我解释一下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为工程命)

希望以上测试对理解有帮助

读书人网 >VB Dotnet

热点推荐