VB.NET编程语言的出现，在一定程度上改变了编程人员的编写习惯，它灵活的编写方式提高了编程效率。我们在这里就会为大家带来关于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 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
- 1.
- 2.
- 3.
- 4.
- 5.
- 6.
- 7.
- 8.
- 9.
- 10.
- 11.
- 12.
- 13.
- 14.
- 15.
- 16.
- 17.
- 18.
- 19.
- 20.
- 21.
- 22.
- 23.
- 24.
- 25.
- 26.
- 27.
- 28.
- 29.
- 30.
- 31.
- 32.
- 33.
- 34.
- 35.
使用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
- 1.
- 2.
- 3.
- 4.
- 5.
- 6.
- 7.
- 8.
- 9.
- 10.
- 11.
- 12.
- 13.
- 14.
- 15.
- 16.
- 17.
- 18.
- 19.
VB.NET自定义属性的具体应用方式就为大家介绍到这里。
【编辑推荐】
