[求助]查询定位效果的实现

<P>我查询到一个pFeature对象，想在AxMapControl中进行定位后再闪现，下面这段代码的问题是先进了闪现，后移动了屏幕进行定位，如何做为好呢？</P>
<P>If pFeature Is Nothing Then Exit Sub</P>
<P>       '下面的代码是把查找到的要素以需要的比例范围放大后定位。<BR>        Dim pPoint As Point<BR>        Dim xmin, ymin, xmax, ymax As Double<BR>        pPoint = New Point()</P>
<P>        pFeature.Extent.QueryCoords(xmin, ymin, xmax, ymax)<BR>        Dim CreateEnvXY As Envelope<BR>        CreateEnvXY = New Envelope<BR>        CreateEnvXY.PutCoords(xmin - 1000.0, ymin - 1000.0, xmax + 1000.0, ymax + 1000.0)<BR>        Me.AxMapControl1.Extent = CreateEnvXY</P>
<P><BR>        Me.AxMapControl1.Refresh(esriViewDrawPhase.esriViewBackground, Nothing, Nothing)</P>
<P>        '闪现</P>
<P>         Me.AxMapControl1.FlashShape(pFeature.ShapeCopy())</P>

换一个思路吧。

<P>我以前也遇到这样的问题，只要在你闪现的代码前加入以下语句即可：</P>
<P>System.Windows.Forms.Application.DoEvents();</P>

顶啊，我也正好要做这个<img src="images/post/smile/dvbbs/em01.gif" />

三楼说的对,顶一个! 噢,似乎顶晚了!<img src="images/post/smile/dvbbs/em01.gif" />

DoEvents();就是停下来，该做的先做完

真是及时雨，正想实现这个功能，拿来参考下了

<P>好</P>