"Aufgaben-Pfeil" bei Controls

  • VB.NET

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von ~blaze~.

    Hi
    das sind Smarttags. Im folgenden Code wird z.B. bla der Kategorie blubb in eine Action-Liste (das sind die Smarttags) eingefügt. Dazu benötigt wird ein Verweis auf die System.Design-Programmbibliothek (ist bei der Clientausgabe vom FW4 nicht dabei). Anschließend einfach System.ComponentModel.Design importieren.

    VB.NET-Quellcode

    1. Public Class CustomDesignerDings
    2. Inherits System.Windows.Forms.Design.ControlDesigner
    3. Private _actionList As DesignerActionListCollection
    4. Public Overrides ReadOnly Property ActionLists As DesignerActionListCollection
    5. Get
    6. If _actionList Is Nothing Then
    7. _actionList = CreateActionLists()
    8. End If
    9. Return _actionList
    10. End Get
    11. End Property
    12. Protected Overridable Function CreateActionLists() As DesignerActionListCollection
    13. Dim collection As New DesignerActionListCollection()
    14. collection.Add(New MyActionList(Component))
    15. Return collection
    16. End Function
    17. Public Overrides Sub Initialize(ByVal component As System.ComponentModel.IComponent)
    18. _actionList = Nothing
    19. MyBase.Initialize(component)
    20. End Sub
    21. Private Class MyActionList
    22. Inherits DesignerActionList
    23. Private ReadOnly _items As DesignerActionItemCollection
    24. Public Sub New(ByVal component As System.ComponentModel.IComponent)
    25. MyBase.New(component)
    26. _items = New DesignerActionItemCollection()
    27. Dim item As New DesignerActionHeaderItem("bla", "blubb")
    28. _items.Add(item)
    29. End Sub
    30. Public Overrides Function GetSortedActionItems() As System.ComponentModel.Design.DesignerActionItemCollection
    31. Return _items
    32. End Function
    33. End Class
    34. End Class

    die Einbindung erfolgt dann über das Designer-Attribut:

    VB.NET-Quellcode

    1. <System.ComponentModel.Designer(GetType(CustomDesignerDings))> _
    2. Public Class CustomControl
    3. Inherits Control
    4. End Class


    Gruß
    ~blaze~