VB.NET如何自定义属性
这篇文章主要介绍了VB.NET如何自定义属性,具有一定借鉴价值,感兴趣的朋友可以参考下,希望大家阅读完这篇文章之后大有收获,下面让小编带着大家一起了解一下。
乐亭网站建设公司创新互联,乐亭网站设计制作,有大型网站制作公司丰富经验。已为乐亭上1000家提供企业网站建设服务。企业网站搭建\外贸网站建设要多少钱,请找那个售后服务好的乐亭做网站的公司定做!
类文件:(Class1)
Imports System
Imports System.Reflection
< AttributeUsage(AttributeTargets.
All, AllowMultiple:=True,
Inherited:=True)> _Public Class Class1
Inherits System.Attribute
Private FamilyName As String
Private GivenName As String
Public Sub New(ByVal Family
Name As String)Me.FamilyName = FamilyName
End Sub
Public Overrides Function
ToString() As StringReturn String.Format("Author:
{0}{1}", FamilyName, GivenName)End Function
Public Property Family() As String
Get
Return FamilyName
End Get
Set(ByVal Value As String)
FamilyName = Value
End Set
End Property
Public Property Given() As String
Get
Return GivenName
End Get
Set(ByVal Value As String)
GivenName = Value
End Set
End Property
End Class
使用VB.NET自定义属性的文件(Form3.VB)
< Class1("Watkins", Given:="Damien"),
Class1("Abrams")> _Public Class Form3
Inherits System.Windows.Forms.Form
Private Sub Button1_Click(ByVal sender
As System.Object, ByVal e As System.
EventArgs) Handles Button1.ClickDim t As TypeType = Type.GetType
("WindowsApplication6.Form3")Dim attributes As Object() =
t.GetCustomAttributes(True)Console.WriteLine("Custom
Attributes are: ")For Each o As Object
In attributesConsole.WriteLine(o)
Next
End Sub
End Class
感谢你能够认真阅读完这篇文章,希望小编分享的“VB.NET如何自定义属性”这篇文章对大家有帮助,同时也希望大家多多支持创新互联,关注创新互联行业资讯频道,更多相关知识等着你来学习!
网页名称:VB.NET如何自定义属性
转载注明:http://scyanting.com/article/jjpipg.html