mapobject学习笔记－在鹰眼指示窗口中拖动方框代码_魏国强 的 博客.htm

来自「MO+VC的学习文档资料」· HTM 代码 · 共 1,270 行 · 第 1/4 页

HTM
1,270 行
字号
1234
      m_map.Parent.ScaleX(x, vbTwips, vbPixels)</SPAN></P>
      <P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><SPAN>yNext = 
      m_map.Parent.ScaleY(y, vbTwips, vbPixels)</SPAN></P>
      <P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><SPAN><SPAN 
      style="mso-spacerun: yes">&nbsp;&nbsp;&nbsp; </SPAN></SPAN></P>
      <P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><SPAN>GdiRectangle m_hDC, 
      m_xMin, m_yMin, m_xMax, m_yMax</SPAN></P>
      <P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><SPAN>m_xMin = m_xMin + 
      (xNext - m_xPrev)</SPAN></P>
      <P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><SPAN>m_xMax = m_xMax + 
      (xNext - m_xPrev)</SPAN></P>
      <P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><SPAN>m_yMin = m_yMin + 
      (yNext - m_yPrev)</SPAN></P>
      <P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><SPAN>m_yMax = m_yMax + 
      (yNext - m_yPrev)</SPAN></P>
      <P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"></P>
      <P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><SPAN>GdiRectangle m_hDC, 
      m_xMin, m_yMin, m_xMax, m_yMax</SPAN></P>
      <P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><SPAN>m_xPrev = 
      xNext</SPAN></P>
      <P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><SPAN>m_yPrev = 
      yNext</SPAN></P>
      <P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><SPAN>End Sub</SPAN></P>
      <P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"></P>
      <P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><SPAN>Sub DragStart(rect As 
      MapObjects2.Rectangle, Map As MapObjects2.Map, x As Single, y As 
      Single)</SPAN></P>
      <P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><SPAN>Set m_map = 
      Map</SPAN></P>
      <P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><SPAN><SPAN 
      style="mso-spacerun: yes">&nbsp;&nbsp;&nbsp; </SPAN>' initialize the hwnd 
      and hdc variables</SPAN></P>
      <P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><SPAN>m_hWnd = 
      m_map.hwnd</SPAN></P>
      <P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><SPAN>m_hDC = 
      GetDC(m_hWnd)</SPAN></P>
      <P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><SPAN>SetROP<ST1:CHMETCNV 
      tcsc="0" numbertype="1" negative="False" hasspace="True" sourcevalue="2" 
      unitname="m">2 m</ST1:CHMETCNV>_hDC, R2_NOTXORPEN<SPAN 
      style="mso-spacerun: yes">&nbsp;&nbsp; </SPAN>' raster op for 
      inverting</SPAN></P>
      <P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><SPAN><SPAN 
      style="mso-spacerun: yes">&nbsp;&nbsp;&nbsp; </SPAN></SPAN></P>
      <P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><SPAN>MapRectToPixels rect, 
      m_xMin, m_yMin, m_xMax, m_yMax</SPAN></P>
      <P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"></P>
      <P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><SPAN>' draw the 
      rectangle</SPAN></P>
      <P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><SPAN>GdiRectangle m_hDC, 
      m_xMin, m_yMin, m_xMax, m_yMax</SPAN></P>
      <P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"></P>
      <P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><SPAN>' remember the click 
      position</SPAN></P>
      <P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><SPAN>' convert to 
      pixels</SPAN></P>
      <P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><SPAN>m_xPrev = 
      m_map.Parent.ScaleX(x, vbTwips, vbPixels)</SPAN></P>
      <P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><SPAN>m_yPrev = 
      m_map.Parent.ScaleY(y, vbTwips, vbPixels)</SPAN></P>
      <P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><SPAN>End Sub</SPAN></P>
      <P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"></P>
      <P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><SPAN>Private Sub 
      MapRectToPixels(r As MapObjects2.Rectangle, xMin As Integer, yMin As 
      Integer, xMax As Integer, yMax As Integer)</SPAN></P>
      <P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><SPAN>Dim p As New 
      Point</SPAN></P>
      <P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><SPAN>Dim xc As Single, yc 
      As Single</SPAN></P>
      <P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"></P>
      <P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><SPAN>p.x = 
      r.Left</SPAN></P>
      <P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><SPAN>p.y = 
