设计界面和控件功能同上一节，只是换了DataContractJsonSerializer来生成和解析json。
使用.net framework 4.5框架，不用专门再去引用system.web.extensions，直接在代码中

Imports System.Runtime.Serialization.Json

Imports System.IO

button1生成：

Private Sub Button1_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles Button1.Click
        Dim newbooks As New Books

        Dim newBook As New BookStore
        Dim newSingleBook As New Book
        newSingleBook.Title = "这是测试"
        newSingleBook.Author = "作者"
        newSingleBook.Country = "中国"
        newSingleBook.Price = 10.2
        newSingleBook.Year = "1985"
        newBook.book = newSingleBook
        newbooks.bookstore = newBook

        Dim serializer As New DataContractJsonSerializer(GetType(Books))
        Dim ms As New MemoryStream()
        serializer.WriteObject(ms,newbooks)
        Dim json() As Byte
        json = ms.ToArray
        ms.Close()

        Dim strNewBook As String = System.Text.Encoding.UTF8.GetString(json)

        TextBox1.Text = strNewBook
    End Sub

button2解析：

Private Sub Button2_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles Button2.Click
        Dim strNewBook As String = TextBox1.Text

        Dim newbooks As New Books

        Dim serializer As New DataContractJsonSerializer(GetType(Books))

        Dim bteNewBook() As Byte
        bteNewBook = System.Text.Encoding.UTF8.GetBytes(strNewBook)

        Dim ms As MemoryStream
        ms = New MemoryStream(bteNewBook) '

        newbooks = serializer.ReadObject(ms)

        TextBox2.Text &= "---------------" & ControlChars.CrLf
        TextBox2.Text &= "Title：" & newbooks.bookstore.book.Title & ControlChars.CrLf
        TextBox2.Text &= "Author：" & newbooks.bookstore.book.Author & ControlChars.CrLf
        TextBox2.Text &= "Country：" & newbooks.bookstore.book.Country & ControlChars.CrLf
        TextBox2.Text &= "Price：" & newbooks.bookstore.book.Price & ControlChars.CrLf
        TextBox2.Text &= "Year：" & newbooks.bookstore.book.Year & ControlChars.CrLf
    End Sub

button3生成：

Private Sub Button3_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles Button3.Click
        Dim newBooks As New Books1
        ReDim newBooks.bookstore(2)

        Dim newSingleBook As New Book
        newSingleBook.Title = "这是测试"
        newSingleBook.Author = "作者"
        newSingleBook.Country = "中国"
        newSingleBook.Price = 10
        newSingleBook.Year = "1985"

        Dim newBook As New BookStore1
        newBook.book = newSingleBook
        newBooks.bookstore(0) = newBook

        newSingleBook = New Book
        newSingleBook.Title = "这是测试1"
        newSingleBook.Author = "作者"
        newSingleBook.Country = "中国"
        newSingleBook.Price = 11
        newSingleBook.Year = "1985"

        newBook = New BookStore1
        newBook.book = newSingleBook
        newBooks.bookstore(1) = newBook


        newSingleBook = New Book
        newSingleBook.Title = "这是测试2"
        newSingleBook.Author = "作者"
        newSingleBook.Country = "中国"
        newSingleBook.Price = 12
        newSingleBook.Year = "1985"

        newBook = New BookStore1
        newBook.book = newSingleBook
        newBooks.bookstore(2) = newBook



        Dim serializer As New DataContractJsonSerializer(GetType(Books1))
        Dim ms As New MemoryStream()
        serializer.WriteObject(ms,newBooks)
        Dim json() As Byte
        json = ms.ToArray
        ms.Close()

        Dim strNewBook As String = System.Text.Encoding.UTF8.GetString(json)

        TextBox1.Text = strNewBook
    End Sub

button4解析：

Private Sub Button4_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles Button4.Click
        Dim strNewBook As String = TextBox1.Text

        Dim newbooks As New Books1

        Dim serializer As New DataContractJsonSerializer(GetType(Books1))

        Dim bteNewBook() As Byte
        bteNewBook = System.Text.Encoding.UTF8.GetBytes(strNewBook)

        Dim ms As MemoryStream
        ms = New MemoryStream(bteNewBook) '

        newbooks = serializer.ReadObject(ms)

        For i As Integer = 0 To newbooks.bookstore.Length - 1
            TextBox2.Text &= "---------------" & ControlChars.CrLf
            TextBox2.Text &= "Title：" & newbooks.bookstore(i).book.Title & ControlChars.CrLf
            TextBox2.Text &= "Author：" & newbooks.bookstore(i).book.Author & ControlChars.CrLf
            TextBox2.Text &= "Country：" & newbooks.bookstore(i).book.Country & ControlChars.CrLf
            TextBox2.Text &= "Price：" & newbooks.bookstore(i).book.Price & ControlChars.CrLf
            TextBox2.Text &= "Year：" & newbooks.bookstore(i).book.Year & ControlChars.CrLf
        Next
    End Sub

生成的结果同上一节。

由于.net平台下C#和vb.NET很相似，本文也可以为C#爱好者提供参考。

学习更多vb.net知识，请参看vb.net 教程 目录