vb.net中自定义属性的应用

给类或字段加上自定义属性有时候是非常有用的，我亲身试了试：

 

1.定义属性类：

 

    <AttributeUsage(AttributeTargets.Field)> _

1. Public Class FieldAttribute
2.     Inherits Attribute
4.     Private mNum As Integer
5.     Private mName As String
7.     Public ReadOnly Property Num() As Integer
8.         Get
9.             Return mNum
10.         End Get
11.     End Property
13.     Public ReadOnly Property Name() As String
14.         Get
15.             Return mName
16.         End Get
17.     End Property
19.     Public Sub New(ByVal name As String, ByVal num As Integer)
20.         mNum = num
21.         mName = name
22.     End Sub
25. End Class

   2.获得属性值：

            

1.    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
2.         Dim c1 As New Class1
3.         Dim myType As Type = c1.GetType
4.         'Dim ob As Object() = myType.GetCustomAttributes(GetType(layoutAttribute), False)
5.         'For Each layout As layoutAttribute In ob
6.         '    MessageBox.Show(layout.Name)
7.         'Next
9.         Dim memberinfos() As MemberInfo = myType.GetMembers(BindingFlags.Public Or BindingFlags.Instance)
10.         Dim arrList As New List(Of FieldAttribute)
12.         For Each mem As MemberInfo In memberinfos
13.             Dim ob As Object() = mem.GetCustomAttributes(GetType(FieldAttribute), False)
14.             If ob IsNot Nothing AndAlso ob.Length > 0 Then
15.                 arrList.Add(ob(0))
16.             End If
17.         Next
18.     End Sub