I am really sorry for my terrible English.But I need your help.I would really appreciate someone giving me some help with this small for you and big for me problem. Here is a procedure I clicking on the object I'm doing it Select, and how to get to the record now that is allocated, saw somewhere Sample and I do not remember where = ( Private Sub Info_dil_MouseDown(ByVal button As Long, ByVal shift As Long, ByVal x As Long, ByVal y As Long) Dim pMxApp As IMxApplication Dim pMxDoc As IMxDocument Dim pMap As IMap Dim pActiveView As IActiveView Dim pEnvelope As IEnvelope Dim pIDArray As IArray Dim pIdentify As IIdentify Dim pIdObj As IIdentifyObj Dim pFeatIdObj As IFeatureIdentifyObj Set pMxApp = Application Set pMxDoc = Application.Document Set pMap = pMxDoc.FocusMap Set pActiveView = pMap Set pEnvelope = pMxDoc.CurrentLocation.Envelope pEnvelope.Expand pMxDoc.SearchTolerance, pMxDoc.SearchTolerance, False 'Refresh the old selection to erase it pActiveView.PartialRefresh esriViewGeoSelection, Nothing, Nothing 'Perform the selection using a point created on mouse down pMap.SelectByShape pEnvelope, pMxApp.SelectionEnvironment, True 'Refresh again to draw the new selection pActiveView.PartialRefresh esriViewGeoSelection, Nothing, Nothing End Sub
... View more