Convert vb.net class object to JSON string in vb.net

Question

I am a c# developer and have the requirement to work in vb.net project. I am facing a simple issue I need to convert a class object to json string in vb.net.Problem is when I check the string after conversion I am getting output as:

[{},{},{}]

I am trying to store value of 3 objects into it but I am getting 3 empty objects {}. My code is like this:

Imports System.Web.Script.Serialization

Partial Class test
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        Dim serializer As New JavaScriptSerializer
        Dim msgObj As msg
        Dim loginList As New List(Of msg)()

        msgObj = New msg("mubashir", True)
        loginList.Add(msgObj)
        msgObj = New msg("yasir", False)
        loginList.Add(msgObj)
        msgObj = New msg("umar", True)
        loginList.Add(msgObj)
        Dim s As String = serializer.Serialize(loginList)
        Response.Write(s)

    End Sub
End Class
Public Class msg
    Dim message As String
    Dim status As Boolean
    Sub New(ByRef Messag As String, ByVal Stat As Boolean)



        Me.message = Messag
        Me.status = Stat

    End Sub
End Class

Nguyen Kien · Accepted Answer · 2015-05-12 09:17:47Z

5

message, status need to declare as Property.

Public Class msg
      Public Property message() As String
      Public Property status() As Boolean
      Sub New(ByRef Messag As String, ByVal Stat As Boolean)
            Me.message = Messag
            Me.status = Stat    
      End Sub
End Class

answered May 12, 2015 at 9:17

Nguyen Kien

1,9272 gold badges16 silver badges23 bronze badges

Sign up to request clarification or add additional context in comments.

2 Comments

killer Over a year ago

Its working, thx Nguyen Kien...but may I know reason why it wasnot working. I think private class members are not serialized.

Nguyen Kien Over a year ago

Of course, private member is not serialize, even in c#

Pondidum · Accepted Answer · 2015-05-12 09:18:45Z

2

It looks like it's your msg class at fault here, as you have declared two fields rather than two properties:

Public Class msg
    Public Property message() As String
    Public Property status() As Boolean
    Sub New(ByRef Messag As String, ByVal Stat As Boolean)
        Me.message = Messag
        Me.status = Stat

    End Sub
End Class

answered May 12, 2015 at 9:18

Pondidum

11.7k8 gold badges53 silver badges69 bronze badges

Collectives™ on Stack Overflow

Convert vb.net class object to JSON string in vb.net

2 Answers 2

2 Comments

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

2 Answers 2

2 Comments

Comments

Your Answer

Sign up or log in

Post as a guest

Related