Public Module MyReflection Public Function GetInstance(ByVal Assembly As Assembly, ByVal ClassName As String) As Object Try Return Activator.CreateInstance(Assembly.GetType(ClassName)) Catch ex As Exception 'If An Error Is Occured then Return Nothing Return Nothing End Try End Function Public Function GetInstance(ByVal Assembly As Assembly, ByVal ClassName As String, ByVal Args() As Object) As Object Try Dim Attributes() As Object = {} Return Activator.CreateInstance(Assembly.GetType(ClassName), Args, Attributes) Catch ex As Exception 'If An Error Is Occured then Return Nothing Return Nothing End Try End Function End Module
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.