fat_cat

Get the records values

Discussion created by fat_cat on Nov 30, 2011
Latest reply on Nov 30, 2011 by fat_cat
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

Outcomes