JSON.Net retourne toujours {}

Question

Foo

Public Class Foo 
    Private fooz As Object 
    Private alao As ArrayList 

    Public Sub New(ByVal pfooz) 
     Me.fooz = New Object 
     Me.alao = New ArrayList() 

     Me.alao.Add(1) 
     Me.alao.Add(2) 
     Me.alao.Add(3) 
     Me.alao.Add(4) 
     Me.alao.Add(5) 
    End Sub 
End Class 

Bar

Public Class Bar 
    Private baz As Integer 
    Private bar As String 
    Private foo As Foo 

    Public Sub New(ByVal pbaz, ByVal pbar, ByVal pfoo) 
     Me.baz = pbaz 
     Me.bar = pbar 
     Me.foo = pfoo 
    End Sub 
End Class 

Ma forme

Public Class Form1 

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 
     Dim foo As Foo = New Foo(New Object) 
     Dim bar As Bar = New Bar(1, "FOOOOOOOOOOOOO, bar?", foo) 
     Dim fooString As String 
     Dim barString As String 

     fooString = Newtonsoft.Json.JsonConvert.SerializeObject(foo) 
     barString = Newtonsoft.Json.JsonConvert.SerializeObject(bar) 

     MsgBox(fooString) 
     MsgBox(barString) 
    End Sub 
End Class 

Je reçois toujours {} comme réponse. Qu'est-ce qui ne va pas?

Answer 1

Aucune de ces classes n'a des propriétés ou champs Public. Si vous souhaitez représenter vos champs en tant que valeurs devant être présentes dans une chaîne JSON, rendez-les publics. Sinon, en ce qui concerne le sérialiseur, vous lui donnez des objets sans valeur intéressante.