Problem mit TypeConverter

  • VB.NET

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

    Problem mit TypeConverter

    Hallo,

    ich habe ein Problem mit dem TypeConverter meiner Klasse in VB.NET. Ich bin dabei einen Datentyp namens FString zu entwickeln.

    VB.NET-Quellcode

    1. <System.ComponentModel.TypeConverterAttribute(GetType(FStringConverter))> _
    2. Public Class FString
    3. Implements IDisposable
    5. Private p As IntPtr
    6. ' [...] usw.
    7. End Class

    Damit eine direkte Umwandlung von und in den Datentyp String möglich ist, wollte ich also einen TypeConverter für die Klasse bereitstellen:

    VB.NET-Quellcode

    1. Public Class FStringConverter
    2. Inherits System.ComponentModel.TypeConverter
    4. Public Overloads Overrides Function CanConvertFrom(ByVal context As System.ComponentModel.ITypeDescriptorContext, ByVal sourceType As System.Type) As Boolean
    5. If sourceType Is GetType(String) Then
    6. Return True
    7. Else
    8. Return MyBase.CanConvertFrom(context, sourceType)
    9. End If
    10. End Function
    12. Public Overloads Overrides Function CanConvertTo(ByVal context As System.ComponentModel.ITypeDescriptorContext, ByVal destinationType As System.Type) As Boolean
    13. If destinationType Is GetType(String) Then
    14. Return True
    15. Else
    16. Return MyBase.CanConvertTo(context, destinationType)
    17. End If
    18. End Function
    20. Public Overloads Overrides Function ConvertFrom(ByVal context As System.ComponentModel.ITypeDescriptorContext, ByVal culture As System.Globalization.CultureInfo, ByVal value As Object) As Object
    21. If TypeOf value Is String Then
    22. Try
    23. Dim a As New FString
    24. a.Write(value)
    25. Return a
    26. Catch
    27. Throw New InvalidCastException(value)
    28. End Try
    29. Else
    30. Return MyBase.ConvertFrom(context, culture, value)
    31. End If
    32. End Function
    34. Public Overloads 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
    35. If destinationType is GetType(String) Then
    36. Return DirectCast(value, FString).Read
    37. Else
    38. Return MyBase.ConvertTo(context, culture, value, destinationType)
    39. End If
    40. End Function
    41. End Class


    Die Umwandlung ist folgendermaßen natürlich problemlos möglich:

    VB.NET-Quellcode

    1. Dim f As FString = System.ComponentModel.TypeDescriptor.GetConverter(GetType(FString)).ConvertFrom("somestring")


    Aber ich würde auch gerne die direkte Schreibweise nutzbar machen - also

    VB.NET-Quellcode

    1. Dim f As FString = "somestring"


    Weiß jemand eine Lösung? Wahrscheinlich stelle ich mich einfach nur blöd an.

    LG

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

    Hi,

    du musst den Operator CType überladen, sodass implizite Konvertierungen von String in FString (und umgekehrt) möglich werden. Beispiel:

    VB.NET-Quellcode

    1. Public Class FString
    2. Dim _intern As String
    4. Public Shared Widening Operator CType(ByVal a As String) As FString
    5. Return New FString(a)
    6. End Operator
    8. Public Shared Widening Operator CType(ByVal a As FString) As String
    9. Return a._intern
    10. End Operator
    12. Public Sub New(ByVal contains As String)
    13. _intern = contains
    14. End Sub
    16. End Class
    18. Module Ftest
    19. Dim f As FString = "hallo"
    20. Dim g As String = f
    21. End Module

    "Widening" legt fest, dass diese Konvertierung implizit (direkte Zuweisung mit = ) erfolgen darf. Im Gegensatz dazu würde "Narrowing" nur die explizite Konvertierung erlauben (mit CType).

    EDIT: Wenn bei der impliziten Konvertierung Daten verloren gehen können (z.B. weil FString weitere Member enthält, die von CType nicht berücksichtigt werden), solltest du den Operator mit "Narrowing" überladen.
    Gruß
    hal2000

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „hal2000“ ()

Facebook
Telefonspende