r.Top</SPAN></P>
      <P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><SPAN>m_map.FromMapPoint p, 
      xc, yc</SPAN></P>
      <P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"></P>
      <P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><SPAN>' convert to 
      pixels</SPAN></P>
      <P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><SPAN>xMin = 
      m_map.Parent.ScaleX(xc, vbTwips, vbPixels)</SPAN></P>
      <P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><SPAN>yMin = 
      m_map.Parent.ScaleY(yc, vbTwips, vbPixels)</SPAN></P>
      <P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"></P>
      <P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><SPAN>p.x = 
      r.Right</SPAN></P>
      <P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><SPAN>p.y = 
      r.Bottom</SPAN></P>
      <P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><SPAN>m_map.FromMapPoint p, 
      xc, yc</SPAN></P>
      <P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"></P>
      <P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><SPAN>' convert to 
      pixels</SPAN></P>
      <P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><SPAN>xMax = 
      m_map.Parent.ScaleX(xc, vbTwips, vbPixels)</SPAN></P>
      <P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><SPAN>yMax = 
      m_map.Parent.ScaleY(yc, vbTwips, vbPixels)</SPAN></P>
      <P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><SPAN>End 
      Sub</SPAN></P><SPAN>
      <P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><SPAN>Sub 
      PixelsRectToMap(xMin As Integer, yMin As Integer, xMax As Integer, yMax As 
      Integer, r As MapObjects2.Rectangle)</SPAN></P>
      <P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><SPAN>Dim xc As Single, yc 
      As Single</SPAN></P>
      <P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"></P>
      <P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><SPAN>' convert to 
      twips</SPAN></P>
      <P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><SPAN>xc = 
      m_map.Parent.ScaleX(xMin, vbPixels, vbTwips)</SPAN></P>
      <P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><SPAN>yc = 
      m_map.Parent.ScaleY(yMin, vbPixels, vbTwips)</SPAN></P>
      <P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"></P>
      <P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><SPAN>Set p = 
      m_map.ToMapPoint(xc, yc)</SPAN></P>
      <P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><SPAN>r.Left = 
      p.x</SPAN></P>
      <P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><SPAN>r.Top = 
