ArcEngine闪烁显示要素

[ArcGIS Engine 代码共享计划]：闪烁显示要素 


Public Sub FlashFeature(pActiveView As esriCarto.IActiveView, pFeature As esriGeoDatabase.IFeature)

  ' Start Drawing on screen
  pActiveView.ScreenDisplay.StartDrawing 0, esriNoScreenCache

  ' Switch functions based on Geometry type
  Select Case pFeature.Shape.GeometryType
    Case esriGeometryPolyline
      FlashLine pActiveView.ScreenDisplay, pFeature.Shape
    Case esriGeometryPolygon
      FlashPolygon pActiveView.ScreenDisplay, pFeature.Shape
    Case esriGeometryPoint
      FlashPoint pActiveView.ScreenDisplay, pFeature.Shape
  End Select

  ' Finish drawing on screen
  pActiveView.ScreenDisplay.FinishDrawing

End Sub

Private Sub FlashLine(pDisplay As esriDisplay.IScreenDisplay, pGeometry As esriGeometry.IGeometry)

  Dim pLineSymbol As esriDisplay.ISimpleLineSymbol
  Dim pSymbol As esriDisplay.ISymbol
  Dim pRGBColor As esriDisplay.IRgbColor

  Set pLineSymbol = New SimpleLineSymbol