|
阅读：1390回复：2
*还有个就是用VB+MO实现鹰眼的问题*
<P>请高手指点...</P>
|
|
|
1楼#
发布于：2005-06-22 10:04
<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>
|
|
|
|
2楼#
发布于：2005-06-21 09:08
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''<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
|
|
