4 Assembly et références
Th3maz1ng edited this page 2019-07-18 10:24:53 +02:00

Assembly et références

Retour

Fonction retournant le nom de la DLL appelante

Paramètre d'entré : vide
Paramètre de sortie : Assembly

    Private Function getCallingAssemblyName() As Assembly
        Dim CallerAssemblies As IEnumerable(Of Assembly) = New StackTrace().GetFrames().[Select](Function(x) x.GetMethod().ReflectedType.Assembly).Distinct().Where(Function(x) x.GetReferencedAssemblies().Any(Function(y) y.FullName = Assembly.GetExecutingAssembly().FullName))
        Return If(CallerAssemblies.Count > 0, CallerAssemblies(0), Nothing)
    End Function

Dans l'objet Assembly, certaines proprétés sont intéressantes comme :

  • FullName : Nom de la DLL + Numero de version etc...
  • ManifestModule.ScopeName : Nom de la DLL
  • Location : Chemin de la DLL

Si vous avez des suggestions d'ajouts, de corrections, m'en faire part Merci

Dernière maj : 18/07/2019