Le portail francophone de la géomatique

Private Sub Etude_auto_MouseDown(ByVal button As Long, ByVal shift As Long, ByVal x As Long, ByVal y As Long)
  
    Dim pMxDoc As IMxDocument
    Set pMxDoc = ThisDocument

    Dim pmap As IMap
    Set pmap = pMxDoc.FocusMap

    Dim ptable As ITable
    Set ptable = pmap.Layer(0)

    Dim pRline As IRubberBand
    Set pRline = New RubberLine

    Dim pLine As IGeometry
    Set pLine = pRline.TrackNew(pMxDoc.ActiveView.ScreenDisplay, Nothing)

    Dim pPoints As IPointCollection
    Set pPoints = pLine

    Dim psfilter As ISpatialFilter
    Set psfilter = New SpatialFilter
    Set psfilter.Geometry = pMxDoc.[b]CurrentLocation[/b]
    psfilter.SpatialRel = esriSpatialRelWithin

    Dim pf_selec As IFeatureSelection
    Set pf_selec = ptable

    pf_selec.SelectFeatures psfilter, esriSelectionResultNew, False
    pMxDoc.ActiveView.Refresh

    Dim p_selset As ISelectionSet
    Set p_selset = pf_selec.SelectionSet

    Dim pcursor As ICursor
    Set pcursor = ptable.Search(psfilter, False)

    Dim prow As IRow
    Set prow = pcursor.NextRow

    Dim msg As String
    msg = ""

    Dim num_champ As Byte
    num_champ = ptable.FindField("INSEE")

    If prow Is Nothing Then
        msg = "Cliquez sur une commune svp!!"
    Else
        Do Until prow Is Nothing
            msg = prow.Value(num_champ)
            Set prow = pcursor.NextRow
        Loop   End If

MsgBox msg, , "selection"

End Sub