Take care to create your class with the right attribute too:
Create this class with <Serializable> attribute as per the example C# example followed by vb.net exmpale
C#
using Microsoft.VisualBasic;
using System;
using System.Collections;
using System.Collections.Generic;
using System.Data;
using System.Diagnostics;
using System.Web;
using System.Web.Script.Serialization;
namespace Samples
{
[Serializable()]
public class Customer
{
private int _idcustomer;
public int IDCustomer {
get { return _idcustomer; }
set { _idcustomer = value; }
}
private System.DateTime _RegistrationDate;
public System.DateTime RegistrationDate {
get { return _RegistrationDate; }
set { _RegistrationDate = value; }
}
private string _Name;
public string Name {
get { return _Name; }
set { _Name = value; }
}
private string _Surname;
public string Surname {
get { return _Surname; }
set { _Surname = value; }
}
}
[Serializable()]
public class Product
{
private int _ProductID;
public int ProductID {
get { return _ProductID; }
set { _ProductID = value; }
}
private string _ProductName;
public string ProductName {
get { return _ProductName; }
set { _ProductName = value; }
}
private int _Price;
public int Price {
get { return _Price; }
set { _Price = value; }
}
private bool _inStock;
public bool inStock {
get { return _inStock; }
set { _inStock = value; }
}
}
[Serializable()]
public class Order
{
private int _OrderId;
public int OrderID {
get { return _OrderId; }
set { _OrderId = value; }
}
private int _customerID;
public int CustomerID {
get { return _customerID; }
set { _customerID = value; }
}
private List<Product> _ProductsList;
public List<Product> ProductsList {
get { return _ProductsList; }
set { _ProductsList = value; }
}
private System.DateTime _PurchaseDate;
public System.DateTime PurchaseDate {
get { return _PurchaseDate; }
set { _PurchaseDate = value; }
}
private string _PaymentMethod;
public string PaymentMethod {
get { return _PaymentMethod; }
set { _PaymentMethod = value; }
}
public string ToJson()
{
string json = string.Empty;
JavaScriptSerializer js = new JavaScriptSerializer();
json = js.Serialize(this);
js = null;
return json;
}
}
}
VBNET EXAMPLE
Imports System
Imports System.Web
Imports System.Web.Script.Serialization
Namespace Samples
<Serializable()>
Public Class Customer
Private _idcustomer As Integer
Public Property IDCustomer() As Integer
Get
Return _idcustomer
End Get
Set(ByVal value As Integer)
_idcustomer = value
End Set
End Property
Private _RegistrationDate As Date
Public Property RegistrationDate() As Date
Get
Return _RegistrationDate
End Get
Set(ByVal value As Date)
_RegistrationDate = value
End Set
End Property
Private _Name As String
Public Property Name() As String
Get
Return _Name
End Get
Set(ByVal value As String)
_Name = value
End Set
End Property
Private _Surname As String
Public Property Surname() As String
Get
Return _Surname
End Get
Set(ByVal value As String)
_Surname = value
End Set
End Property
End Class
<Serializable()>
Public Class Product
Private _ProductID As Integer
Public Property ProductID() As Integer
Get
Return _ProductID
End Get
Set(ByVal value As Integer)
_ProductID = value
End Set
End Property
Private _ProductName As String
Public Property ProductName() As String
Get
Return _ProductName
End Get
Set(ByVal value As String)
_ProductName = value
End Set
End Property
Private _Price As Integer
Public Property Price() As Integer
Get
Return _Price
End Get
Set(ByVal value As Integer)
_Price = value
End Set
End Property
Private _inStock As Boolean
Public Property inStock() As Boolean
Get
Return _inStock
End Get
Set(ByVal value As Boolean)
_inStock = value
End Set
End Property
End Class
<Serializable>
Public Class Order
Private _OrderId As Integer
Public Property OrderID() As Integer
Get
Return _OrderId
End Get
Set(ByVal value As Integer)
_OrderId = value
End Set
End Property
Private _customerID As Integer
Public Property CustomerID() As Integer
Get
Return _customerID
End Get
Set(ByVal value As Integer)
_customerID = value
End Set
End Property
Private _ProductsList As List(Of Product)
Public Property ProductsList() As List(Of Product)
Get
Return _ProductsList
End Get
Set(ByVal value As List(Of Product))
_ProductsList = value
End Set
End Property
Private _PurchaseDate As Date
Public Property PurchaseDate() As Date
Get
Return _PurchaseDate
End Get
Set(ByVal value As Date)
_PurchaseDate = value
End Set
End Property
Private _PaymentMethod As String
Public Property PaymentMethod() As String
Get
Return _PaymentMethod
End Get
Set(ByVal value As String)
_PaymentMethod = value
End Set
End Property
Public Function ToJson() As String
Dim json As String = String.Empty
Dim js As New JavaScriptSerializer
json = js.Serialize(Me)
js = Nothing
Return json
End Function
End Class
End Namespace
The second step is to create a simple test data like this:
C#
void Main() {
List<Samples.Product> ListProducts = new List<Samples.Product>();
ListProducts.Add(new Samples.Product(), With, {.inStock=False,.Price=10, .ProductID=1,.ProductName=BookOne);
ListProducts.Add(new Samples.Product(), With, {.inStock=False,. Price=10, .ProductID=2, .ProductName=Hotels California);
ListProducts.Add(new Samples.Product(), With, {.inStock=False,.Price=10,.ProductID=3,.ProductName=Cbr);
ListProducts.Add(new Samples.Product(), With, {.inStock=False,.Price=10,.ProductID=4,.ProductName=Mustang);
ListProducts.Add(new Samples.Product(), With, {.inStock=False,.Price=10, .ProductID=15,.ProductName=Anything);
ListProducts.Add(new Samples.Product(), With, {.inStock=False,.Price=10,.ProductID=38,.ProductName=Monster Truck);
Samples.Customer Customer = new Samples.Customer();
// With...
Customer.IDCustomer = 1;
Customer.Name = "Customer1";
Customer.RegistrationDate = Now;
Customer.Surname = "SurnameCustomer";
Samples.Order Order = new Samples.Order();
// With...
Order.CustomerID = Customer.IDCustomer;
Order.OrderID = 1;
Order.PaymentMethod = "PayPal";
Order.ProductsList = ListProducts;
Order.PurchaseDate = Now;
Console.WriteLine(Order.ToJson);
Console.ReadLine();
}
VB.NET
Sub Main()
Dim ListProducts As New List(Of Samples.Product)
ListProducts.Add(New Samples.Product With {.inStock = False, .Price = 10,
.ProductID = 1, .ProductName = "BookOne"})
ListProducts.Add(New Samples.Product With {.inStock = False, .Price = 10,
.ProductID = 2, .ProductName = "Hotels California"})
ListProducts.Add(New Samples.Product With {.inStock = False, .Price = 10,
.ProductID = 3, .ProductName = "Cbr"})
ListProducts.Add(New Samples.Product With {.inStock = False, .Price = 10,
.ProductID = 4, .ProductName = "Mustang"})
ListProducts.Add(New Samples.Product With {.inStock = False, .Price = 10,
.ProductID = 15, .ProductName = "Anything"})
ListProducts.Add(New Samples.Product With {.inStock = False, .Price = 10,
.ProductID = 38, .ProductName = "Monster Truck"})
Dim Customer As New Samples.Customer
With {.IDCustomer = 1, .Name = "Customer1",.RegistrationDate = Now, .Surname ="SurnameCustomer"}
Dim Order As New Samples.Order With {
.CustomerID = Customer.IDCustomer,
.OrderID = 1,
.PaymentMethod = "PayPal",
.ProductsList = ListProducts,
.PurchaseDate = Now
}
Console.WriteLine(Order.ToJson)
Console.ReadLine()
End Sub
And this is the final result:
{"OrderID":1,"CustomerID":1,"ProductsList":[{"ProductID":1,"ProductName":"BookOn
e","Price":10,"inStock":false},{"ProductID":2,"ProductName":"Hotels California",
"Price":10,"inStock":false},{"ProductID":3,"ProductName":"Cbr","Price":10,"inSto
ck":false},{"ProductID":4,"ProductName":"Mustang","Price":10,"inStock":false},{"
ProductID":15,"ProductName":"Anything","Price":10,"inStock":false},{"ProductID":
38,"ProductName":"Monster Truck","Price":10,"inStock":false}],"PurchaseDate":"\/
Date(1396642206155)\/","PaymentMethod":"PayPal"}
Remember to add a reference to system.web.extension.dll in order to achive your goal.
