[求助]关于用已知点绘制线的问题。

<P>已知许多点的坐标，现想在MAP控件中绘制这些点，并将点连接成线，如何实现？</P>
<P>请大家给点思路，谢谢了。</P>

<P>Private Sub cmdDraw_Click()</P><P> Set Line1 = New MapObjects2.Line
 Set Pts = New MapObjects2.Points
 Set p = Map1.ToMapPoint(x1, y1)
 Pts.Add p
 Set p = Map1.ToMapPoint(x2,y2)
 Pts.Add p
 Line1.Parts.Add Pts
End Sub</P><P>Private Sub Map1_AfterTrackingLayerDraw(ByVal hDC As stdole.OLE_HANDLE)
  Dim sym As New Symbol  
  sym.Color = moRed      
    If Not Line1 Is Nothing Then
      Map1.DrawShape Line1, sym
    End If
  End Sub
</P>

楼上说的很详细<img src="images/post/smile/dvbbs/em02.gif" />