Selbstserstelltes MDIpanel Problem "Fehler bei der Codegenerierung für die forms-Eigenschaft. Fehler: 'Der Typ "System.Windows.Forms.Form" in Assembly

  • VB.NET

    Selbstserstelltes MDIpanel Problem "Fehler bei der Codegenerierung für die forms-Eigenschaft. Fehler: 'Der Typ "System.Windows.Forms.Form" in Assembly

    Ich habe meine "eigene" kleine Klasse geschrieben, mit der ich ein MDIpanel habe, dass in einem Panel "sitzt".
    Hier mal ein Video: youtube.com/watch?v=8wAkWmJvu7Y

    Wenn ich das Panel einfüge und die Fehler weg klicke ist alles kein Problem und wenn ich das Panel ganz oft einfügen kommt der Fehler auch nicht mehr...
    Aber der Fehler kommt immer noch wenn ich das Projekt z.B. speichern will :cursing: :cursing:

    Die Kommentare hab ich eigentlich eher aus Langeweile hinzugefügt, diese also nicht allzu ernst nehmen :saint:

    Hier die Klasse:

    VB.NET-Quellcode

    1. Imports System.Runtime.InteropServices
    3. Class MDIPanel
    5. Inherits System.Windows.Forms.Panel 'Wir erben vom Panel, damit wir die Form (die ihm untergeordnet wird) einfach
    6. 'in der Hautpform( z.B. Form1) herumschieben können
    8. Private _forms As New List(Of Form) 'Einfache Liste zum Hinzufügen/Entfernen von Formen
    9. Public Property forms As List(Of Form)
    10. Get
    11. Return _forms
    12. End Get
    13. Set(ByVal value As List(Of Form))
    14. _forms = value
    15. End Set
    16. End Property
    19. Private MDIForm As New Form 'Wir benutzen den MDIContainer. Man kann natürlich auch das Panel selbst verwenden
    20. 'mit dieser Variante haben wir aber den Vorteil von Skrollbalken
    22. Public ReadOnly Property getMDIForm As Form 'Zum lesen von Informationen über die MDIForm, eigentlich kann man diesen Teil auch
    23. Get 'weglassen
    24. Return MDIForm
    25. End Get
    26. End Property
    28. <DllImport("user32.dll")> _
    29. Private Shared Function SetParent(ByVal hWndChild As IntPtr, ByVal hWndNewParent As IntPtr) As IntPtr
    30. End Function 'Besser als Me(dem Panel).Controls.Add(Form zum hinzufügen)
    31. 'Code wird zum einfachen unter/überordnen von Handeln(Formen, Controls, usw.) benutzt
    33. Sub New()
    34. MDIForm = New Form 'Neue Instanz erstellen
    35. MDIForm.IsMdiContainer = True 'Form als MdiContainer setzten
    36. MDIForm.StartPosition = FormStartPosition.Manual 'Muss man aktivieren, damit man die Position vor Start ändern kann
    37. MDIForm.Location = New Point(1, 1) 'Position anpassen
    38. MDIForm.Size = New Size(Me.Size.Width + 1, Me.Size.Height + 1) 'Größe anpassen
    39. MDIForm.FormBorderStyle = FormBorderStyle.None 'Damit man die Form nicht bewegen kann
    40. SetParent(MDIForm.Handle, Me.Handle) 'Me.Controls.Add geht nicht, da eine Form nicht MdiContainer und Control(toplevel = false) gleichzeitig seien kann
    41. MDIForm.Show() 'Form erstellen und anzeigen
    42. End Sub
    44. Public Sub addForm(ByVal form As Form)
    45. If form.IsDisposed = True Then 'Falls eine Form, die bereits entfernt bzw. für den RAM , mit .Dipose, freigeben wurde
    46. Return 'versucht wird hinzuzufügen wird abgebrochen
    47. End If
    48. form.MdiParent = MDIForm 'Der MDIForm unterstellen
    49. form.Show() 'Form anzeigen
    50. forms.Add(form) 'Und die Form zur Liste hinzufügen
    51. End Sub
    53. Public Sub removeForm(ByVal form As Form)
    54. form.Close() 'Form schließen
    55. form.Dispose() 'Speicher freigeben
    56. forms.Remove(form) 'Form von Liste entfernen
    57. End Sub
    59. Private Sub MDIPanel_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Resize
    60. MDIForm.Size = New Size(Me.Size.Width + 1, Me.Size.Height + 1) 'Größe der MDIForm der des Panels(me) anpassen
    61. End Sub
    63. End Class



    MfG

Facebook
Telefonspende