[VB.NET Tips]创建匿名类型列表

在调用一些Web API时经常要发送或接收一些数据，在构造Json时可能要创建一些类。
很多都是在调用相关方法才使用到这些类，那使用匿名类型是个不错的选择。如果要传些表结构数据时，就要创建List。
匿名类型创建List还是动一下脑筋的。直接上代码。

    '匿名类型事例
    Dim sample = New With {
                            .Name = "Teng",
                            Key .Sex = "男",                                 'Key关键字定义只读匿名类型成员
                            .Address = New Object(),
                            .Run = Function(ByRef x As Integer) As Integer   '定义匿名方法                                     
                                        Return x + 10
                                    End Function
                            }

    '创建匿名类型
    Dim obj = New With {
                        .PartNo = "20010C01",
                        .Qty = 200
                        }

    '基于这个匿名类型创建一个空的List
    Dim objList = CreateEmptyList(obj)

    'List中增加匿名类型
    objList.Add(obj)
    'List中增加匿名类型
    objList.Add(New With {.PartNo = "20010C02", .Qty = 300})
    'List中增加匿名类型
    objList.Add(New With {.PartNo = "20010D01", .Qty = 200})

    '创建空的List
    Public Function CreateEmptyList(Of T)(ByVal obj As T) As List(Of T)

        Dim NewList As New List(Of T)

        Return NewList

    End Function