ALLOCATION DYNAMIQUE DE DLL EN VB.NET PAR LES MÉTHODES DE SYSTEM.REFLECTION

    Private Sub BtdAlouerDll_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtdAlouerDll.Click
        Dim a As [Assembly] = [Assembly].LoadFrom(TxtCheminDLL.Text)
        Dim mytypes As Type() = a.GetTypes()
        Dim flags As BindingFlags = BindingFlags.NonPublic Or BindingFlags.Public Or BindingFlags.Static Or _
            BindingFlags.Instance Or BindingFlags.DeclaredOnly
        Dim t As Type
        Dim Params() As Object

        For Each t In mytypes
            Dim mi As MethodInfo() = t.GetMethods(flags)
            Dim obj As [Object] = Activator.CreateInstance(t)

            Dim m As MethodInfo


            ReDim Params(0)
            Params(0) = "Message texte"
            For Each m In mi
                m.Invoke(obj, Params)
            Next m
        Next t


    End Sub

Télécharger le zip