NIM006132 for No Product Found

Número de ID del error	NIM006132
Enviado	January 17, 2007
Última modificación	June 5, 2024
Relacionado con	No Product Found
Versión encontrada	9.2
Lenguaje del programa	VBA
Estado	Non-Reproducible

Información adicional

No Public Explanation

Solución alternativa

XML Serilization seems to work with renderers that contain picture*symbols.Public Sub SaveRendererToXML()On Error GoTo EH:Dim mxDoc As IMxDocumentSet mxDoc = ThisDocumentDim gfLayer As IGeoFeatureLayerSet gfLayer = mxDoc.FocusMap.Layer(0)Dim fRenderer As IFeatureRendererSet fRenderer = gfLayer.Renderer'*** Create XmlStream and XmlWriter ***Dim pStream As IXMLStreamSet pStream = New XMLStreamDim pWriter As IXMLWriterSet pWriter = New xmlWriterpWriter.WriteTo pStream'*** Create XmlSerializer ***Dim pSerializer As IXMLSerializerSet pSerializer = New XMLSerializerpSerializer.WriteObject pWriter, Nothing, Nothing, "", "", fRenderer'*** Save stream as an xml ***pStream.SaveToFile (xmlPath)Exit SubEH:MsgBox Err.Number & vbCrLf & Err.DescriptionEnd SubPublic Sub ReadRendererFromXML()On Error GoTo EH:'*** Deserialzation of string ***Dim pStream2 As IXMLStreamSet pStream2 = New XMLStreampStream2.LoadFromFile (xmlPath)'*** Create XmlReader and pass stream ***Dim pReader As IXMLReaderSet pReader = New XMLReaderpReader.ReadFrom pStream2'*** Create XmlSerializer and Read Object ***Dim pSerializer2 As IXMLSerializerSet pSerializer2 = New XMLSerializerDim r As IFeatureRendererSet r = pSerializer2.ReadObject(pReader, Nothing, Nothing)Dim mxDoc As IMxDocumentSet mxDoc = ThisDocumentDim gfLayer As IGeoFeatureLayerSet gfLayer = mxDoc.FocusMap.Layer(0)Set gfLayer.Renderer = rmxDoc.ActiveView.RefreshmxDoc.CurrentContentsView.Refresh NothingExit SubEH:MsgBox Err.Number & vbCrLf & Err.DescriptionEnd Sub