Eigene Form aus ClassLibrary DLL Aufrufen

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

    ''' <summary>Ruft eine Form1 auf in einer DLL</summary>
    ''' <param name="DLLpath">Pfad zur DLL (Beispiel: C:\TEST.dll)</param>
    ''' <param name="FormName">Form Name in DLL (Beispiel: Form1 oder frmMain)</param>
    Public Sub CallDLLForm(ByVal DLLpath As String, ByVal FormName As String)
        Dim DLLFilenameEx As String = Path.GetFileName(DLLpath)
        Dim Filename As String = Path.GetFileNameWithoutExtension(DLLpath)
        Try
            Dim A As [Assembly] = [Assembly].LoadFrom(DLLpath)
            Dim B As [Module] = A.GetModule(DLLFilenameEx)
            Dim C As Type = B.GetType(Filename & "." & FormName)
            Dim D As Form = DirectCast(Activator.CreateInstance(C), Form)
            D.ShowDialog()
        Catch ex As Exception
            MessageBox.Show(ex.Message.ToString, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
    End Sub