Anónimo inicialización de clase en VB.Net

Question

Quiero crear una clase anónima en vb.net exactamente como esta:

var data = new { 
       total = totalPages, 
       page = page, 
       records = totalRecords, 
       rows = new[]{ 
        new {id = 1, cell = new[] {"1", "-7", "Is this a good question?"}}, 
        new {id = 2, cell = new[] {"2", "15", "Is this a blatant ripoff?"}}, 
        new {id = 3, cell = new[] {"3", "23", "Why is the sky blue?"}} 
       } 
      }; 

THX.

Answer 1

VB.NET 2008 no tiene el constructo new[], pero VB.NET 2010 sí lo tiene. No se puede crear una matriz de tipos anónimos directamente en VB.NET 2008. El truco es declarar una función como esta:

Function GetArray(Of T)(ByVal ParamArray values() As T) As T() 
    Return values 
End Function 

Y tienen el compilador inferir el tipo para nosotros (ya que es tipo anónimo, no podemos especificar el nombre). Luego úselo como:

Dim jsonData = New With { _ 
    .total = totalPages, _ 
    .page = page, _ 
    .records = totalRecords, _ 
    .rows = GetArray(_ 
     New With {.id = 1, .cell = GetArray("1", "-7", "Is this a good question?")}, _ 
     New With {.id = 2, .cell = GetArray("2", "15", "Is this a blatant ripoff?")}, _ 
     New With {.id = 3, .cell = GetArray("3", "23", "Why is the sky blue?")} 
    ) _ 
} 

PS. Esto no se llama JSON. Se llama tipo anónimo.

Answer 2

En VS2010:

Dim jsonData = New With { 
    .total = 1, 
    .page = Page, 
    .records = 3, 
    .rows = { 
    New With {.id = 1, .cell = {"1", "-7", "Is this a good question?"}}, 
    New With {.id = 2, .cell = {"2", "15", "Is this a blatant ripoff?"}}, 
    New With {.id = 3, .cell = {"3", "23", "Why is the sky blue?"}} 
    } 
}