反射的应用

Imports System.Reflection
Module Module1
    Sub Main()
        Dim p As New Person
        p.Name = "cuishengli"
        p.Age = 30
        p.Tall = 1.78
        p.Birth = "1978-09-18"

        Console.WriteLine("dict:")
        Dim dict = GetInformation(p)
        For Each i In dict
            Console.WriteLine("key={0};Value={1}", i.Key, i.Value)
        Next

        Console.WriteLine("P2:")
        Dim p2 = Create(Of Person)(dict)
        Console.WriteLine(p2.ToString)

        Console.ReadLine()
    End Sub

    Function Create(Of T As New)(dict As Dictionary(Of String, String)) As T
        Dim obj As New T
        Dim tp As Type = GetType(T)
        For Each pi In tp.GetProperties
            Select Case pi.PropertyType.Name
                Case "String"
                    pi.SetValue(obj, dict(pi.Name), Nothing)
                Case "Double"
                    pi.SetValue(obj, CDbl(dict(pi.Name)), Nothing)
                Case "Int32"
                    pi.SetValue(obj, CInt(dict(pi.Name)), Nothing)
                Case "DateTime"
                    pi.SetValue(obj, Date.Parse(dict(pi.Name)), Nothing)
                Case Else
                    Throw New Exception("create 不能处理类型：" & pi.PropertyType.Name)
            End Select
        Next
        Return obj
    End Function

    Function GetInformation(obj As Object) As Dictionary(Of String, String)
        Dim dict As New Dictionary(Of String, String)
        Dim tp = obj.GetType
        For Each pi In tp.GetProperties
            dict.Add(pi.Name, pi.GetValue(obj, Nothing))
        Next
        Return dict
    End Function

End Module