元数据--自定义属性（VB.NET）

类文件：(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 FamilyName 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
使用自定义属性的文件（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 Type = 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

本文地址：http://com.8s8s.com/it/it41857.htm