Vektor
Erfahrenes Mitglied
Hallo zusammen,
ich möchte gerne ein paar Forms aus meinem Programm in DLL's unterbringen, um nicht immer das ganze Programm (also die *.exe) auszutauschen, sondern nur die einzelnen Forms.
Ich hab das jetzt einfach mal so gemacht, dass die DLL-Klasse von der System.Windows.Forms.Form-Klasse erbt. Dann hab ich im "NEW-Event" der Klasse (wie das auch der Form-Designer macht) den Aufruf von einer Initialisierungs-Sub reingeschrieben. In dieser Sub werden dann die einzelnen Controls erstellt und mit Eigenschaften ausgestattet.
Das klappt auch wirklich gut so, nur hab ich meine Zweifel, ob das wirklich so "umständlich" gemacht werden muss, oder ob ihr da eine bessere Lösung wisst
Hier mal noch der Code meiner Test-DLL:
Vielen Dank im vorraus...
ich möchte gerne ein paar Forms aus meinem Programm in DLL's unterbringen, um nicht immer das ganze Programm (also die *.exe) auszutauschen, sondern nur die einzelnen Forms.
Ich hab das jetzt einfach mal so gemacht, dass die DLL-Klasse von der System.Windows.Forms.Form-Klasse erbt. Dann hab ich im "NEW-Event" der Klasse (wie das auch der Form-Designer macht) den Aufruf von einer Initialisierungs-Sub reingeschrieben. In dieser Sub werden dann die einzelnen Controls erstellt und mit Eigenschaften ausgestattet.
Das klappt auch wirklich gut so, nur hab ich meine Zweifel, ob das wirklich so "umständlich" gemacht werden muss, oder ob ihr da eine bessere Lösung wisst
Hier mal noch der Code meiner Test-DLL:
Code:
Public Class Class1
Inherits Windows.Forms.Form 'Die Klasse erbt von der Form-Klasse
Public Sub New()
Initialisiere()
End Sub
'Deklaration der Eventhandler des Controls
Friend WithEvents Button1 As Windows.Forms.Button
Public Sub Initialisiere()
'Deklaration des Controls
Dim Button1 As New Windows.Forms.Button
'Festlegen der Eigenschaften von Button1
With Button1
.Name = "Button1"
.Text = "Testbutton"
.Size = New Drawing.Size(50, 50)
.Location = New Drawing.Point(10, 10)
.BackColor = Drawing.Color.White
End With
'Festlegen der Eigenschaften des Forms
Me.AutoScaleBaseSize = New Drawing.Size(5, 13)
Me.BackColor = Drawing.Color.White
Me.ClientSize = New Drawing.Size(296, 270)
Me.Name = "Form1"
Me.Text = "Form1"
'Hinzufügen der Controls zum Form
Me.Controls.Add(Button1)
End Sub
End Class
Vielen Dank im vorraus...