No35401 の元投稿が Dim data() As Shohin という 配列宣言だったからそれを真似ただけでのことです。 別に配列でも List(Of ) でも同じことですよ。
件数が不定なら、List(Of ) の方が良いでしょうね。
' 実際は data.Add(〜) を繰り返す感じになるはず Dim data As New List(Of Shohin)() From { New Shohin With {.商品C = 10000, .商品名 = "商品A"}, New Shohin With {.商品C = 10001, .商品名 = "商品B"}, New Shohin With {.商品C = 10002, .商品名 = "商品C"} }
'GetType を配列から List(Of ) に変更 Dim serializer As New DataContractJsonSerializer(GetType(List(Of Shohin))) Dim ms As New MemoryStream() serializer.WriteObject(ms, data)
