NIM000524 for No Product Found

不具合 ID 番号	NIM000524
送信されました	December 7, 2005
最終更新日	June 5, 2024
適用対象	No Product Found
見つかったバージョン	9.1
ステータス	Non-Reproducible

参考情報

No Public Explanation

対処法

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