[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