p.y</SPAN></P>
      <P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"></P>
      <P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><SPAN>' convert to 
      twips</SPAN></P>
      <P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><SPAN>xc = 
      m_map.Parent.ScaleX(xMax, vbPixels, vbTwips)</SPAN></P>
      <P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><SPAN>yc = 
      m_map.Parent.ScaleY(yMax, vbPixels, vbTwips)</SPAN></P>
      <P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><SPAN>Set p = 
      m_map.ToMapPoint(xc, yc)</SPAN></P>
      <P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><SPAN>r.Right = 
      p.x</SPAN></P>
      <P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><SPAN>r.Bottom = 
      p.y</SPAN></P>
      <P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><SPAN>End Sub</SPAN></P>
      <P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><STRONG 
      style="mso-bidi-font-weight: normal"><SPAN>窗体代码：</SPAN></STRONG></P>
      <P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><SPAN>Option 
      Explicit</SPAN></P>
      <P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><SPAN>Dim g_feedback As 
      dragfeedback</SPAN></P>
      <P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"></P>
      <P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><SPAN>Private Sub 
      Map2_MouseDown(Button As Integer, Shift As Integer, x As Single, y As 
      Single)</SPAN></P>
      <P class=MsoNormal 
      style="MARGIN: 0cm 0cm 0pt"><SPAN>'</SPAN><SPAN>将点击转换为</SPAN><SPAN>Map2</SPAN><SPAN>上的点对象；</SPAN></P>
      <P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><SPAN>Dim p As 
      Point</SPAN></P>
      <P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><SPAN>Set p = 
      Map2.ToMapPoint(x, y)</SPAN></P>
      <P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"></P>
      <P class=MsoNormal 
      style="MARGIN: 0cm 0cm 0pt"><SPAN>'</SPAN><SPAN>如果点击发生在方框内，开始拖动；</SPAN></P>
      <P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><SPAN>If 
      Map1.Extent.IsPointIn(p) Then</SPAN></P>
      <P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><SPAN><SPAN 
      style="mso-spacerun: yes">&nbsp;&nbsp;&nbsp; </SPAN>Set g_feedback = New 
      dragfeedback</SPAN></P>
      <P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><SPAN><SPAN 
      style="mso-spacerun: yes">&nbsp;&nbsp;&nbsp; </SPAN>g_feedback.DragStart 
      Map1.Extent, Map2, x, y</SPAN></P>
      <P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><SPAN>End If</SPAN></P>
      <P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><SPAN>End Sub</SPAN></P>
      <P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"></P>
      <P class=MsoNormal 
      style="MARGIN: 0cm 0cm 0pt"><SPAN>'</SPAN><SPAN>开始拖动方框</SPAN></P>
      <P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><SPAN>Private Sub 
      Map2_MouseMove(Button As Integer, Shift As Integer, x As Single, y As 
      Single)</SPAN></P>
      <P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><SPAN>If Not g_feedback Is 
      Nothing Then</SPAN></P>
      <P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><SPAN><SPAN 
      style="mso-spacerun: yes">&nbsp;&nbsp;&nbsp; </SPAN>g_feedback.DragMove x, 
      y</SPAN></P>
      <P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><SPAN>End If</SPAN></P>
      <P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><SPAN>End Sub</SPAN></P>
      <P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"></P><SPAN>
      <P class=MsoNormal 
      style="MARGIN: 0cm 0cm 0pt"><SPAN>'</SPAN><SPAN>拖动完成，并在</SPAN><SPAN>Map1</SPAN><SPAN>中显示新位置；</SPAN></P>
      <P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><SPAN>Private Sub 
      Map2_MouseUp(Button As Integer, Shift As Integer, x As Single, y As 
      Single)</SPAN></P>
      <P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><SPAN><SPAN 
      style="mso-spacerun: yes"></SPAN>If Not g_feedback Is Nothing 
      Then</SPAN></P>
      <P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><SPAN><SPAN 
      style="mso-spacerun: yes">&nbsp;&nbsp;&nbsp; </SPAN>Map1.Extent = 
      g_feedback.DragFinish(x, y)</SPAN></P>
      <P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><SPAN><SPAN 
      style="mso-spacerun: yes">&nbsp;&nbsp;&nbsp; </SPAN>Set g_feedback = 
      Nothing</SPAN></P>
      <P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><SPAN><SPAN 
      style="mso-spacerun: yes"></SPAN>End If</SPAN></P>
      <P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><SPAN>End Sub</SPAN></P>
      <P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><SPAN></SPAN></P>
      <P class=MsoNormal 
      style="MARGIN: 0cm 0cm 0pt"><SPAN>'</SPAN><SPAN>左键放大，右键缩小；</SPAN></P>
      <P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><SPAN>Private Sub 
      Map1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As 
      Single)</SPAN></P>
      <P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><SPAN><SPAN 
      style="mso-spacerun: yes"></SPAN>Dim r As MapObjects2.Rectangle</SPAN></P>
      <P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><SPAN><SPAN 
      style="mso-spacerun: yes"></SPAN>If Button = vbLeftButton Then</SPAN></P>
      <P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><SPAN><SPAN 
      style="mso-spacerun: yes">&nbsp;&nbsp;&nbsp; </SPAN>Set Map1.Extent = 
      Map1.TrackRectangle</SPAN></P>
      <P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><SPAN><SPAN 
      style="mso-spacerun: yes"></SPAN>ElseIf Button = vbRightButton 
      Then</SPAN></P>
      <P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><SPAN><SPAN 
      style="mso-spacerun: yes">&nbsp;&nbsp;&nbsp; </SPAN>Set r = 
      Map1.Extent</SPAN></P>
      <P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><SPAN><SPAN 
      style="mso-spacerun: yes">&nbsp;&nbsp;&nbsp; </SPAN>r.ScaleRectangle 
      2</SPAN></P>
      <P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><SPAN><SPAN 
      style="mso-spacerun: yes">&nbsp;&nbsp;&nbsp; </SPAN>Map1.Extent = 
      r</SPAN></P>
      <P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><SPAN><SPAN 
      style="mso-spacerun: yes"></SPAN>End If</SPAN></P>
      <P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><SPAN>End Sub</SPAN></P>
      <P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><SPAN></SPAN></P>
      <P class=MsoNormal 
      style="MARGIN: 0cm 0cm 0pt"><SPAN>'</SPAN><SPAN>使</SPAN><SPAN>Map2</SPAN><SPAN>和</SPAN><SPAN>Map1</SPAN><SPAN>联动；</SPAN></P>
      <P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><SPAN>Private Sub 
      Map1_AfterLayerDraw(ByVal Index As Integer, ByVal canceled As Boolean, 
      ByVal hdc As stdole.OLE_HANDLE)</SPAN></P>
      <P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><SPAN><SPAN 
      style="mso-spacerun: yes"></SPAN>If Index = 0 Then</SPAN></P>
      <P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><SPAN><SPAN 
      style="mso-spacerun: yes">&nbsp;&nbsp;&nbsp; 
      </SPAN>Map2.TrackingLayer.Refresh True</SPAN></P>
      <P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><SPAN><SPAN 
      style="mso-spacerun: yes"></SPAN>End If</SPAN></P>
      <P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><SPAN>End Sub</SPAN></P>
      <P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><SPAN></SPAN></P>
      <P class=MsoNormal 
      style="MARGIN: 0cm 0cm 0pt"><SPAN>'</SPAN><SPAN>在</SPAN><SPAN>Map2</SPAN><SPAN>上画红色指示框；</SPAN></P>
      <P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><SPAN>Private Sub 
      Map2_AfterTrackingLayerDraw(ByVal hdc As stdole.OLE_HANDLE)</SPAN></P>
      <P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><SPAN><SPAN 
      style="mso-spacerun: yes"></SPAN>Dim sym As New Symbol</SPAN></P>
      <P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><SPAN><SPAN 
      style="mso-spacerun: yes"></SPAN>sym.OutlineColor = moRed</SPAN></P>
      <P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><SPAN><SPAN 
      style="mso-spacerun: yes"></SPAN>sym.Size = 2</SPAN></P>
      <P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><SPAN><SPAN 
      style="mso-spacerun: yes"></SPAN>sym.Style = moTransparentFill</SPAN></P>
      <P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><SPAN><SPAN 
      style="mso-spacerun: yes"></SPAN>Map2.DrawShape Map1.Extent, 
