[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