（Ao菜鸟一问）如何在AO实现此功能！

如何在VBA中实现查询到一个目标后，将地图显示范围移动到该目标处，然后该目标闪烁？

我想对于高手这一定不是难事，但由于我时间太短没有时间学Ao的接口图，急需此功能，希望各位帮帮忙，不然也不会问了！谢谢！<img src="images/post/smile/dvbbs/em11.gif" />

ok

好！支持你！

good g

自己搞定了，给大家看看！
    Dim mxDoc As IMxDocument
    Dim pMap As IMap
    Dim mxActive As IActiveView
    Dim pQueryFltr As IQueryFilter
    Dim pFeatLyr As IFeatureLayer
    Dim pFeatSeln As IFeatureSelection
    Dim pSelSet As ISelectionSet
    Dim pFeatCursor As IFeatureCursor
    Dim pFeature As IFeature
    Dim pExtent As IEnvelope

    Set mxDoc = ThisDocument
    Set pMap = mxDoc.FocusMap
    Set mxActive = mxDoc.ActiveView
    
    Set pFeatLyr = pMap.Layer(0)
    
    Set pQueryFltr = New QueryFilter
    pQueryFltr.WhereClause = ("NAME='" + Trim(CboRouteName.Text) + "'")
    
    Set pFeatSeln = pFeatLyr
    pFeatSeln.SelectFeatures pQueryFltr, esriSelectionResultNew, False

    Set pSelSet = pFeatSeln.SelectionSet
    pSelSet.Search pQueryFltr, True, pFeatCursor
    
    Set pFeature = pFeatCursor.NextFeature

    If Not pFeature Is Nothing Then
        Set pExtent = pFeature.Shape.Envelope
        mxActive.Extent = pExtent
        mxActive.Refresh
    End If