//c# 实体类
class Test1
{
    public string Name { get; set; }
    public DateTime DateTime { get; set; }
}

'vb 实体类
Public Class Test1
    Property Name As String
    Property DateTime As Date
End Class

//引入空间名
using NearExtensions;

//准备数据
var obj = new Test1() 
{ 
    DateTime = DateTime.MaxValue 
};

//序列化成JSON字符串
var json = obj.SerializerJson();

'引入空间名
Imports NearExtensions

'准备数据
Dim obj = New Test1() With 
{
    .DateTime = Date.MaxValue
}

'序列化成JSON字符串
dim json = obj.SerializerJson()

{"DateTime":"9999-12-31T23:59:59.9999999"}

//c#
var json = obj.SerializerJson(isIgnoreNull: false,isIndented:true);

'vb
Dim json = obj.SerializerJson(isIgnoreNull:=False, isIndented:=True)

{
  "Name": null,
  "DateTime": "9999-12-31T23:59:59.9999999"
}

//c#
var json = obj.SerializerJson(dateFormatString: "yyyy-MM-dd");

'vb
Dim json = obj.SerializerJson(dateFormatString:="yyyy-MM-dd")

{"DateTime":"9999-12-31"}

//c#
var json = "{\"DateTime\":\"9999-12-31T23:59:59.9999999\"}";
var test1 = json.DeserializeJson<Test1>();

'vb
Dim json As String = <s>{"DateTime":"9999-12-31T23:59:59.9999999"}</s>
dim test1 = json.DeserializeJson(of Test1)()

//c# 实体类
interface IItem
{
    string Name { get; set; }
}

class Item : IItem
{
    public string Name { get; set; }
}

class Test2
{
    public IList<IItem> Items { get; set; }
}

//调用
var test2 = new Test2()
{
    Items = new List<IItem>()
    {
        new Item(){  Name = "A" },
        new Item(){  Name = "B" },
    }
};

//获得JSON
var json = test2.SerializerJson();

//使用DeserializeOptions添加类型转换
var deserializeOptions = new DeserializeOptions()
    .AddTypeConvert<IList<IItem>, List<Item>>();

//反序列化成对象
var obj = json.DeserializeJson<Test2>(deserializeOptions);

//验证结果
Debug.Assert(obj.Items.First().Name == test2.Items.First().Name);

'vb 实体类
Interface IItem
    Property Name As String
End Interface

Class Item
    Implements IItem
    Public Property Name As String Implements IItem.Name
End Class

Class Test2
    Property Items As IList(Of IItem)
End Class
    
'调用
Dim test2 = New Test2 With
{
    .Items = New List(Of IItem) From
    {
        New Item With {.Name = "A"},
        New Item With {.Name = "B"}
    }
}

'获得JSON文本
Dim json = test2.SerializerJson()

'使用DeserializeOptions添加类型转换
Dim deserializeOptions = New DeserializeOptions().
    AddTypeConvert(Of IList(Of IItem), List(Of Item))

'反序列化成对象
Dim obj = json.DeserializeJson(Of Test2)(deserializeOptions)

'验证结果
Debug.Assert(obj.Items.First().Name = test2.Items.First().Name)    
    

//c#
var test1 = new Test1() { Name = "A" };

//序列化
var xml = test1.SerializerXml();

//反序列化
var obj = xml.DeserializeXml<Test1>();

//验证结果
Debug.Assert(obj.Name == test1.Name);

'vb
Dim test1 = New Test1() With {.Name = "A"}

'序列化
Dim xml = test1.SerializerXml()

'反序列化
Dim obj = xml.DeserializeXml(Of Test1)

'验证结果
Debug.Assert(obj.Name = test1.Name)

//c# 实体类
class ClassA
{
    public string Name { get; set; }
}

class ClassB
{
    public string Name { get; set; }
}

//---调用
var data = new ClassA() { Name = "A" };

//执行转换(ClassA 转换为 ClassB)
var obj = data.ToObject<ClassB>();

//验证结果
Debug.Assert(obj is ClassB);
Debug.Assert(obj.Name == data.Name);

'vb 实体类
Class ClassA
    Property Name As String
End Class

Class ClassB
    Property Name As String
End Class
        
'---调用
Dim data = New ClassA With {.Name = "A"}

'执行转换(ClassA 转换为 ClassB)
Dim obj = data.ToObject(Of ClassB)

'验证结果
Debug.Assert(TypeOf obj Is ClassB)
Debug.Assert(obj.Name = data.Name)
        

//类定义
interface IItem
{
    string Name { get; set; }
}

class Item : IItem
{
    public string Name { get; set; }
}

class ClassC
{
    public IItem Item { get; set; }
}

class ClassD
{
    public Item Item { get; set; }
}

//---调用
//准备数据
var data = new ClassC()
{
    Item = new Item { Name = "A" }
};

//转换选项(添加类型)
//AddTypeConvert 方法用于类型映射,如果不能直接转换可使用委托转换.
//AddTypeConvert<IItem, Item>(x => x as Item);
var convertOptions = new ConvertOptions()
    .AddTypeConvert<IItem, Item>();

//转换成ClassD类型
var obj = data.ToObject<ClassD>(convertOptions);

//验证结果
Debug.Assert(obj.Item.Name == data.Item.Name);

'实体类
Interface IItem
    Property Name As String
End Interface

Class Item
    Implements IItem
    Public Property Name As String Implements IItem.Name
End Class

Class ClassC
    Property Item As IItem
End Class

Class ClassD
    Property Item As Item
End Class
        
'---调用
'准备数据
Dim data = New ClassC With
{
    .Item = New Item With {.Name = "A"}
}

'转换选项(添加类型)
'AddTypeConvert 方法用于类型映射,如果不能直接转换可使用委托转换.
'AddTypeConvert(Of IItem, Item)(Function(x) => x as Item)

Dim convertOptions = New ConvertOptions().
    AddTypeConvert(Of IItem, Item)


'转换成ClassD类型
Dim obj = data.ToObject(Of ClassD)(convertOptions)

'验证结果
Debug.Assert(obj.Item.Name = data.Item.Name)