NIM000524 for No Product Found

Número de ID do Erro	NIM000524
Enviado	December 7, 2005
Última Modificação	June 5, 2024
Aplica-se à	No Product Found
Versão encontrada	9.1
Status	Non-Reproducible

Informações Adicionais

No Public Explanation

Solução Provisória

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