AO中要素闪烁

<P><FONT face=宋体>需要传入四个参数，第一个是MapControl空间的ScreenDisplay对象，pGeometry是要被闪烁的要素图形，nTimer是闪烁的次数，time是闪烁的时间。</FONT><BR><FONT face=宋体></FONT></P>
<P><FONT face=宋体>Private Sub FlashPolygon(ByVal pDisplay As IScreenDisplay, ByVal pGeometry As IGeometry, ByVal nTimer As Integer, ByVal time As Integer)<BR>Dim pFillSymbol As ISimpleFillSymbol<BR>Dim pSymbol As ISymbol<BR>Dim pRGBColor As IRgbColor<p></p></FONT></P>
<P><FONT face=宋体>pRGBColor = New RgbColor<BR>pRGBColor.Green = 128<p></p></FONT></P>
<P><FONT face=宋体>pFillSymbol = New SimpleFillSymbol<BR>pFillSymbol.Outline = Nothing<BR>pFillSymbol.Color = pRGBColor<BR>pSymbol = pFillSymbol<BR>pSymbol.ROP2 = esriRasterOpCode.esriROPNotXOrPen<p></p></FONT></P>
<P><FONT face=宋体>Dim i As Integer<p></p></FONT></P>
<P><FONT face=宋体>pDisplay.StartDrawing(0, esriScreenCache.esriNoScreenCache)<BR>pDisplay.SetSymbol(pFillSymbol)<BR>For i = 0 To nTimer<BR>pDisplay.DrawPolygon(pGeometry)<BR>System.Threading.Thread.Sleep(time)<BR>Next<BR>End Sub<p></p></FONT></P>