画了个图,是5个点的多边形
怎么控制这个图上下左右移动啊,我画图的程序在这里
Option Explicit
Dim Poly As MapObjects2.Polygon
Dim Pts As MapObjects2.Points
Private Sub Command1_Click()
Dim p As Point
Set Rect1 = New MapObjects2.Rectangle
Set Poly = New MapObjects2.Polygon
Set Pts = New MapObjects2.Points
Dim a As Integer
Dim b As Integer
a = 10000
b = 7000
Set p = Map1.ToMapPoint(a, b)
Pts.Add p
Set p = Map1.ToMapPoint(a + 60, b + 140)
Pts.Add p
Set p = Map1.ToMapPoint(a + 190, b + 270)
Pts.Add p
Set p = Map1.ToMapPoint(a + 260, b + 180)
Pts.Add p
Set p = Map1.ToMapPoint(a + 160, b + 100)
Pts.Add p
Set p = Map1.ToMapPoint(a, b)
Pts.Add p
Poly.Parts.Add Pts
Set Pts = Poly.Parts(0)
Map1.Refresh
End Sub
Private Sub Map1_AfterTrackingLayerDraw(ByVal hDC As stdole.OLE_HANDLE)
If Not Poly Is Nothing Then
If Pts.Count > 1 Then
Dim sym As New Symbol
sym.Color = moRed
sym.SymbolType = moFillSymbol
sym.Size = 2
Map1.DrawShape Poly, sym
End If
End If
End Sub
