在呼叫一些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
轉載請註明出處，本文鏈接：https://www.uj5u.com/caozuo/6498.html
標籤：Windows