Usercontrol wird im Designer nicht autom. initialisiert

  • VB.NET
  • .NET (FX) 4.5–4.8

    Usercontrol wird im Designer nicht autom. initialisiert

    Hallo liebe Leute,

    ich habe mir ein Usercontrol (einen Container) erstellt, welches später diverse andere Usercontrols beinhalten soll.
    Sodass ich nachher nur Befehle benutze wie "container.AddTextbox" oder "container.AddDateField"

    >> Quellcode ganz unten <<

    Ich habe dieses Container-Control nahezu fertig, erstelle es und ziehe es aus dem Werkzeugkasten auf eine neue Form.
    Dabei tritt ein Fehler auf.
    Datei: "Application.Designer"
    Methode: "OnCreateMainForm()" bei deren einzigen Codezeile: "Me.MainForm = Global.WindowsApplication1.Form1"
    Meldung:
    Eine Ausnahme (erste Chance) des Typs "System.InvalidOperationException" ist in WindowsApplication1.exe aufgetreten.
    Zusätzliche Informationen: Fehler beim Erstellen des Formulars. Weitere Informationen finden Sie in Exception.InnerException. Fehler: Der Objektverweis wurde nicht auf eine Objektinstanz festgelegt..


    So sieht die "Form1.Designer"-Datei aus:

    Quellcode

    1. <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
    2. Partial Class Form1
    3. Inherits System.Windows.Forms.Form
    5. 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
    6. <System.Diagnostics.DebuggerNonUserCode()> _
    7. Protected Overrides Sub Dispose(ByVal disposing As Boolean)
    8. Try
    9. If disposing AndAlso components IsNot Nothing Then
    10. components.Dispose()
    11. End If
    12. Finally
    13. MyBase.Dispose(disposing)
    14. End Try
    15. End Sub
    17. 'Wird vom Windows Form-Designer benötigt.
    18. Private components As System.ComponentModel.IContainer
    20. 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
    21. 'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
    22. 'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
    23. <System.Diagnostics.DebuggerStepThrough()> _
    24. Private Sub InitializeComponent()
    25. Me.SuspendLayout()
    26. '
    27. 'CtlPropertyContainer1
    28. '
    30. Me.CtlPropertyContainer1.BackColor = System.Drawing.Color.White
    31. Me.CtlPropertyContainer1.DefaultLabelWidth = 80
    32. Me.CtlPropertyContainer1.EventsEnabled = True
    33. Me.CtlPropertyContainer1.IsEnabled = True
    34. Me.CtlPropertyContainer1.IsPaint = True
    35. Me.CtlPropertyContainer1.Location = New System.Drawing.Point(6, 19)
    36. Me.CtlPropertyContainer1.MoveControls = True
    37. Me.CtlPropertyContainer1.Name = "CtlPropertyContainer1"
    38. Me.CtlPropertyContainer1.ScreenUpdate = True
    39. Me.CtlPropertyContainer1.Size = New System.Drawing.Size(145, 155)
    40. Me.CtlPropertyContainer1.TabIndex = 0
    41. '
    42. 'Form1
    43. '
    44. Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
    45. Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
    46. Me.ClientSize = New System.Drawing.Size(284, 262)
    47. Me.Controls.Add(Me.CtlPropertyContainer1)
    48. Me.Name = "Form1"
    49. Me.Text = "Form1"
    50. Me.ResumeLayout(False)
    52. End Sub
    53. Friend WithEvents CtlPropertyContainer1 As PropertyContainer.CtlPropertyContainer
    54. End Class


    Durch Zufall fand ich heraus: Füge ich in die Datei folgende Codezeile ein, so geht es!

    Quellcode

    1. Me.CtlPropertyContainer1 = New PropertyContainer.CtlPropertyContainer


    Nun die Frage:
    Wie kann ich dafür sorgen,
    1. dass es ohne die eben genannte Codezeile geht
    oder
    2. dass die eben genannte Codezeile autom. eingefügt wird?

    Folgend der Quellcode des Container-Controls (gekürzt, da Post sonst zu lang. Kompletter Quellcode des Containers im Anahng)

    CtlPropertyContainer.vb (nur Konstruktor)

    Quellcode

    1. ​ Public Sub New()
    2. MyBase.New()
    4. InitializeComponent()
    6. mcColLabel = New ClsColLabel()
    8. mcColPcProperty = New ClsColPcProperty
    9. mcColPcProperty.PropertyContainer = Me
    11. mbMoveControls = True
    12. mbEventsEnabled = True
    13. End Sub


    CtlPropertyContainer.Designer
    ​

    Quellcode

    1. ​<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
    2. Partial Class CtlPropertyContainer
    3. Inherits System.Windows.Forms.UserControl
    5. 'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
    6. <System.Diagnostics.DebuggerNonUserCode()> _
    7. Protected Overrides Sub Dispose(ByVal disposing As Boolean)
    8. Try
    9. If disposing AndAlso components IsNot Nothing Then
    10. components.Dispose()
    11. End If
    12. Finally
    13. MyBase.Dispose(disposing)
    14. End Try
    15. End Sub
    17. 'Wird vom Windows Form-Designer benötigt.
    18. Private components As System.ComponentModel.IContainer
    20. 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
    21. 'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
    22. 'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
    23. <System.Diagnostics.DebuggerStepThrough()> _
    24. Private Sub InitializeComponent()
    25. Me.PictureBox1 = New System.Windows.Forms.PictureBox()
    26. Me.VScrollBar1 = New System.Windows.Forms.VScrollBar()
    27. CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
    28. Me.SuspendLayout()
    29. '
    30. 'PictureBox1
    31. '
    32. Me.PictureBox1.Location = New System.Drawing.Point(0, 0)
    33. Me.PictureBox1.Name = "PictureBox1"
    34. Me.PictureBox1.Size = New System.Drawing.Size(252, 84)
    35. Me.PictureBox1.TabIndex = 0
    36. Me.PictureBox1.TabStop = False
    37. '
    38. 'VScrollBar1
    39. '
    40. Me.VScrollBar1.Location = New System.Drawing.Point(254, 0)
    41. Me.VScrollBar1.Name = "VScrollBar1"
    42. Me.VScrollBar1.Size = New System.Drawing.Size(17, 85)
    43. Me.VScrollBar1.TabIndex = 2
    44. '
    45. 'CtlPropertyContainer
    46. '
    47. Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
    48. Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
    49. Me.Controls.Add(Me.VScrollBar1)
    50. Me.Controls.Add(Me.PictureBox1)
    51. Me.Name = "CtlPropertyContainer"
    52. Me.Size = New System.Drawing.Size(280, 91)
    53. CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
    54. Me.ResumeLayout(False)
    56. End Sub
    57. Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox
    58. Friend WithEvents VScrollBar1 As System.Windows.Forms.VScrollBar
    60. End Class
    Dateien

    • Controls.zip

      (8,63 kB, 99 mal heruntergeladen, zuletzt: )