Le portail francophone de la géomatique

 
    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 = pPoints
    psfilter.SpatialRel = esriSpatialRelWithin
    
     Dim pf_selec As IFeatureSelection
    Set pf_selec = ptable
        pf_selec.Clear
        
    pf_selec.SelectFeatures psfilter, esriSelectionResultNew, False
    
    Dim i As Integer
    
    For i = 1 To pPoints.PointCount
       Set psfilter.Geometry = pPoints.Point(i - 1)
       pf_selec.SelectFeatures psfilter, esriSelectionResultXOR, False
    Next i
     
    pmxdoc.ActiveView.Refresh
    
    Dim pcursor As ICursor
    Set pcursor = ptable.Search(psfilter, False)

    Dim prow As IRow
    Set prow = pcursor.NextRow

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

        Do Until prow Is Nothing
            Me.ListBox1.AddItem prow.Value(num_champ)
            Set prow = pcursor.NextRow
        Loop