NIM004549 for No Product Found

Bug ID Number	NIM004549
Submitted	October 2, 2006
Last Modified	June 5, 2024
Applies to	No Product Found
Version found	9.2 RC
Program language	VB6
Status	Will Not Be Addressed

Additional Information

No Public Explanation

Workaround

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.