.net - 在 VB 中创建匿名类型列表

Question

我想创建一个匿名类型的列表，例如:

Dim lineItem = New With {.Name = myFile(index).Last_Name & ", " & myFile(index).First_Name, _
                         .StartDate = myFile(index).Day,
                         .EndDate = myFile(index).Day}

我已经创建了该匿名类型。现在我想将其添加到该类型的列表中。如何声明该类型的列表？

Answer 1

这是一种从单个匿名类型创建匿名类型列表的便捷方法。

Public Function CreateListFromSingle(Of T)(ByVal p1 As T) As List(Of T)
  Dim list As New List(Of T)
  list.Add(p1)
  return List
End Function

现在您可以执行以下操作

Dim list = CreateListFromSingle(dsResource)

编辑OP想要一种在创建元素之前创建列表的方法。

有两种方法可以做到这一点。您可以使用以下代码创建一个空列表。它与 hacky 接壤，因为您正在传递您不打算使用的参数，但它有效。

  Public Function CreateEmptyList(Of T)(ByVal unused As T) As List(Of T)
    Return New List(Of T)()
  End Function

  Dim x = CreateEmptyList(New With { .Name = String.Empty, .ID = 42 })