"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
    4. Private _actionList As DesignerActionListCollection
    6. Public Overrides ReadOnly Property ActionLists As DesignerActionListCollection
    7. Get
    8. If _actionList Is Nothing Then
    9. _actionList = CreateActionLists()
    10. End If
    11. Return _actionList
    12. End Get
    13. End Property
    15. Protected Overridable Function CreateActionLists() As DesignerActionListCollection
    16. Dim collection As New DesignerActionListCollection()
    18. collection.Add(New MyActionList(Component))
    20. Return collection
    21. End Function
    23. Public Overrides Sub Initialize(ByVal component As System.ComponentModel.IComponent)
    24. _actionList = Nothing
    25. MyBase.Initialize(component)
    26. End Sub
    28. Private Class MyActionList
    29. Inherits DesignerActionList
    31. Private ReadOnly _items As DesignerActionItemCollection
    33. Public Sub New(ByVal component As System.ComponentModel.IComponent)
    34. MyBase.New(component)
    35. _items = New DesignerActionItemCollection()
    36. Dim item As New DesignerActionHeaderItem("bla", "blubb")
    38. _items.Add(item)
    39. End Sub
    41. Public Overrides Function GetSortedActionItems() As System.ComponentModel.Design.DesignerActionItemCollection
    42. Return _items
    43. End Function
    44. End Class
    45. 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~

Facebook
Telefonspende