19行处将产生异常:因为将字符串s的一个可序列化的对象反序列化(user)之后尝试转换成yonghu
1 Imports LhqSoft.DataHelper
2 Module Module1
3
4 Sub Main()
5
6 Dim y As New yonghu
7 y.num = 1000
8 y.mima = 1000
9 y.price = 1
10
11 Dim u As New user
12 u.name = "AAAAAAAA"
13
14 Dim s As String = LhqSoft.DataHelper.Serializer.SoapSerialize(y)
15 Dim s1 As String = LhqSoft.DataHelper.Serializer.SoapSerialize(u)
16 s = s + s1
17
18 Dim y1 As yonghu = LhqSoft.DataHelper.Serializer.SoapDeserialize(Of yonghu)(s)
19 Dim u1 As user = LhqSoft.DataHelper.Serializer.SoapDeserialize(Of user)(s)2 Module Module1
3
4 Sub Main()
5
6 Dim y As New yonghu
7 y.num = 1000
8 y.mima = 1000
9 y.price = 1
10
11 Dim u As New user
12 u.name = "AAAAAAAA"
13
14 Dim s As String = LhqSoft.DataHelper.Serializer.SoapSerialize(y)
15 Dim s1 As String = LhqSoft.DataHelper.Serializer.SoapSerialize(u)
16 s = s + s1
17
18 Dim y1 As yonghu = LhqSoft.DataHelper.Serializer.SoapDeserialize(Of yonghu)(s)
20
21
22
23 End Sub
24
25
26
27 End Module
28
29 <Serializable()> _
30 Public Class yonghu
31
32
33 Public price As String, vote As String, subcount As String, Userserver As String, deadtime As String
34 Public yonghuming As String, num As Integer, mima As String
35
36
37
38
39 End Class
40
41 <Serializable()> Public Class user
42 Public name As String
43 End Class
44