sym</SPAN></P>
      <P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><SPAN>End Sub</SPAN></P>
      <P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><SPAN></SPAN></P>
      <P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><SPAN>Private Sub 
      Form_Load()</SPAN></P>
      <P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><SPAN><SPAN 
      style="mso-spacerun: yes"></SPAN>Dim dc As New DataConnection</SPAN></P>
      <P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><SPAN><SPAN 
      style="mso-spacerun: yes"></SPAN>Dim layer As MapLayer</SPAN></P>
      <P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><SPAN><SPAN 
      style="mso-spacerun: yes"></SPAN>dc.Database = App.Path + "\..\" + 
      "world"</SPAN></P>
      <P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><SPAN><SPAN 
      style="mso-spacerun: yes"></SPAN>If Not dc.Connect Then</SPAN></P>
      <P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><SPAN><SPAN 
      style="mso-spacerun: yes">&nbsp;&nbsp;&nbsp; </SPAN>MsgBox 
      "</SPAN><SPAN>在指定的文件夹下没找到图层数据文件！</SPAN><SPAN>"</SPAN></P>
      <P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><SPAN><SPAN 
      style="mso-spacerun: yes">&nbsp;&nbsp;&nbsp; </SPAN>End</SPAN></P>
      <P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><SPAN><SPAN 
      style="mso-spacerun: yes"></SPAN>End If</SPAN></P>
      <P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><SPAN><SPAN 
      style="mso-spacerun: yes"></SPAN>Set layer = New MapLayer</SPAN></P>
      <P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><SPAN><SPAN 
      style="mso-spacerun: yes"></SPAN>Set layer.GeoDataset = 
      dc.FindGeoDataset("country")</SPAN></P>
      <P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><SPAN><SPAN 
      style="mso-spacerun: yes"></SPAN>layer.Symbol.Color = moYellow</SPAN></P>
      <P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><SPAN><SPAN 
      style="mso-spacerun: yes"></SPAN>Map1.Layers.Add layer</SPAN></P>
      <P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><SPAN><SPAN 
      style="mso-spacerun: yes"></SPAN>Set layer = New MapLayer</SPAN></P>
      <P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><SPAN><SPAN 
      style="mso-spacerun: yes"></SPAN>Set layer.GeoDataset = 
      dc.FindGeoDataset("cities")</SPAN></P>
      <P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><SPAN><SPAN 
      style="mso-spacerun: yes"></SPAN>layer.Symbol.Color = moRed</SPAN></P>
      <P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><SPAN><SPAN 
      style="mso-spacerun: yes"></SPAN>Map1.Layers.Add layer</SPAN></P>
      <P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><SPAN><SPAN 
      style="mso-spacerun: yes"></SPAN>Map1.Refresh</SPAN></P>
      <P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><SPAN><SPAN 
      style="mso-spacerun: yes"></SPAN></SPAN></P>
      <P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><SPAN><SPAN 
      style="mso-spacerun: yes"></SPAN>Set layer = New MapLayer</SPAN></P>
      <P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><SPAN><SPAN 
      style="mso-spacerun: yes"></SPAN>Set layer.GeoDataset = 
      dc.FindGeoDataset("country")</SPAN></P>
      <P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><SPAN><SPAN 
      style="mso-spacerun: yes"></SPAN>layer.Symbol.Color = moYellow</SPAN></P>
      <P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><SPAN><SPAN 
      style="mso-spacerun: yes"></SPAN>Map2.Layers.Add layer</SPAN></P>
      <P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><SPAN><SPAN 
      style="mso-spacerun: yes"></SPAN>Map2.Refresh</SPAN></P>
      <P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><SPAN>End 
      Sub</SPAN></P></SPAN></SPAN></DIV></TD></TR></TBODY></TABLE><BR>
