本文整理匯總了VB.NET中System.Runtime.Serialization.IDataContractSurrogate.GetObjectToSerialize方法的典型用法代碼示例。如果您正苦於以下問題：VB.NET IDataContractSurrogate.GetObjectToSerialize方法的具體用法？VB.NET IDataContractSurrogate.GetObjectToSerialize怎麽用？VB.NET IDataContractSurrogate.GetObjectToSerialize使用的例子？那麽, 這裏精選的方法代碼示例或許可以為您提供幫助。您也可以進一步了解該方法所在類System.Runtime.Serialization.IDataContractSurrogate的用法示例。
在下文中一共展示了IDataContractSurrogate.GetObjectToSerialize方法的1個代碼示例，這些例子默認根據受歡迎程度排序。您可以為喜歡或者感覺有用的代碼點讚，您的評價將有助於係統推薦出更棒的VB.NET代碼示例。
示例1: GetObjectToSerialize
Public Function GetObjectToSerialize(ByVal obj As Object, _
ByVal targetType As Type) As Object _
Implements IDataContractSurrogate.GetObjectToSerialize
Console.WriteLine("GetObjectToSerialize Invoked")
Console.WriteLine(vbTab & "type name: {0}", obj.ToString)
Console.WriteLine(vbTab & "target type: {0}", targetType.Name)
' This method is called on serialization.
' If Person is not being serialized...
If TypeOf obj Is Person Then
Console.WriteLine(vbTab & "returning PersonSurrogated")
' ... use the XmlSerializer to perform the actual serialization.
Dim ps As New PersonSurrogated()
Dim xs As New XmlSerializer(GetType(Person))
Dim sw As New StringWriter()
xs.Serialize(sw, CType(obj, Person))
ps.xmlData = sw.ToString()
Return ps
End If
Return obj
End Function開發者ID:VB.NET開發者，項目名稱:System.Runtime.Serialization，代碼行數:21，代碼來源:IDataContractSurrogate.GetObjectToSerialize