Imports System.Reflection
Public Class MainClass
Public Shared Sub Main()
Dim MethodObj As System.Reflection.MethodInfo
Dim MessageDemo As New Demo()
For Each MethodObj In MessageDemo.GetType.GetMethods()
Dim Attr As Attribute
For Each Attr In MethodObj.GetCustomAttributes(False)
Console.WriteLine(MethodObj.Name)
Console.WriteLine(Attr)
Console.WriteLine(CType(Attr, UserName).Name)
Next
Next
End Sub
End Class
Class UserName
Inherits Attribute
Public Name As String
Public Sub New(ByVal Name As String)
MyBase.New()
Me.Name = Name
End Sub
End Class
Class Demo
<UserName("Name 1")> Sub DemoMsg()
Console.WriteLine("Message")
End Sub
<UserName("Name 2")> Sub Greet()
Console.WriteLine("Hello")
End Sub
End Class
|
