NIM000524 for No Product Found

Bug-ID-Nummer	NIM000524
Eingereicht	December 7, 2005
Zuletzt geändert	June 5, 2024
Gilt für	No Product Found
Gefunden in Version	9.1
Status	Non-Reproducible

Zusätzliche Informationen

No Public Explanation

Workaround

Please update KB article with this code - the code in the description is to accurateSub Test() Dim pMxDoc As IMxDocument Dim pDoc As IDocument Dim pMap As IMap Dim pApp As IApplication Set pDoc = ThisDocument Set pApp = pDoc.Parent Set pMxDoc = pDoc Set pMap = pMxDoc.FocusMap Dim pLayer As IFeatureLayer Set pLayer = pMap.Layer(0) Dim pSheet As IComPropertySheet Set pSheet = New esriFramework.ComPropertySheet Dim pPset As esriSystem.ISet Set pPset = New esriSystem.Set Dim page As IPropertyPage Dim pUID As New UID Dim bChanged As Boolean pPset.Add pLayer pPset.Add pMap pPset.Add pApp pUID.Value = "{1476C782-6F57-11D2-A2C6-080009B6F22B}" pSheet.AddCategoryID pUID pSheet.Title = "Layer Properties" bChanged = pSheet.EditProperties(pPset, ThisDocument.Parent.hWnd) End Sub