C#转VB.NET遇到的问题

Imports System.Runtime.Serialization

Imports Newtonsoft.Json

Imports Newtonsoft.Json.Linq

Imports Newtonsoft.Json.Converters



Public Class Class2

	Public Function JsonConvertDemo()

		Dim user As User = New User() {UserId = 1, UserName = "李刚", CreateDate = DateTime.Now.AddYears(-30), Birthday = DateTime.Now.AddYears(-50), Priority = Priority.BelowNormal, Salary = 5000}

		'JsonConvert类在Newtonsoft.Json.Net35.dll中，注意到http://www.codeplex.com/json/下载这个dll并添加这个引用

		'JSON序列化

		Dim result As String = JsonConvert.SerializeObject(User)

		Console.WriteLine("使用JsonConvert序列化后的结果：{0},长度：{1}", result, result.Length)

		'JSON反序列化

		user = JsonConvert.DeserializeObject < user > (result)

		Console.WriteLine("使用JsonConvert反序列化后的结果：UserId:{0},UserName:{1},CreateDate:{2},Priority:{3}", user.UserId, user.UserName, user.CreateDate, user.Priority)

	End Function



	'<Serializable()>

	Public Class User

		'' <summary>

		'' 编号

		'' </summary>

		Public Property UserId As Integer

			Get



			End Get

			Set(ByVal value As Integer)



			End Set

		End Property

                .........

		Public Sub User()

			Urls = New List(Of String)

		End Sub

	End Class

	'' <summary>

	'' 权利级别

	'' </summary>

	Public Enum Priority As Byte

		Lowest = 1

		BelowNormal = 2

		Normal = 4

		AboveNormal = 8

		Highest = 22

	End Enum

End Class