首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > .NET > VB Dotnet >

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

2012-04-06 
谁能给我解释一下myclass的意思?看了MSDN,但是说的太专业化了,不明白,谁能给俺举例说明?最好把mybase和me

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

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

热点排行