NIM004549 for No Product Found

Numéro d’ID de bogue	NIM004549
Envoi	October 2, 2006
Dernière modification	June 5, 2024
S’applique à	No Product Found
Version trouvée	9.2 RC
Langue du programme	VB6
Statut	Will Not Be Addressed

Informations supplémentaires

No Public Explanation

Solution de contournement

To implement IGeoDataset, put the code below into clsLogoLayer.cls:Implements IGeoDatasetPrivate Property Get IGeoDataset_Extent() As esriGeometry.IEnvelope If Not ILayer_Valid Then Set m_pExtent = Nothing ElseIf m_pExtent Is Nothing Then Dim pEnv As esriGeometry.IEnvelope Set pEnv = New esriGeometry.Envelope With pEnv Set .SpatialReference = IGeoDataset_SpatialReference .XMin = ILayer_AreaOfInterest.XMin .YMin = ILayer_AreaOfInterest.YMin .XMax = ILayer_AreaOfInterest.XMax .YMax = ILayer_AreaOfInterest.YMax End With Set m_pExtent = pEnv End If If m_pExtent Is Nothing Then Exit Property Set IGeoDataset_Extent = m_pExtentEnd PropertyPrivate Property Get IGeoDataset_SpatialReference() As esriGeometry.ISpatialReference If m_pDataSpatialRef Is Nothing Then Dim pSRefFact As ISpatialReferenceFactory2 Set pSRefFact = New SpatialReferenceEnvironment Set m_pDataSpatialRef = pSRefFact.CreateProjectedCoordinateSystem(esriSRProjCS_World_Robinson) End If Set IGeoDataset_SpatialReference = m_pDataSpatialRefEnd PropertyMake the .dll and create a new logo layer, and create a new WMS service. It can be connected this time.