Public Class ChatEntity
Private mString As String
Public Sub New(Byval xString As String)
mString = xString
End Sub
End Class
|
|
|
Public Sub XMLSerialize(Of T)(ByVal Obj As Object, ByVal FileName As String)
Dim XML As New XmlSerializer(GetType(T))
Dim FS As New FileStream(FileName, FileMode.Create)
XML.Serialize(FS, Obj)
FS.Close()
End Sub
Public Function XMLDeSerialize(Of T)(ByVal FileName As String) As Object
Dim XML As New XmlSerializer(GetType(T))
Dim FS As New FileStream(FileName, FileMode.Open)
Dim RetObj As Object = XML.Deserialize(FS)
FS.Close()
Return RetObj
End Function
Dim x as New ChatEntity("Test")
XMLSerialize(x,"myChatEntity.xml")|
|
|
