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