LzmTW + uRuntimeHelper

 Author：水如烟  

Namespace LzmTW
    Public Class uRuntimeHelper
        Private Shared gInternalSyncObject As Object

        Public Shared ReadOnly Property InternalSyncObject() As Object
            Get
                If gInternalSyncObject Is Nothing Then
                    Dim tmpObj As New Object
                    System.Threading.Interlocked.CompareExchange(gInternalSyncObject, tmpObj, Nothing)
                End If
                Return gInternalSyncObject
            End Get
        End Property

        Public Shared Function Converter(Of V, T)(ByVal item As V) As T
            Dim tmp As Object = CType(item, Object)
            Dim mResult As T = CType(tmp, T)
            Return mResult
        End Function

        Public Shared Function ChangeType(ByVal value As Object, ByVal referObject As Object) As Object
            Dim mResult As Object = System.Convert.ChangeType(value, Type.GetTypeCode(referObject.GetType))
            Return mResult
        End Function

        Public Shared Function IsBaseType(ByVal value As Object) As Boolean
            If value Is Nothing Then Return False

            Dim mTypeCode As Integer = Type.GetTypeCode(value.GetType)

            If mTypeCode = 1 Then Return False 'Object

            Dim mTypeCodes As Integer() = CType([Enum].GetValues(GetType(TypeCode)), Integer())

            Return Not (Array.IndexOf(Of Integer)(mTypeCodes, mTypeCode) = -1)
        End Function

    End Class


End Namespace