diff --git a/Assembly-et-r%C3%A9f%C3%A9rences.md b/Assembly-et-r%C3%A9f%C3%A9rences.md index 1f576c2..ab1f83b 100644 --- a/Assembly-et-r%C3%A9f%C3%A9rences.md +++ b/Assembly-et-r%C3%A9f%C3%A9rences.md @@ -1 +1,24 @@ -Bienvenue sur le Wiki. \ No newline at end of file +# [[Assembly et références|Home]] +## [[Retour|Fonctions (VB.net)]] +#### Fonction retournant le nom de la DLL appelante + +*Paramètre d'entré : vide* +*Paramètre de sortie : Assembly* +``` vbnet + 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 + +----- +###### *Si vous avez des sugestions d'ajouts, de corrections, m'en faire part Merci* + + +----- + + +###### Dernière maj : 23/04/2019 \ No newline at end of file