VB.net版本中的Json

我看到C版本中有很多例子。与MSDN中的

DataContractJsonSerializer

类相同。是否有人可以帮助我了解VB.net版本？

私有子按钮1\u单击（ByVal sender作为对象，ByVal e作为事件参数）
Private Sub button1_Click(ByVal sender As Object, ByVal e As EventArgs)
            Dim ser As New DataContractJsonSerializer(GetType(Product))
            Using fs As FileStream = File.OpenRead("c:\jsonText.txt")

                Dim product As Product = TryCast(ser.ReadObject(fs), Product)
                MessageBox.Show("Product Name: " & product.Name)
            End Using
        End Sub
    End Class

    <Serializable()> _
    Public Class Product
        Public Name As String
    End Class
End Namespace

Dim ser作为新的DataContractJsonSerializer（GetType（产品））
使用fs作为FileStream=File.OpenRead（“c:\jsonText.txt”）
Dim product As product=TryCast（ser.ReadObject（fs），product）
MessageBox.Show（“产品名称：”&Product.Name）
终端使用
端接头
末级
_
公共类产品
公共名称作为字符串
末级
结束命名空间

---

这是从msdn中获取的vb.net示例，由developerfusion converter转换而成。这是我在另一个问题中编写的相同源代码。这是一段非常简单的代码，使用JAYROCK库（您可以在此处免费下载：）读取JSON格式的字符串，并输出嵌套在“error”中的参数调用“message”的值。非常基本的东西，但它可能会帮助你

Dim cMessage As String = "{ ""error"" : { ""code"" : 500, " & _
                                """message"" : ""Error Executing Task. " & _
                                "Error executing tool.""," & _
                                """details"" : [] " & _
                                "}" & _
                                "}"

Dim objResponse As JsonObject


objResponse = CType(JsonConvert.Import(cMessage), JsonObject)

MsgBox( "Last response was: " + objResponse("error")("message") )

注意：为了让代码正常工作，不要忘记导入Jayrock.Json和Jayrock.Json。转换

将C#代码移植到VB.NET通常很简单。像这样的转换器工作得很好。如果你有任何具体的问题，那就用更多的细节来编辑你的文章。事实上-或者使用“反射器”，它可以做（有限的）翻译。