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 String   
Return 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.Click   
Dim 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 attributes   
Console.WriteLine(o)   
Next   
End Sub   
End Class  

感谢你能够认真阅读完这篇文章，希望小编分享的“VB.NET如何自定义属性”这篇文章对大家有帮助，同时也希望大家多多支持创新互联，关注创新互联行业资讯频道，更多相关知识等着你来学习!