GetCustomAttributes taking a ParameterInfo as a parameter. : ParameterInfo « Reflection « VB.Net Tutorial

1. VB.Net Tutorial
2. Reflection
3. ParameterInfo

Imports System
Imports System.Reflection
Imports System.ComponentModel


    Public Class AClass
        Public Sub ParamArrayAndDesc(<Description("This argument is a ParamArray")> _
            ByVal ParamArray args() As Integer)
        End Sub
    End Class

Module DemoModule

    Sub Main()
        Dim clsType As Type = GetType(AClass)
        Dim mInfo As MethodInfo = clsType.GetMethod("ParamArrayAndDesc")
        Dim pInfo() As ParameterInfo = mInfo.GetParameters()
        Dim attr As Attribute

        For Each attr In Attribute.GetCustomAttributes(pInfo(0))

            If TypeOf attr Is ParamArrayAttribute Then

                Dim paAttr As ParamArrayAttribute = CType(attr, ParamArrayAttribute)
                Console.WriteLine("Parameter {0} has the ParamArray attribute.", pInfo(0).Name)
            ElseIf TypeOf attr Is DescriptionAttribute Then
                Dim descAttr As DescriptionAttribute = CType(attr, DescriptionAttribute)
                Console.WriteLine("Parameter {0} has a description attribute. The description is:", pInfo(0).Name)
                Console.WriteLine(descAttr.Description)
            End If
        Next
    End Sub
End Module