I'm trying to migrate all my 9.3 code to 10.1 and am having trouble getting my selecting a feature to work. Any assistance would be greatly appreciated. Thanks. Dim pMap As IMap Dim mpPoint As IPoint Dim pGeometry As IGeometry Dim pBuffer As IGeometry Dim mapdoc As IActiveView Dim ptopo As ITopologicalOperator Dim x As Long, y As Long Dim pPoint As Double, i As Integer Dim m_pcurrentlayer As IFeatureLayer Dim pspatialfilter As ESRI.ArcGIS.Geodatabase.ISpatialFilter Dim pfeatureClass As ESRI.ArcGIS.Geodatabase.IFeatureClass Dim pFeatureLayer As IFeatureLayer Dim pfilter As ESRI.ArcGIS.Geodatabase.IQueryFilter Dim pCursor As ESRI.ArcGIS.Geodatabase.IFeatureCursor Dim pFeature As ESRI.ArcGIS.Geodatabase.IFeature Dim flds As ESRI.ArcGIS.Geodatabase.Field Dim lgth As Double mapdoc = AxMapControl1.Map pMap = mapdoc.FocusMap mpPoint = mapdoc.ScreenDisplay.DisplayTransformation.ToMapPoint(x, y) pGeometry = mpPoint lgth = ConvertPixelsToMapUnits(pMap, 4) ptopo = pGeometry pBuffer = ptopo.Buffer(lgth) pGeometry = pBuffer.Envelope For ii = 0 To pMap.LayerCount - 1 If pMap.Layer(ii).Name = "Service Location" Then m_pcurrentlayer = pMap.Layer(ii) pFeatureLayer = m_pcurrentlayer pfeatureClass = pFeatureLayer.FeatureClass pspatialfilter = New ESRI.ArcGIS.Geodatabase.SpatialFilter pspatialfilter.Geometry = pGeometry Select Case pfeatureClass.ShapeType Case esriGeometryType.esriGeometryPoint 'Query Geometry Contains Target Geometry pspatialfilter.SpatialRel = ESRI.ArcGIS.Geodatabase.esriSpatialRelEnum.esriSpatialRelContains Case esriGeometryType.esriGeometryPolyline 'Query Geometry Crosses Target Geometry pspatialfilter.SpatialRel = ESRI.ArcGIS.Geodatabase.esriSpatialRelEnum.esriSpatialRelCrosses Case esriGeometryType.esriGeometryPolygon 'Query Geometry Intersects Target Geometry pspatialfilter.SpatialRel = ESRI.ArcGIS.Geodatabase.esriSpatialRelEnum.esriSpatialRelIntersects End Select pspatialfilter.GeometryField = pfeatureClass.ShapeFieldName pfilter = pspatialfilter pCursor = pFeatureLayer.Search(pfilter, False) pFeature = pCursor.NextFeature If Not pFeature Is Nothing Then MsgBox("It worked") End If Next
... View more