Create Graphic Buffers around Selected Features Snippet

///<summary>Draws graphic buffers around the selected features in the map using distance units specified.</summary>
///
///<param name="activeView">An IActiveView interface.</param>
///<param name="distance">A System.Double that is the distance in map units around the select features to draw a graphic buffer. Example: 10</param>
/// 
///<remarks></remarks>
public void CreateGraphicBuffersAroundSelectedFeatures(ESRI.ArcGIS.Carto.IActiveView activeView, System.Double distance)
{
  //parameter check
  if (activeView == null || distance < 0)
  {
    return;
  }
  ESRI.ArcGIS.Carto.IMap map=activeView.FocusMap;
  // Clear any previous buffers from the screen
  ESRI.ArcGIS.Carto.IGraphicsContainer graphicsContainer=(ESRI.ArcGIS.Carto.IGraphicsContainer)map; // Explicit Cast
  graphicsContainer.DeleteAllElements();

  // Verify there is a feature(s) selected
  if (map.SelectionCount == 0)
  {
    return;
  }

  // Reset to the first selected feature
  ESRI.ArcGIS.Geodatabase.IEnumFeature enumFeature=(ESRI.ArcGIS.Geodatabase.IEnumFeature)map.FeatureSelection; // Explicit Cast
  enumFeature.Reset();
  ESRI.ArcGIS.Geodatabase.IFeature feature=enumFeature.Next();

  // Buffer all the selected features by the buffer distance and create a new polygon element from each result
  ESRI.ArcGIS.Geometry.ITopologicalOperator topologicalOperator;
  ESRI.ArcGIS.Carto.IElement element;
  while (!(feature == null))
  {
    topologicalOperator=(ESRI.ArcGIS.Geometry.ITopologicalOperator)feature.Shape; // Explicit Cast
    element=new ESRI.ArcGIS.Carto.PolygonElementClass();
    element.Geometry=topologicalOperator.Buffer(distance);
    graphicsContainer.AddElement(element, 0);
    feature=enumFeature.Next();
  }

  activeView.PartialRefresh(ESRI.ArcGIS.Carto.esriViewDrawPhase.esriViewGraphics, null, null);
}

'''<summary>Draws graphic buffers around the selected features in the map using distance units specified.</summary>
'''
'''<param name="activeView">An IActiveView interface.</param>
'''<param name="distance">A System.Double that is the distance in map units around the select features to draw a graphic buffer. Example: 10</param>
''' 
'''<remarks></remarks>
Public Sub CreateGraphicBuffersAroundSelectedFeatures(ByVal activeView As ESRI.ArcGIS.Carto.IActiveView, ByVal distance As System.Double)

  'parameter check
  If activeView Is Nothing OrElse distance < 0 Then
    Return
  End If

  Dim map As ESRI.ArcGIS.Carto.IMap=activeView.FocusMap
  ' Clear any previous buffers from the screen
  Dim graphicsContainer As ESRI.ArcGIS.Carto.IGraphicsContainer=CType(map, ESRI.ArcGIS.Carto.IGraphicsContainer) ' Explicit Cast
  graphicsContainer.DeleteAllElements()

  ' Verify there is a feature(s) selected
  If map.SelectionCount=0 Then
    Return
  End If

  ' Reset to the first selected feature
  Dim enumFeature As ESRI.ArcGIS.Geodatabase.IEnumFeature=CType(map.FeatureSelection, ESRI.ArcGIS.Geodatabase.IEnumFeature) ' Explicit Cast
  enumFeature.Reset()
  Dim feature As ESRI.ArcGIS.Geodatabase.IFeature=enumFeature.Next()

  ' Buffer all the selected features by the buffer distance and create a new polygon element from each result
  Dim topologicalOperator As ESRI.ArcGIS.Geometry.ITopologicalOperator
  Dim element As ESRI.ArcGIS.Carto.IElement
  Do While Not (feature Is Nothing)
    topologicalOperator=CType(feature.Shape, ESRI.ArcGIS.Geometry.ITopologicalOperator) ' Explicit Cast
    element=New ESRI.ArcGIS.Carto.PolygonElementClass()
    element.Geometry=topologicalOperator.Buffer(distance)
    graphicsContainer.AddElement(element, 0)
    feature=enumFeature.Next()
  Loop

  activeView.PartialRefresh(ESRI.ArcGIS.Carto.esriViewDrawPhase.esriViewGraphics, Nothing, Nothing)

End Sub