MethodInfo.GetCustomAttributes : MethodInfo « System.Reflection « VB.Net by API

1. VB.Net by API
2. System.Reflection
3. MethodInfo

MethodInfo.GetCustomAttributes

  
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

   
    
  

Related examples in the same category