Imports System
Imports System.Reflection
Module DemoModule
Public Class TestClass
Public Sub Method1(ByVal ParamArray args As String())
End Sub
End Class
Sub Main()
Dim clsType As Type = GetType(TestClass)
Dim mInfo As MethodInfo = clsType.GetMethod("Method1")
Dim pInfo() As ParameterInfo = mInfo.GetParameters()
Dim isDef As Boolean = Attribute.IsDefined(pInfo(0),GetType(ParamArrayAttribute))
End Sub
End Module
|