Properties zu einer Gruppe zusammenfassen

  • Allgemein

Es gibt 8 Antworten in diesem Thema. Der letzte Beitrag () ist von us4711.

    Properties zu einer Gruppe zusammenfassen

    Hallo liebe Community!
    Ich komme gleich zum Punkt, wie ist es mir möglich, Properties (bei einem Control) zu einer Gruppe zusammenfassen, sodass ich z.B. ColerScheme habe, dies mit dem kleinen Plus öffnen kann, und ich darunter dann die Verschiedenen Unter-Farben finde?

    Ich habe ebenfalls schon ein bisschen gegooglet und Probiert. Unter anderem bin auch <Category("ColorScheme")> gestoßen. Dies hat mir leider nicht weitergeholfen.


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

    Hi
    schau' dir mal System.ComponentModel.TypeConverter an. Das definiert eine GetProperties- und GetPropertiesSupported-Funktion. Die zurückgegebenen PropertyDescriptor-Instanzen stellen halt Properties dar, die entweder auf dem Objekt existieren oder manuell gesetzt werden. Der TypeConverter wird für den Typ durch ein TypeConverterAttribute angegeben.

    Gruß
    ~blaze~

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „~blaze~“ ()

    @~blaze~
    Getan...oder eher Versucht, jedoch weiß ich nicht wie ich das jetzt anwenden soll...

    Edit:// Moment ich glaube ich habs gleich...
    Edit:// Doch nicht...
    Ich habe herausgefunden dass es mit <TypeConverter(GetType(ExpandableObjectConverter))> _ funktionieren soll. Jedoch habe ich keine Ahnung wie ich dies Sinnvoll anwenden kann.
    Nurnochmal als kleine Information,
    Ich will bei meinem Control die Color-Properties übersichtlicher gestallten und die alle in einen kleinen Expander (o. eine Gruppe) mit dem Namen ColorScheme packen. (z.B. wie bei der Size property)

    Edit:// Danke für den Denkanstoß ich habs gelöst.
    Mit:

    VB.NET-Quellcode

    1. <TypeConverter(GetType(ExpandableObjectConverter))> _
    2. Public Property TestColor As New ColorScheme

    Die Classe ColorScheme wurde ebenfalls von mir erstellt und beinhaltet die Properties.
    Mfg: Gather
    Private Nachrichten bezüglich VB-Fragen werden Ignoriert!

    Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von „Gather“ ()

    Um's noch mal zu zeigen:

    VB.NET-Quellcode

    1. Public Class UserControl
    2. Inherits Control
    4. Public Property ColorScheme As ColorScheme
    5. End Class
    8. <System.ComponentModel.TypeConverter(GetType(ColorSchemeConverter))> _
    9. Public Structure ColorScheme
    10. Public Property BorderColor As Color
    11. Public Property ShapeContentColor As Color
    12. End Structure
    14. Public Class ColorSchemeConverter
    15. Inherits System.ComponentModel.TypeConverter
    17. Public Overrides Function GetProperties(ByVal context As System.ComponentModel.ITypeDescriptorContext, ByVal value As Object, ByVal attributes() As System.Attribute) As System.ComponentModel.PropertyDescriptorCollection
    18. Return context.PropertyDescriptor.GetChildProperties(value, attributes)
    19. End Function
    21. Public Overrides Function GetPropertiesSupported(ByVal context As System.ComponentModel.ITypeDescriptorContext) As Boolean
    22. Return True
    23. End Function
    25. Public Overrides Function CanConvertTo(ByVal context As System.ComponentModel.ITypeDescriptorContext, ByVal destinationType As System.Type) As Boolean
    26. Return GetType(String).IsAssignableFrom(destinationType)
    27. End Function
    29. Public Overrides Function IsValid(ByVal context As System.ComponentModel.ITypeDescriptorContext, ByVal value As Object) As Boolean
    30. Return value IsNot Nothing AndAlso CanConvertTo(value.GetType())
    31. End Function
    33. Public Overrides Function ConvertTo(ByVal context As System.ComponentModel.ITypeDescriptorContext, ByVal culture As System.Globalization.CultureInfo, ByVal value As Object, ByVal destinationType As System.Type) As Object
    34. If GetType(String).IsAssignableFrom(destinationType) Then
    35. Dim scheme As ColorScheme = CType(value, ColorScheme) 'ggf. konvertieren
    36. Return String.Format("BorderColor = {0}, ShapeContentColor = {1}", scheme.BorderColor, scheme.ShapeContentColor)
    37. Else
    38. Throw New ArgumentException("Cannot convert to the specified type.")
    39. End If
    40. End Function
    41. End Class

    Der Converter bietet durch context.PropertyDescriptor.GetChildProperties(value, attributes) einfach alle von der Parent-Property bereitgestellten Properties an.

    Gruß
    ~blaze~

    Zu beachten ist in jedem Falle die Designer-Seralisierung. Bei komplexeren Typen, z.B. List(of T) etc. müssen dann mit den Attributen noch weitere DEkorationen vorgenommen werden.

    VB.NET-Quellcode

    1. Imports System.ComponentModel
    3. Public Class MyUsercontrol
    4. Inherits UserControl
    5. Public Sub New()
    6. MyBase.new()
    7. Me.MyPropertyToExpand = New PropertiesToExpand
    8. End Sub
    9. <DesignerSerializationVisibilityAttribute(DesignerSerializationVisibility.Content)>
    10. Property MyPropertyToExpand As PropertiesToExpand
    11. End Class
    13. '<TypeConverterAttribute(GetType(System.ComponentModel.ExpandableObjectConverter))>
    14. <System.ComponentModel.TypeConverter(GetType(MyTypeConverter))>
    15. Public Class PropertiesToExpand
    16. Public Sub New()
    17. MyBase.new()
    18. End Sub
    19. Property WertType1 As Integer = -1
    20. Property WertType2 As String = String.Empty
    21. Property ReferenzType1 As Color = Color.Green
    22. Property ReferenzType2 As Padding = New Padding(5, 4, 3, 2)
    23. End Class
    25. Public Class MyTypeConverter ' Vorschlag von ~blaze~
    26. Inherits System.ComponentModel.ExpandableObjectConverter
    28. Public Overrides Function GetProperties(ByVal context As System.ComponentModel.ITypeDescriptorContext, ByVal value As Object, ByVal attributes() As System.Attribute) As System.ComponentModel.PropertyDescriptorCollection
    29. Return context.PropertyDescriptor.GetChildProperties(value, attributes)
    30. End Function
    32. Public Overrides Function GetPropertiesSupported(ByVal context As System.ComponentModel.ITypeDescriptorContext) As Boolean
    33. Return True
    34. End Function
    36. Public Overrides Function CanConvertTo(ByVal context As System.ComponentModel.ITypeDescriptorContext, ByVal destinationType As System.Type) As Boolean
    37. Return GetType(String).IsAssignableFrom(destinationType)
    38. End Function
    40. Public Overrides Function IsValid(ByVal context As System.ComponentModel.ITypeDescriptorContext, ByVal value As Object) As Boolean
    41. Return value IsNot Nothing AndAlso CanConvertTo(value.GetType())
    42. End Function
    44. Public Overrides Function ConvertTo(ByVal context As System.ComponentModel.ITypeDescriptorContext, ByVal culture As System.Globalization.CultureInfo, ByVal value As Object, ByVal destinationType As System.Type) As Object
    45. If GetType(String).IsAssignableFrom(destinationType) Then
    46. Dim MyClassToDecorate As PropertiesToExpand = CType(value, PropertiesToExpand) 'ggf. konvertieren
    47. Return "Properties können expandiert werden ..."
    48. Else
    49. Throw New ArgumentException("Cannot convert to the specified type.")
    50. End If
    51. End Function
    52. End Class

    also ich wüsste nicht, warum man hier einen eigenen TypConverter schreiben sollte, weil der ExpandableObjectConverter ist doch gut - oder ist ers nicht?

    Höchstens noch anzumerken, dass man auch gleich die ColorScheme-Klasse damit attributieren kann, was die Expandablität dann grundsätzlich mittm ColorScheme verknüpft, und dann braucht man nicht merh die einzelne Property damit auszuzeichnen.
    Ist egal, wenn die Klasse nur an einer Stelle verwendet wird, aber bei an mehreren Stellen wirkt sich das schon aus.

    VB.NET-Quellcode

    1. Imports System.ComponentModel
    3. <DesignerCategory("Code")> _
    4. Public Class MyControl : Inherits Control
    5. Public Property Scheme As ColorScheme
    6. Public Property Scheme2 As ColorScheme
    7. End Class
    9. <System.ComponentModel.TypeConverter(GetType(ExpandableObjectConverter))> _
    10. Public Structure ColorScheme
    11. Public Property BorderColor As Color
    12. Public Property ShapeContentColor As Color
    13. End Structure

    Solang's immer so ist ists unnötig, einen neuen Converter einzuführen. Ich bin aber davon ausgegangen, dass man auch eine eigene String-Konvertierung mit einbaut. Globales deklarieren ist auch ok. Hab' die Structure erst danach noch hinzuprogrammiert, nachdem ich gemerkt hab', dass ich die Überladung vom Convert* nicht auswendig wusste...

    Gruß
    ~blaze~

    ErfinderDesRades schrieb:

    also ich wüsste nicht, warum man hier einen eigenen TypConverter schreiben sollte, weil der ExpandableObjectConverter ist doch gut - oder ist ers nicht?


    Nur eine Sache der Optik. Damit kann man im Property-Grid komplexe Situationen im Expandable ergonomsicher darstellen. Ansonsten reicht natürlich ein einfaches Überschreiben der ToString - Methode aus.