Actionlist wird nicht angezeigt

  • Allgemein

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von Gather.

    Actionlist wird nicht angezeigt

    Hallo liene Community,
    ich versuche gerade meine Controls durch eine Action-List zu erweitern. Jedoch funktioniert sich nicht.
    Mein Code:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Class MetroTrackBarRegionDesigner
    2. Inherits System.Windows.Forms.Design.ControlDesigner
    4. Private lists As DesignerActionListCollection
    6. Private ReadOnly Property HostControl() As MetroTrackBarRegion
    7. Get
    8. Return DirectCast(Me.Control, MetroTrackBarRegion)
    9. End Get
    10. End Property
    12. 'Fügt die Action-Liste hinzu.
    13. Public Overrides ReadOnly Property ActionLists() As DesignerActionListCollection
    14. Get
    15. If lists Is Nothing Then
    16. lists = New DesignerActionListCollection()
    17. lists.Add(New MetroTrackBarRegionActionList(Me.Component))
    18. End If
    19. Return lists
    20. End Get
    21. End Property
    23. Protected Overrides Sub PostFilterProperties(ByVal properties As System.Collections.IDictionary)
    24. properties.Remove("BackgroundImage")
    25. properties.Remove("BackgroundImageLayout")
    26. properties.Remove("BorderStyle")
    27. properties.Remove("Font")
    28. properties.Remove("ForeColor")
    29. properties.Remove("RightToLeft")
    30. MyBase.PostFilterProperties(properties)
    31. End Sub
    32. End Class
    34. Public Class MetroTrackBarRegionActionList
    35. Inherits DesignerActionList
    37. Private _sep As MetroTrackBarRegion
    38. Private designerActionSvc As DesignerActionUIService = Nothing
    40. Public Sub New(ByVal component As IComponent)
    41. MyBase.New(component)
    42. _sep = DirectCast(component, MetroTrackBarRegion)
    44. Me.designerActionSvc = CType(GetService(GetType(DesignerActionUIService)), DesignerActionUIService)
    45. End Sub
    47. Public Property ColorLeft() As Color
    48. Get
    49. Return _sep.ColorScheme.LeftColor
    50. End Get
    51. Set(ByVal value As Color)
    52. _sep.ColorScheme.LeftColor = value
    53. End Set
    54. End Property
    56. Public Property ColorMiddle() As Color
    57. Get
    58. Return _sep.ColorScheme.MiddleColor
    59. End Get
    60. Set(ByVal value As Color)
    61. _sep.ColorScheme.MiddleColor = value
    62. End Set
    63. End Property
    65. Public Property ColorRight() As Color
    66. Get
    67. Return _sep.ColorScheme.RightColor
    68. End Get
    69. Set(ByVal value As Color)
    70. _sep.ColorScheme.RightColor = value
    71. End Set
    72. End Property
    74. Public Overrides Function GetSortedActionItems() As System.ComponentModel.Design.DesignerActionItemCollection
    75. Dim items As New DesignerActionItemCollection
    77. items.Add(New DesignerActionHeaderItem("Farb-Eigenschaften"))
    78. items.Add(New DesignerActionPropertyItem("ColorLeft", "LeftColor:", "Properties", "Die linke Farbe der Leiste."))
    79. items.Add(New DesignerActionPropertyItem("ColorMiddle", "MiddleColor:", "Properties", "Die Farbe der Leiste des ausgewählten Bereiches."))
    80. items.Add(New DesignerActionPropertyItem("ColorRight", "RightColor:", "Properties", "Die rechte Farbe der Leiste."))
    82. Return (items)
    83. End Function
    84. End Class


    Natürlich existiert eine MetroTrackBarRegion-Klasse.
    Es gibt keinen Fehler, bzw. es passier garnichts.


    Danke im Vorraus.
    Mfg: Gather
    Private Nachrichten bezüglich VB-Fragen werden Ignoriert!

    X(
    Komplett vergessen.

    Thread kann gelöscht werden ^^
    Mfg: Gather
    Private Nachrichten bezüglich VB-Fragen werden Ignoriert!