arcengine 放大到选择集，Zoom to selected features using ArcObject

In ArcMap you can zoom to the selected features for a layer by right-clicking the layer and selecting Selection > Zoom to Selected Features. This article shows how to do this task using VBA and ArcObjects.

 

Procedure

1. Start ArcMap.
2. Create a new UIButtonControl.
   
3. Right-click the UIButtonControl and select View Source.
4. Copy this code into the
   
   <!-- <br /> <br /> Code highlighting produced by Actipro CodeHighlighter (freeware)<br /> http://www.CodeHighlighter.com/<br /> <br /> -->Private   Sub UIButtonControl1_Click() Sub  UIButtonControl1_Click()
      Dim  pDoc  As  IMxDocument
      Set  pDoc  =  ThisDocument
      Dim  pMap  As  IMap
      Set  pMap  =  pDoc.FocusMap
   
      Dim  pLayer  As  IFeatureLayer
      Dim  pFSel  As  IFeatureSelection
      Set  pLayer  =  pMap.Layer( 0 )
      Set  pFSel  =  pLayer
   
      ' Get the selected features
      Dim  pSelSet  As  ISelectionSet
      Set  pSelSet  =  pFSel.SelectionSet
   
      Dim  pEnumGeom  As  IEnumGeometry
      Dim  pEnumGeomBind  As  IEnumGeometryBind
   
      Set  pEnumGeom  =   New  EnumFeatureGeometry
      Set  pEnumGeomBind  =  pEnumGeom
     pEnumGeomBind.BindGeometrySource  Nothing , pSelSet
   
      Dim  pGeomFactory  As  IGeometryFactory
      Set  pGeomFactory  =   New  GeometryEnvironment
   
      Dim  pGeom  As  IGeometry
      Set  pGeom  =  pGeomFactory.CreateGeometryFromEnumerator(pEnumGeom)
   
     pDoc.ActiveView.Extent  =  pGeom.Envelope
     pDoc.ActiveView.Refresh
   
   End Sub
   's click event.