Créer une liste de type anonyme dans VB

J'aimerais créer une liste d'un type anonyme, par exemple:

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

J'ai créé un type anonyme. Maintenant, je voudrais ajouter à une liste de ce type. Comment dois-je déclarer une liste de ce type?

source d'informationauteur Daniel

  1. 14

    Voici une méthode pratique pour la création d'une liste d'un type anonyme à partir d'un seul type anonyme.

    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

    Maintenant, vous pouvez simplement faire ce qui suit

    Dim list = CreateListFromSingle(dsResource)

    MODIFIER OP voulait une façon de créer de la liste avant de créer un élément.

    Il y a 2 façons de le faire. Vous pouvez utiliser le code suivant pour créer une liste vide. Elle a des frontières avec hacky parce que vous êtes de passage des paramètres, vous n'avez pas l'intention d'utiliser, mais il fonctionne.

      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 })
  2. 8

    Ici est de savoir comment le faire inline à l'aide de coulée par exemple (sans la création d'une deuxième fonction):

    Sub Main()
    Dim x = New With {.Name = "Bob", .Number = 8675309}
    Dim xList = {x}.ToList()
End Sub

    (basé sur la version c# posté ici )

    Essentiellement, vous créez le type anonyme, le mettre dans un array ( {x} ), puis utilisez le tableau .ToList() méthode pour obtenir une liste.

  3. 6

    Puisque le type est anonyme, vous devez utiliser des génériques et de l'inférence de type.

    La meilleure façon est d'introduire une fonction générique qui crée un vide collection à partir d'un objet prototype.

    Module Module1

    Sub Main()
        Dim dsResource = New With {.Name = "Foo"}

        Dim List = dsResource.CreateTypedList
    End Sub

    <System.Runtime.CompilerServices.Extension()> _
    Function CreateTypedList(Of T)(ByVal Prototype As T) As List(Of T)
        Return New List(Of T)()
    End Function

End Module
  4. 6

    Comment sur une seule ligne de construction comme cela?

    Dim yourList = {(New With {.Name="", .Age=0})}.Take(0).ToList
  5. 2

    J'aime Jared solution, mais juste pour montrer l'équivalent direct de Jon code (en dépit de mon commentaire):

    Public Function EnumerateFromSingle(Of T)(ByVal p1 As T) As IEnumerable(Of T)
    Return New T() { p1 }
End Function

    Pas très utile en soi, puisqu'il n'est pas extensible ... mais peut être utilisée pour amorcer d'autres LINQ magique pour créer de plus grandes listes.

  6. 1

    Dans une seule ligne, vous pouvez ajouter les types anonymes dans une liste

    Dim aList = {(New With {.Name="John", .Age=30}),(.Name="Julie", .Age=32)}.ToList
  7. 0

    Si vous êtes en train d'ajouter des valeurs à la liste par itération, je suppose que vous avez un IEnumerable pour commencer? Utilisez simplement .Select avec .ToList. Qu'est ce que c'est conçu pour.

    Dim l = dsResources.Select(Function(d) New With {
                              .Name = d.Last_Name & ", " & d.First_Name
                          }).ToList()