typeconverter.vb

大名鼎鼎的mono是.NET平台的跨平台（支持linux

            Case TypeCode.Decimal
                Throw New NotImplementedException
            Case TypeCode.Double
                Throw New NotImplementedException
            Case TypeCode.Empty
                Throw New NotImplementedException
            Case TypeCode.Int16
                Throw New NotImplementedException
            Case TypeCode.Int32
                Throw New NotImplementedException
            Case TypeCode.Int64
                Throw New NotImplementedException
            Case TypeCode.Object
                Throw New NotImplementedException
            Case TypeCode.SByte
                Throw New NotImplementedException
            Case TypeCode.Single
                Throw New NotImplementedException
            Case TypeCode.String
                Throw New NotImplementedException
            Case TypeCode.UInt16
                Throw New NotImplementedException
            Case TypeCode.UInt32
                Throw New NotImplementedException
            Case TypeCode.UInt64
                Throw New NotImplementedException
            Case Else
                Throw New NotImplementedException()
        End Select
    End Function

    Public Shared Function ConvertToInt64(ByVal Source As Object, ByVal SourceTypeCode As TypeCode) As Int64
        Select Case SourceTypeCode
            Case TypeCode.Boolean
                Throw New NotImplementedException
            Case TypeCode.Byte
                Return CLng(Source)
            Case TypeCode.Char
                Throw New NotImplementedException
            Case TypeCode.DateTime
                Throw New NotImplementedException
            Case TypeCode.DBNull
                Throw New NotImplementedException
            Case TypeCode.Decimal
                Throw New NotImplementedException
            Case TypeCode.Double
                Throw New NotImplementedException
            Case TypeCode.Empty
                Throw New NotImplementedException
            Case TypeCode.Int16
                Return CLng(Source)
            Case TypeCode.Int32
                Return CLng(Source)
            Case TypeCode.Int64
                Return CLng(Source)
            Case TypeCode.Object
                Throw New NotImplementedException
            Case TypeCode.SByte
                Return CLng(Source)
            Case TypeCode.Single
                Throw New NotImplementedException
            Case TypeCode.String
                Throw New NotImplementedException
            Case TypeCode.UInt16
                Return CLng(Source)
            Case TypeCode.UInt32
                Return CLng(Source)
            Case TypeCode.UInt64
                Throw New NotImplementedException
            Case Else
                Throw New NotImplementedException()
        End Select
    End Function

    Public Shared Function ConvertToObject(ByVal Source As Object, ByVal SourceTypeCode As TypeCode) As Object
        Return Source
    End Function

    Public Shared Function ConvertToSByte(ByVal Source As Object, ByVal SourceTypeCode As TypeCode) As SByte
        Select Case SourceTypeCode
            Case TypeCode.Boolean
                Throw New NotImplementedException
            Case TypeCode.Byte
                Throw New NotImplementedException
            Case TypeCode.Char
                Throw New NotImplementedException
            Case TypeCode.DateTime
                Throw New NotImplementedException
            Case TypeCode.DBNull
                Throw New NotImplementedException
            Case TypeCode.Decimal
                Throw New NotImplementedException
            Case TypeCode.Double
                Throw New NotImplementedException
            Case TypeCode.Empty
                Throw New NotImplementedException
            Case TypeCode.Int16
                Throw New NotImplementedException
            Case TypeCode.Int32
                Throw New NotImplementedException
            Case TypeCode.Int64
                Throw New NotImplementedException
            Case TypeCode.Object
                Throw New NotImplementedException
            Case TypeCode.SByte
                Throw New NotImplementedException
            Case TypeCode.Single
                Throw New NotImplementedException
            Case TypeCode.String
                Throw New NotImplementedException
            Case TypeCode.UInt16
                Throw New NotImplementedException
            Case TypeCode.UInt32
                Throw New NotImplementedException
            Case TypeCode.UInt64
                Throw New NotImplementedException
            Case Else
                Throw New NotImplementedException()
        End Select
    End Function

    Public Shared Function ConvertToSingle(ByVal Source As Object, ByVal SourceTypeCode As TypeCode) As Single
        Select Case SourceTypeCode
            Case TypeCode.Boolean
                Throw New NotImplementedException
            Case TypeCode.Byte
                Return DirectCast(Source, Byte)
            Case TypeCode.Char
                Throw New NotImplementedException
            Case TypeCode.DateTime
                Throw New NotImplementedException
            Case TypeCode.DBNull
                Throw New NotImplementedException
            Case TypeCode.Decimal
                Throw New NotImplementedException
            Case TypeCode.Double
                Throw New NotImplementedException
            Case TypeCode.Empty
                Throw New NotImplementedException
            Case TypeCode.Int16
                Return DirectCast(Source, Short)
            Case TypeCode.Int32
                Return DirectCast(Source, Integer)
            Case TypeCode.Int64
                Return DirectCast(Source, Long)
            Case TypeCode.Object
                Throw New NotImplementedException
            Case TypeCode.SByte
                Return DirectCast(Source, SByte)
            Case TypeCode.Single
                Return DirectCast(Source, Single)
            Case TypeCode.String
                Throw New NotImplementedException
            Case TypeCode.UInt16
                Return DirectCast(Source, UShort)
            Case TypeCode.UInt32
                Return DirectCast(Source, UInteger)
            Case TypeCode.UInt64
                Return DirectCast(Source, ULong)
            Case Else
                Throw New NotImplementedException()
        End Select
    End Function

    Public Shared Function ConvertToString(ByVal Source As Object, ByVal SourceTypeCode As TypeCode) As String
        Select Case SourceTypeCode
            Case TypeCode.Boolean
                Throw New NotImplementedException
            Case TypeCode.Byte
                Throw New NotImplementedException
            Case TypeCode.Char
                Return CStr(Source)
            Case TypeCode.DateTime
                Throw New NotImplementedException
            Case TypeCode.DBNull
                Return Nothing 'Throw New NotImplementedException
            Case TypeCode.Decimal
                Throw New NotImplementedException
            Case TypeCode.Double
                Throw New NotImplementedException
            Case TypeCode.Empty
                Throw New NotImplementedException
            Case TypeCode.Int16
                Throw New NotImplementedException
            Case TypeCode.Int32
                Throw New NotImplementedException
            Case TypeCode.Int64
                Throw New NotImplementedException
            Case TypeCode.Object
                Throw New NotImplementedException
            Case TypeCode.SByte
                Throw New NotImplementedException
            Case TypeCode.Single
                Throw New NotImplementedException
            Case TypeCode.String
                Throw New NotImplementedException
            Case TypeCode.UInt16
                Throw New NotImplementedException
            Case TypeCode.UInt32
                Throw New NotImplementedException
            Case TypeCode.UInt64
                Throw New NotImplementedException
            Case Else
                Throw New NotImplementedException()
        End Select
    End Function

    Public Shared Function ConvertToUInt16(ByVal Source As Object, ByVal SourceTypeCode As TypeCode) As UInt16
        Select Case SourceTypeCode
            Case TypeCode.Boolean
                Throw New NotImplementedException
            Case TypeCode.Byte
                Throw New NotImplementedException
            Case TypeCode.Char
                Throw New NotImplementedException
            Case TypeCode.DateTime
                Throw New NotImplementedException
            Case TypeCode.DBNull
                Throw New NotImplementedException
            Case TypeCode.Decimal
                Throw New NotImplementedException
            Case TypeCode.Double
                Throw New NotImplementedException
            Case TypeCode.Empty
                Throw New NotImplementedException
            Case TypeCode.Int16
                Throw New NotImplementedException
            Case TypeCode.Int32
                Throw New NotImplementedException
            Case TypeCode.Int64
                Throw New NotImplementedException
            Case TypeCode.Object
                Throw New NotImplementedException
            Case TypeCode.SByte
                Throw New NotImplementedException
            Case TypeCode.Single
                Throw New NotImplementedException
            Case TypeCode.String
                Throw New NotImplementedException
            Case TypeCode.UInt16
                Throw New NotImplementedException
            Case TypeCode.UInt32
                Throw New NotImplementedException
            Case TypeCode.UInt64
                Throw New NotImplementedException
            Case Else
                Throw New NotImplementedException()
        End Select
    End Function

    Public Shared Function ConvertToUInt32(ByVal Source As Object, ByVal SourceTypeCode As TypeCode) As UInt32
        Select Case SourceTypeCode
            Case TypeCode.Boolean
                Throw New NotImplementedException
            Case TypeCode.Byte
                Throw New NotImplementedException
            Case TypeCode.Char
                Throw New NotImplementedException
            Case TypeCode.DateTime
                Throw New NotImplementedException
            Case TypeCode.DBNull
                Throw New NotImplementedException
            Case TypeCode.Decimal
                Throw New NotImplementedException
            Case TypeCode.Double
                Throw New NotImplementedException()
            Case TypeCode.Empty
                Throw New NotImplementedException
            Case TypeCode.Int16
                Throw New NotImplementedException
            Case TypeCode.Int32
                Throw New NotImplementedException
            Case TypeCode.Int64
                Throw New NotImplementedException
            Case TypeCode.Object
                Throw New NotImplementedException
            Case TypeCode.SByte
                Throw New NotImplementedException
            Case TypeCode.Single
                Throw New NotImplementedException
            Case TypeCode.String
                Throw New NotImplementedException
            Case TypeCode.UInt16
                Throw New NotImplementedException
            Case TypeCode.UInt32
                Throw New NotImplementedException
            Case TypeCode.UInt64
                Throw New NotImplementedException
            Case Else
                Throw New NotImplementedException()
        End Select
    End Function

    Public Shared Function ConvertToUInt64(ByVal Source As Object, ByVal SourceTypeCode As TypeCode) As Object
        Dim result As ULong
        Select Case SourceTypeCode
            Case TypeCode.Boolean
                Throw New NotImplementedException
            Case TypeCode.Byte
                result = CByte(Source)
            Case TypeCode.Char
                Throw New NotImplementedException
            Case TypeCode.DateTime
                Throw New NotImplementedException
            Case TypeCode.DBNull
                Throw New NotImplementedException
            Case TypeCode.Decimal
                Throw New NotImplementedException
            Case TypeCode.Double
                Return Nothing
            Case TypeCode.Empty
                Throw New NotImplementedException
            Case TypeCode.SByte, TypeCode.Int16, TypeCode.Int32, TypeCode.Int64
                Dim tmp As Long = CLng(Source)
                If tmp >= 0 Then
                    result = CULng(tmp)
                Else
                    Return Nothing
                End If
            Case TypeCode.Object
                Throw New NotImplementedException
            Case TypeCode.Single
                Return Nothing
            Case TypeCode.String
                Throw New NotImplementedException
            Case TypeCode.UInt16, TypeCode.UInt32, TypeCode.UInt64
                Return CULng(Source)
            Case Else
                Throw New NotImplementedException()
        End Select
        Return result
    End Function

End Class



#If GENERATOR And DEVGENERATOR = False Then
''' <summary>
''' All the keywords.
''' </summary>
''' <remarks></remarks>
Public Enum KS
    [AndAlso]
    [And]
    [Is]
    [IsNot]
    [Like]
    [Mod]
    [Not]
    [Or]
    [OrElse]
    [Xor]
    LT
    GT
    Equals
    NotEqual
    LE
    GE
    Concat
    Mult
    Add
    Minus
    Power
    RealDivision
    IntDivision
    ShiftRight
    ShiftLeft
    ConcatAssign '		L"&="
    AddAssign 'L"+="
    MinusAssign 'L"-="
    RealDivAssign 'L"/="
    IntDivAssign 'L"\="
    PowerAssign 'L"^="
    MultAssign 'L"*="
    ShiftLeftAssign '<<=
    ShiftRightAssign '>>=
End Enum
#End If