NIM063686 for ArcGIS for Desktop

Numéro d’ID de bogue	NIM063686
Envoi	December 18, 2010
Dernière modification	June 5, 2024
S’applique à	ArcGIS for Desktop
Version trouvée	10.0
Langue du programme	VBA
Statut	Will Not Be Addressed

Informations supplémentaires

Currently, we have no plans to address this issue.

Solution de contournement

' Remove or comment-out the line ' Set pEnumElement = pGraphicsContainer.LocateElements(pPoint, 0.2) ' as it will be inside the Do Loop of this workaround as shown below: Set pEnumElement = Nothing lngCounter = 0 Do While pEnumElement Is Nothing Set pEnumElement = pGraphicsContainer.LocateElements(pPoint, 0.2) lngCounter = lngCounter + 1 Debug.Print lngCounter '*************************************************************** 'Using DoEvents here. Without DoEvents, pEnumElement is always 'Nothing and an endless loop will occur. '*************************************************************** DoEvents '******************************************************************** 'This avoids endless loop whenever DoEvents is not used. This should 'not be needed with DoEvents, but is here in case DoEvents is removed, 'otherwise, endless loop occurs and document will never open. '******************************************************************** If lngCounter > 100000 Then Exit Function MsgBox "Exit Function" End If Loop '************************************************************************ 'Alternatively to DoEvents, using MsgBox gives time for PageLayout 'elements to load. When user dismisses MsgBox, all elements have loaded. '************************************************************************ 'MsgBox "Adding stamp..."