IGraphicsContainerSelect::SelectElement method does not highlight the selection of the IFDOGraphicsLayer.
最後に公開された状態: August 25, 2014No Product Found
不具合 ID 番号
NIM013321
送信されました
November 29, 2007
最終更新日
June 5, 2024
適用対象
No Product Found
見つかったバージョン
9.2
プログラム言語
VBA
ステータス
Will Not Be Addressed
開発チームは、この問題またはリクエストを検討した結果、これに対処しないことに決定しました。 問題の「参考情報」セクションに、さらに詳細な説明が示されていることがあります。
参考情報
No Public Explanation
対処法
Public Sub SelectGeoDBAnnoByEnvelopeObjectID()Dim pMxDoc As IMxDocumentSet pMxDoc = ThisDocumentDim pMap As IMapSet pMap = pMxDoc.FocusMapDim pFDOGraphicsLayer As IFDOGraphicsLayerSet pFDOGraphicsLayer = pMap.Layer(0)Dim pCmdItem As ICommandItem'Use ArcID module and the Name of the start edit commandSet pCmdItem = Application.Document.CommandBars.Find(arcid.Editor_StartEditing)pCmdItem.ExecuteSet pMap.ActiveGraphicsLayer = pFDOGraphicsLayerDim pGC As IGraphicsContainerSet pGC = pMap.ActiveGraphicsLayerDim pGCSelect As IGraphicsContainerSelectSet pGCSelect = pGCDim pEnumElement As IEnumElementSet pEnumElement = pGC.LocateElementsByEnvelope(pMxDoc.ActiveView.FullExtent)pEnumElement.ResetDim pAnnoElement As IAnnotationElementSet pAnnoElement = pEnumElement.NextDo While Not pAnnoElement Is Nothing Dim pFeature As IFeature Set pFeature = pAnnoElement.Feature If pFeature.OID = "373" Then pGCSelect.SelectElement pAnnoElement End If Set pAnnoElement = pEnumElement.NextLooppMxDoc.ActiveView.RefreshEnd Sub