typeconverter.vb

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

                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 ConvertToByte(ByVal Source As Object, ByVal SourceTypeCode As TypeCode) As Byte
        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
                Return CByte(DirectCast(Source, Integer))
            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 ConvertToChar(ByVal Source As Object, ByVal SourceTypeCode As TypeCode) As Char
        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
                Dim str As String = DirectCast(Source, String)
                If str.Length = 1 Then Return str(0)
                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 ConvertToDateTime(ByVal Source As Object, ByVal SourceTypeCode As TypeCode) As DateTime
        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 ConvertToDBNull(ByVal Source As Object, ByVal SourceTypeCode As TypeCode) As DBNull
        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 ConvertToDecimal(ByVal Source As Object, ByVal SourceTypeCode As TypeCode) As Object
        Dim result As Decimal
        Select Case SourceTypeCode
            Case TypeCode.Boolean
                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.SByte, TypeCode.Int16, TypeCode.Int32, TypeCode.Int64
                result = CLng(Source)
            Case TypeCode.Object
                Throw New NotImplementedException
            Case TypeCode.Single
                Throw New NotImplementedException
            Case TypeCode.String
                Throw New NotImplementedException
            Case TypeCode.Byte, TypeCode.UInt16, TypeCode.UInt32, TypeCode.UInt64
                result = CULng(Source)
            Case Else
                Throw New NotImplementedException()
        End Select
        Return result
    End Function

    Public Shared Function ConvertToDouble(ByVal Source As Object, ByVal SourceTypeCode As TypeCode) As Double
        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
                Return CDbl(Source)
            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 ConvertToEmpty(ByVal Source As Object, ByVal SourceTypeCode As TypeCode) As Object
        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 ConvertToInt16(ByVal Source As Object, ByVal SourceTypeCode As TypeCode) As Int16
        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
                Return CShort(DirectCast(Source, Integer))
            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 ConvertToInt32(ByVal Source As Object, ByVal SourceTypeCode As TypeCode) As Int32
        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