Designer: Fehler beim erstellen einer Komponente

  • VB.NET

Es gibt 4 Antworten in diesem Thema. Der letzte Beitrag () ist von Eddy.

    Designer: Fehler beim erstellen einer Komponente

    Hi,

    ich habe mir ein Control gemacht, alle Klassen davon habe ich in ein bestehendes Projekt importiert, aber wenn ich das Control auf ein Form machen moechte, bekommen ich eine Fehlermeldung. Was kann dafuer die Ursache sein? Wenn ich ein neues Projekt anlege, geht alles gut. Ist die Projektmappe irgendwie zerschossen?

    VB.NET-Quellcode

    1. Imports System.ComponentModel.Design
    2. Imports System.Windows.Forms.Design
    3. Imports System.ComponentModel
    5. Public Class EqualizerDesigner
    6. Inherits ParentControlDesigner
    8. Private ReadOnly Property HostControl() As EqualizerControl
    9. Get
    10. Return DirectCast(Control, EqualizerControl)
    11. End Get
    12. End Property
    14. Public Sub New()
    15. MyBase.New()
    16. _DesignerVerbCollection.Add(New DesignerVerb("Slider hinzufuegen", AddressOf OnAddSlider))
    17. '_DesignerVerbCollection.AddRange({New DesignerVerb("Slider hinzufuegen", AddressOf OnAddSlider), New DesignerVerb("Slider entfernen", AddressOf OnRemoveSlider)})
    18. End Sub
    20. Protected Overrides Sub OnPaintAdornments(ByVal pe As System.Windows.Forms.PaintEventArgs)
    21. MyBase.OnPaintAdornments(pe)
    22. Dim dashedPen As New Pen(Color.Gray)
    23. Dim borderRectangle As Rectangle = Control.ClientRectangle
    24. borderRectangle.Width -= 1
    25. borderRectangle.Height -= 1
    26. dashedPen.DashStyle = Drawing2D.DashStyle.Dash
    27. pe.Graphics.DrawRectangle(dashedPen, borderRectangle)
    28. dashedPen.Dispose()
    29. End Sub
    31. Private _DesignerVerbCollection As New DesignerVerbCollection
    32. Public Overrides ReadOnly Property Verbs() As DesignerVerbCollection
    33. Get
    34. If _DesignerVerbCollection.Count = 2 Then
    35. If HostControl.Sliders.Count > 0 Then
    36. _DesignerVerbCollection(1).Enabled = True
    37. Else
    38. _DesignerVerbCollection(1).Enabled = False
    39. End If
    40. End If
    41. Return _DesignerVerbCollection
    42. End Get
    43. End Property
    45. Private _IDesignerHost As IDesignerHost
    46. Public ReadOnly Property DesignerHost() As IDesignerHost
    47. Get
    48. If _IDesignerHost Is Nothing Then
    49. _IDesignerHost = DirectCast(GetService(GetType(IDesignerHost)), IDesignerHost)
    50. End If
    51. Return _IDesignerHost
    52. End Get
    53. End Property
    55. Private _ISelectionService As ISelectionService
    56. Public ReadOnly Property SelectionService() As ISelectionService
    57. Get
    58. If _ISelectionService Is Nothing Then
    59. _ISelectionService = DirectCast(GetService(GetType(ISelectionService)), ISelectionService)
    60. End If
    61. Return _ISelectionService
    62. End Get
    63. End Property
    65. Private Sub OnAddSlider(ByVal sender As Object, ByVal e As EventArgs)
    66. Dim ctrls As Control.ControlCollection = HostControl.Controls
    67. RaiseComponentChanging(TypeDescriptor.GetProperties(HostControl)("Sliders"))
    68. Dim sl As Slider = DirectCast(DesignerHost.CreateComponent(GetType(Slider)), Slider)
    69. HostControl.Sliders.Add(sl)
    70. sl.Location = New Point(ctrls.Count * 20, 0)
    71. sl.Range = HostControl.Range
    72. sl.ForeColor = HostControl.ForeColor
    73. RaiseComponentChanged(TypeDescriptor.GetProperties(HostControl)("Sliders"), ctrls, HostControl.Sliders)
    74. HostControl.SelectedSlider = sl
    75. AddHandler sl.ValueChanged, AddressOf HostControl.Sliders_ValueChanged
    76. SetVerbs()
    77. End Sub
    79. Private Sub OnRemoveSlider(ByVal sender As Object, ByVal e As EventArgs)
    80. Dim ctrls As Control.ControlCollection = HostControl.Controls
    81. If HostControl.SelectedIndex < 0 Then
    82. Return
    83. End If
    84. RaiseComponentChanging(TypeDescriptor.GetProperties(HostControl)("Slider"))
    85. DesignerHost.DestroyComponent(CType(HostControl.Sliders(HostControl.SelectedIndex), Slider))
    86. RaiseComponentChanged(TypeDescriptor.GetProperties(HostControl)("Sliders"), ctrls, HostControl.sliders)
    87. SelectionService.SetSelectedComponents(New IComponent() {HostControl}, SelectionTypes.Auto)
    88. SetVerbs()
    89. End Sub
    91. Private Sub SetVerbs()
    92. Select Case HostControl.Sliders.Count
    93. Case 0
    94. Verbs(1).Enabled = False
    95. Case 1
    96. Verbs(1).Enabled = True
    97. End Select
    98. End Sub
    100. Protected Overrides Sub PostFilterProperties(ByVal properties As IDictionary)
    101. properties.Remove("Text")
    102. MyBase.PostFilterProperties(properties)
    103. End Sub
    105. Public Overrides Sub OnSetComponentDefaults()
    106. HostControl.Sliders.Add(DirectCast(DesignerHost.CreateComponent(GetType(Slider)), Slider))
    107. HostControl.Sliders.Add(DirectCast(DesignerHost.CreateComponent(GetType(Slider)), Slider))
    108. Dim equalizer As EqualizerControl = DirectCast(Control, EqualizerControl)
    109. equalizer.Sliders(0).Location = New Point(20, 0)
    110. equalizer.Sliders(0).ForeColor = HostControl.ForeColor
    111. DirectCast(equalizer.Sliders(0), Slider).Range = Ranges._0To10
    112. equalizer.Sliders(1).Location = New Point(40, 0)
    113. equalizer.Sliders(1).ForeColor = HostControl.ForeColor
    114. DirectCast(equalizer.Sliders(1), Slider).Range = Ranges._0To10
    115. HostControl.SelectedIndex = 0
    116. End Sub
    118. Public Overrides ReadOnly Property SelectionRules() As SelectionRules
    119. Get
    120. Dim rules As SelectionRules = MyBase.SelectionRules
    121. rules = SelectionRules.Moveable Or SelectionRules.Visible Or SelectionRules.None
    122. Return rules
    123. End Get
    124. End Property
    126. End Class
    Bilder

    • Unbenannt.png

      58,43 kB, 541×521, 177 mal angesehen
    And i think to myself... what a wonderfuL World!

    Eddy schrieb:

    in ein bestehendes Projekt importiert
    Als DLL oder als Datei?
    Falls DLL - wie ist die kompiliert (x64, x86, AnyCPU) bitte auf AnyCPU ändern, egal, wie das Projekt steht.
    ====
    Welche Fehlermeldung genau?
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Eddy schrieb:

    importiert
    Bitte meine Fragengenau beantworten:

    RodFromGermany schrieb:

    Als DLL oder als Datei?
    Falls DLL - wie ist die kompiliert (x64, x86, AnyCPU) bitte auf AnyCPU ändern, egal, wie das Projekt steht.
    =====
    Kann es sein, dass Du 2 logisch verschiedene Musik.EqualizerControl-Elemente hast: ggf. ein vorheriger Verweis und der neue Verweis, obwohl die Quellen identisch sind?
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Hier nutze ich keine DLL, habe nur im Projektmappenexplorer vorhandene Elemente hinzufuegen gewahlt. Ich schau mal wegen der Verweise.

    Edit:
    @RodFromGermany da war ein Verweis auf die bin/Debug/Musik.exe drin. Dachte mir erst nichts dabei(weiss auch nicht woher der kommt), aber nach dem entfernen geht es nun.
    And i think to myself... what a wonderfuL World!

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „Eddy“ ()

Facebook
Telefonspende