PropertyGrid Eigenschaft mit eigenem Objekt

  • VB.NET

Es gibt 6 Antworten in diesem Thema. Der letzte Beitrag () ist von Pascal J..

    PropertyGrid Eigenschaft mit eigenem Objekt

    Hi,
    ich arbeite momentan an ein Projekt, und dort benötige ich das PropertyControl. Für bestimmte Daten habe ich jetzt ein eigenes Objekt erstellt.

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Class Kosten
    2. Private _Aktiv As Integer
    3. Private _Inaktiv As Integer
    5. ''' <summary>
    6. ''' Erstellt ein neues KostenObjekt. Aktive und Inaktive Kosten sind = 0
    7. ''' </summary>
    8. ''' <remarks></remarks>
    9. Public Sub New()
    10. _Aktiv = 0
    11. _Inaktiv = 0
    12. End Sub
    14. ''' <summary>
    15. ''' Erstellt ein neues KostenObjekt. InAktive kosten sind = 0
    16. ''' </summary>
    17. ''' <param name="aktiv">Aktive Kosten als Integer</param>
    18. Public Sub New(ByVal aktiv As Integer)
    19. _Aktiv = aktiv
    20. _Inaktiv = 0
    21. End Sub
    23. ''' <summary>
    24. ''' Erstellt ein neues KostenObjekt
    25. ''' </summary>
    26. ''' <param name="aktiv">Aktive Kosten</param>
    27. ''' <param name="inaktiv">Inaktive Kosten</param>
    28. Public Sub New(ByVal aktiv As Integer, ByVal inaktiv As Integer)
    29. _Aktiv = aktiv
    30. _Inaktiv = inaktiv
    31. End Sub
    33. ''' <summary>
    34. ''' Legt die Aktive Kosten fest.
    35. ''' </summary>
    36. ''' <value>Setzt Aktive Kosten.</value>
    37. ''' <returns>Gibt aktuelle Aktive Kosten zurück.</returns>
    38. Public Property Aktiv() As Integer
    39. Get
    40. Return _Aktiv
    41. End Get
    42. Set(value As Integer)
    43. _Aktiv = value
    44. End Set
    45. End Property
    47. ''' <summary>
    48. ''' Legt die InAktiven Kosten fest
    49. ''' </summary>
    50. ''' <value>Setzt die Aktiven Kosten.</value>
    51. ''' <returns>Gibt aktuelle Inaktive Kosten zurück.</returns>
    52. Public Property InAktiv() As Integer
    53. Get
    54. Return _Inaktiv
    55. End Get
    56. Set(value As Integer)
    57. _Inaktiv = value
    58. End Set
    59. End Property
    60. End Class

    Wenn ich das jezt im propertyGrid einbinden will, wird es im Programm anschließend ausgegraut angezeigt, und ich kann nichts eingeben, und wenn ich im Konstruktor schon Daten eingebe wird mir dann anschließend nur gezeigt das dort ein Objekt vom Typ Kosten drinnen ist. Ich weiß jetzt nicht was ich noch alles verändern muss, damit es richtig angezeigt werden kann.

    Spoiler anzeigen
    Nachher soll das so da stehen: "10;0". Die erste Zahl für die Aktiven Kosten, und die Zweite für die Inaktiven


    VB.NET-Quellcode

    1. Private _bilanz As Kosten
    3. <Category("Kosten"), Description("Aktive und Inaktive Bilanzauswirkungen des Gebäudes"), DisplayName("Bilanzauswirkungen")> _
    4. Property Bilanz() As Kosten
    5. Get
    6. Return _bilanz
    7. End Get
    8. Set(value As Kosten)
    9. _bilanz = value
    10. End Set
    11. End Property
    „Ex-ter-mi-nate all knock-knock jokes! They are an enemy of the daleks “ A Dalek
    Mein Blog zum Thema Klarträumen

    So, hab das Tutorial an meine Bedingungen angepasst:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Class KostenKonverter : Inherits ExpandableObjectConverter
    2. Public Overrides Function CanConvertTo(context As System.ComponentModel.ITypeDescriptorContext, destinationType As System.Type) As Boolean
    3. If (destinationType Is GetType(Kosten)) Then
    4. Return True
    5. End If
    6. Return MyBase.CanConvertTo(context, destinationType)
    7. End Function
    9. Public Overrides Function CanConvertFrom(context As System.ComponentModel.ITypeDescriptorContext, sourceType As System.Type) As Boolean
    10. If (sourceType Is GetType(String)) Then
    11. Return True
    12. End If
    13. Return MyBase.CanConvertFrom(context, sourceType)
    14. End Function
    16. Public Overrides Function ConvertFrom(context As System.ComponentModel.ITypeDescriptorContext, culture As System.Globalization.CultureInfo, value As Object) As Object
    17. If TypeOf value Is String Then
    18. Try
    19. Dim s As String = CType(value, String)
    20. Dim Kostenparts() As String
    21. Dim KostenString As String
    23. Kostenparts = Split(s, ";")
    25. If Not IsNothing(Kostenparts) Then
    26. Dim cost As Kosten = New Kosten
    27. If Not IsNothing(Kostenparts(0)) Then
    28. cost.Aktiv = Kostenparts(0)
    29. End If
    30. If Not IsNothing(Kostenparts(1)) Then
    31. cost.InAktiv = Kostenparts(1)
    32. Else
    33. cost.InAktiv = 0
    34. End If
    35. End If
    36. Catch ex As Exception
    37. Throw New ArgumentException(ex.ToString)
    38. End Try
    39. End If
    40. Return MyBase.ConvertFrom(context, culture, value)
    41. End Function
    43. Public Overrides Function ConvertTo(context As System.ComponentModel.ITypeDescriptorContext, culture As System.Globalization.CultureInfo, value As Object, destinationType As System.Type) As Object
    44. If (destinationType Is GetType(String)) AndAlso TypeOf value Is Kosten Then
    45. Dim Cost As Kosten = CType(value, Kosten)
    46. Return Cost.Aktiv & ";" & Cost.InAktiv
    47. End If
    48. Return MyBase.ConvertTo(context, culture, value, destinationType)
    49. End Function
    50. End Class


    VB.NET-Quellcode

    1. <TypeConverter(GetType(KostenKonverter)), Category("Kosten"), Description("Aktive und Inaktive Bilanzauswirkungen des Gebäudes"), DisplayName("Bilanzauswirkungen")> _
    2. Property Bilanz() As Kosten
    3. Get
    4. Return _bilanz
    5. End Get
    6. Set(value As Kosten)
    7. _bilanz = value
    8. End Set
    9. End Property



    Ein Plus zum anzeigen der anderen Eigenschaften taucht nicht auf. Und wenn ich zum Beispiel "0;0" eingebe kommt der Fehler: "KostenKonverter kann nicht von System.String konvertieren." Der taucht in der Function "ConvertFrom" auf, aber ich habe keine Ahnung wie ich den beheben könnte.
    „Ex-ter-mi-nate all knock-knock jokes! They are an enemy of the daleks “ A Dalek
    Mein Blog zum Thema Klarträumen

    Du musst wahrscheinlich den Operator überladen.
    Beispiel (muss in die Kosten-Klasse):

    VB.NET-Quellcode

    1. Public Shared Widening Operator CType(str As String) As Kosten
    2. Dim Splitted() = str.Split(";") ' bei ; trennen
    3. Return New Kosten(CInt(Splitted(0)), CInt(Splitted(1)))
    4. End Operator

    Damit können String-Objekte in Kosten umgewandelt werden.
    Kannst du auch so ausprobieren:

    VB.NET-Quellcode

    1. Dim Str = "12;13"
    2. Dim Kosten As Kosten = Str
    3. ' ...

    Tut mir leid, aber ich versteh jetzt leider garnicht was der Code macht(suche gerade in der msdn). Und Leider tritt der Fehler immernoch auf, wenn ich alles eingefügt habe.

    Ich hab jetzt noch mal genau überprüft wo der Fehler auftritt.
    Und zwar bei der Return anweisung in der Funktion ConvertFrom

    Edit: Habe jetzt mal die ganze Klassen "ConvertFrom" auskommentier. Der Fehler ist immernoch da. Ich such den jetztmal woanders.

    Edit²:
    Habe die Lösung gefunden. Ich habe die Variable "_bilanz" nicht richtig initialisiert. Ich habe "= new Kosten()" vergessen.

    VB.NET-Quellcode

    1. <Category("Kosten"), Description("Aktive und Inaktive Bilanzauswirkungen des Gebäudes"), DisplayName("Bilanzauswirkungen")> _
    2. Property Bilanz() As Kosten
    3. Get
    4. Return _bilanz
    5. End Get
    6. Set(value As Kosten)
    7. _bilanz = value
    8. End Set
    9. End Property
    „Ex-ter-mi-nate all knock-knock jokes! They are an enemy of the daleks “ A Dalek
    Mein Blog zum Thema Klarträumen

    Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von „Pascal J.“ ()

    Habe mir gerade die ConvertFrom-Methode angesehen.
    Ich denke, du musst das

    VB.NET-Quellcode

    1. Return MyBase.ConvertFrom(context, culture, value)
    löschen und stattdessen das neue Kosten-Objekt zurückgeben.