<DIV class=opt><A title=查看该分类中所有文章 
href="http://hi.baidu.com/laowei/blog/category/&Auml;&not;&Egrave;&Iuml;·&Ouml;&Agrave;à">类别：默认分类</A> | <A 
title=将此文章添加到百度搜藏 onclick="return addToFavor();" 
href="http://cang.baidu.com/do/add" target=_blank>添加到搜藏</A> | 浏览(<SPAN 
id=result></SPAN>) | <A 
href="http://hi.baidu.com/laowei/blog/item/552632fa24b1891aa8d31136.html#send">评论</A>&nbsp;(0)
<SCRIPT language=javascript>
/*<![CDATA[*/
var pre = [true,'MapObject学习笔记－第六讲 MO中的坐标和坐标系', 'MapObject学习笔记－第六讲 MO中...','/laowei/blog/item/b5c980cbe9e399f952664f34.html'];
var post = [true,'美国人对色戒的评论','美国人对色戒的评论', '/laowei/blog/item/48bc2fddcd2d53dd8d10299d.html'];
if(pre[0] || post[0]){
	document.write('<div style="height:5px;line-height:5px;">&nbsp;</div><div id="in_nav">');
	if(pre[0]){
		document.write('上一篇：<a href="' + pre[3] + '" title="' + pre[1] + '">' +  pre[2] + '</a>&nbsp;&nbsp;&nbsp;&nbsp;');
1234

mapobject学习笔记－在鹰眼指示窗口中拖动方框代码_魏国强 的 博客.htm - 源码说明

本页面展示了「MO+VC的学习文档资料」中的 mapobject学习笔记－在鹰眼指示窗口中拖动方框代码_魏国强 的 博客.htm 源码文件，采用 HTM 编程语言编写，共 1,270 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与MO相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?