Feedback

VB - BooleanConverter

Veröffentlicht von am 3/4/2010
(2 Bewertungen)
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
Abgelegt unter boolean convert.

Kommentare zum Snippet

 

Logge dich ein, um hier zu kommentieren!