专注收集记录技术开发学习笔记、技术难点、解决方案
网站信息搜索 >> 请输入关键词:
您当前的位置: 首页 > VB Dotnet

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

发布时间:2011-06-23 15:57:30 文章来源:www.iduyao.cn 采编人员:星星草
谁能给我解释一下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为工程命)

希望以上测试对理解有帮助
友情提示:
信息收集于互联网,如果您发现错误或造成侵权,请及时通知本站更正或删除,具体联系方式见页面底部联系我们,谢谢。

其他相似内容:

热门推荐: