版主我加了一个pFeature.Shape.Envelope.CenterAt(pPoint)，还是没有反应？

Dim pFeatureLayer1 As ESRI.ArcGIS.Carto.IFeatureLayer
Dim pCursor As ESRI.ArcGIS.Geodatabase.IFeatureCursor
Dim pFilter As ESRI.ArcGIS.Geodatabase.QueryFilter
Dim pFeature As ESRI.ArcGIS.Geodatabase.IFeature
Dim pEnv As IEnvelope
Dim pPoint As ESRI.ArcGIS.Geometry.IPoint = New ESRI.ArcGIS.Geometry.Point()

这块是图层检索代码省略了
pEnv = Me.AxMapControl1.ActiveView.Extent

pPoint.X = pEnv.XMin
pPoint.Y = pEnv.YMin
pPoint.PutCoords(pPoint.X, pPoint.Y)
Me.AxMapControl1.Map.SelectFeature(pFeatureLayer1, pFeature)
pFeature.Shape.Envelope.CenterAt(pPoint)
Me.AxMapControl1.Extent = pFeature.Shape.Envelope

End If

已经解决了。

解决了就行，忘了刷新了吧

期待看到有用的回答！