*还有个就是用VB+MO实现鹰眼的问题*

<P>请高手指点...</P>

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''<BR>'鹰眼功能<BR>'<BR>'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''<BR>Private Sub map1_afterlayerdraw(ByVal index As Integer, ByVal canceled As Boolean, ByVal hdc As stdole.OLE_HANDLE)<BR>    If index = 0 Then Map2.TrackingLayer.Refresh True<BR>End Sub<BR>Private Sub map2_aftertrackinglayerdraw(ByVal hdc As stdole.OLE_HANDLE)<BR>    Dim sym As New MapObjects2.Symbol<BR>    sym.OutlineColor = moGreen      '范围框的颜色<BR>    sym.Style = moTransparentFill<BR>    Map2.DrawShape Map1.Extent, sym<BR>End Sub

<a href="http://gisempire.com/bbs/dispbbs.asp?boardID=39;ID=29299;page=1" target="_blank" >http://gisempire.com/bbs/dispbbs.asp?boardID=39;ID=29299;page=1</A>