Public Function MyFunc(...) As Integer()
    Return New Integer() {1, 2, 3}
End Function

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist

'Imports System.Reflection.Emit
 
'hier müssen alle öffentlichen members aufgeführt werden, welche die 
' schnittstelle transportieren soll.
Public Interface MyInterface
 
    'z.b. funktion
    Function Addieren() As String
 
    'z.b. property
    ReadOnly Property Datum() As Date
 
    'Sub Menuitem() 
    Function Menuitem() As Array
End Interface

'eine einfache plugin dll
Public Class myClient
    Implements [interface].MyInterface
 
    Public Function Addieren() As String Implements _
      [interface].MyInterface.Addieren
        Return "hallo"
    End Function
 
    Public ReadOnly Property Datum() As Date Implements _
      [Interface].myInterface.Datum
        Get
            Return Now
        End Get
    End Property
 
    Public Function Menuitem() As Array Implements _
      [interface].MyInterface.Menuitem
        Return New Integer() {1, 2, 3}
    End Function
 
End Class

Private Sub Button1_Click_1(sender As System.Object, e As System.EventArgs) _
  Handles Button1.Click
        Dim returnarray As String
 
        Dim MenItem As ToolStripMenuItem = CType(start.MenuStrip1.Items.Add( _
          "Plugins"), ToolStripMenuItem)
 
        returnarray = myplugin.Menuitem()
 
        MenItem.DropDownItems.Add(returnarray(0))
 
    End Sub

returnarray = myplugin.Menuitem()

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        'alle plugins laden - in unserem fall ja nur eines
        For Each plugin As String In Directory.GetFiles( _
          My.Application.Info.DirectoryPath, "PlugIns/*.dll")
            myplugin = PlugInConnector.LoadPlugIn(plugin)
            'lass uns hier mal die schleife beenden.
            'da sich unsere client dll im selben ordner wie die interface dll 
            ' befindet, kann es dazu kommen, dass das interface
            'zuletzt untersucht wird. dies würde dann unser gültiges plugin 
            ' überschreiben
            If myplugin IsNot Nothing Then Exit For
        Next
        If myplugin Is Nothing Then
            MessageBox.Show("Kein gültiges PlugIn gefunden !")
            Me.Close()
        End If
    End Sub

Public Interface myInterface
    ReadOnly Property MenuItemTexte As String()
End Interface

Public Class myClient
    Implements Plugin_Test.myInterface
 
    Public ReadOnly Property MenuItemTexte As String() _
        Implements Plugin_Test.myInterface.MenuItemTexte
        Get
            Dim Menuitems() As String = {"Item1", "Item2", "Item3"}
            Return Menuitems
        End Get
    End Property
End Class

myplugin = PlugInConnector.LoadPlugIn(plug)
Dim mit() As String = myplugin.MenuItemTexte

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist