NIM013321 for No Product Found

Numéro d’ID de bogue	NIM013321
Envoi	November 29, 2007
Dernière modification	June 5, 2024
S’applique à	No Product Found
Version trouvée	9.2
Langue du programme	VBA
Statut	Will Not Be Addressed

Informations supplémentaires

No Public Explanation

Solution de contournement

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