.NET开发

本类阅读TOP10

·NHibernate快速指南(翻译)
·vs.net 2005中文版下载地址收藏
·【小技巧】一个判断session是否过期的小技巧
·VB/ASP 调用 SQL Server 的存储过程
·?dos下编译.net程序找不到csc.exe文件
·通过Web Services上传和下载文件
·学习笔记(补)《.NET框架程序设计(修订版)》--目录
·VB.NET实现DirectDraw9 (2) 动画
·VB.NET实现DirectDraw9 (1) 托管的DDraw
·建站框架规范书之——文件命名

分类导航
VC语言Delphi
VB语言ASP
PerlJava
Script数据库
其他语言游戏开发
文件格式网站制作
软件工程.NET开发
元数据--自定义属性(VB.NET)

作者:未知 来源:月光软件站 加入时间:2005-2-28 月光软件站

类文件:(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




相关文章

相关软件