Konvertiert diverse Typen in Boolean. Der Grund, warum ich diese Funktion geschrieben habe war, weil ich ein Single Wert der auf "1" stand mit dem SystemComponent Converter nicht auf "True" konvertieren konnte.
Public Function BooleanConverter(ByVal Src As Object) As Boolean
If Src Is Nothing Then Return False
Dim W As String = ";yes;on;1;y;enabled;ein;true;"
Dim SrcW As String
SrcW = System.ComponentModel.TypeDescriptor.GetConverter(Src.GetType).ConvertToString(Src)
If W.Contains(";" & SrcW.ToLower & ";") Then
Return True
Else
Return False
End If
End Function
Kommentare zum Snippet