VB.NET如何自定义属性

这篇文章主要介绍了VB.NET如何自定义属性，具有一定借鉴价值，感兴趣的朋友可以参考下，希望大家阅读完这篇文章之后大有收获，下面让小编带着大家一起了解一下。

类文件：(Class1)

1. Imports System

2. Imports System.Reflection

3. < AttributeUsage(AttributeTargets.
   All, AllowMultiple:=True,
   Inherited:=True)> _

4. Public Class Class1

5. Inherits System.Attribute

6. Private FamilyName As String

7. Private GivenName As String

8. Public Sub New(ByVal Family
   Name As String)

9. Me.FamilyName = FamilyName

10. End Sub

11. Public Overrides Function
    ToString() As String

12. Return String.Format("Author:
    {0}{1}", FamilyName, GivenName)

13. End Function

14. Public Property Family() As String

15. Get

16. Return FamilyName

17. End Get

18. Set(ByVal Value As String)

19. FamilyName = Value

20. End Set

21. End Property

22. Public Property Given() As String

23. Get

24. Return GivenName

25. End Get

26. Set(ByVal Value As String)

27. GivenName = Value

28. End Set

29. End Property

30. End Class

使用VB.NET自定义属性的文件（Form3.VB）

1. < Class1("Watkins", Given:="Damien"),
   Class1("Abrams")> _

2. Public Class Form3

3. Inherits System.Windows.Forms.Form

4. Private Sub Button1_Click(ByVal sender
   As System.Object, ByVal e As System.
   EventArgs) Handles Button1.Click

5. Dim t As TypeType = Type.GetType
   ("WindowsApplication6.Form3")

6. Dim attributes As Object() =
   t.GetCustomAttributes(True)

7. Console.WriteLine("Custom
   Attributes are: ")

8. For Each o As Object
   In attributes

9. Console.WriteLine(o)

10. Next

11. End Sub

12. End Class

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