如何把mo中的trackinglayer保存到shp图层

工程控件自己看着设置哦！

Option Explicit

Dim tl As MapObjects2.TrackingLayer
Dim dc As New MapObjects2.DataConnection
Dim mlyr As New MapObjects2.MapLayer
Dim recs As MapObjects2.Recordset

Private Sub Command1_Click()

'移动TrackingLayer 多边形到shp中
Dim i As Integer
For i = 0 To tl.EventCount - 1
  recs.AddNew
  Set recs.Fields("Shape").Value = tl.Event(i).Shape
  recs.Update
Next
recs.StopEditing

'清楚 tracking layer 然后重画
tl.ClearEvents
Map1.Refresh


End Sub

Private Sub Form_Load()

dc.Database = App.Path
dc.Connect
Set mlyr.GeoDataset = dc.FindGeoDataset("polys")
Set recs = mlyr.Records
mlyr.Symbol.Color = moLightGray
Map1.Layers.Add mlyr

'定义 TrackingLayer and symbols
Set tl = Map1.TrackingLayer
tl.SymbolCount = 2
With tl.Symbol(0)
  .SymbolType = moFillSymbol
  .Style = moSolidFill
  .Color = moRed
End With
With tl.Symbol(1)
  .SymbolType = moLineSymbol
  .Style = moSolidLine
  .Color = moRed
End With


End Sub

Private Sub Map1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

Dim poly As MapObjects2.Polygon

Set poly = Map1.TrackPolygon
tl.AddEvent poly, 0

End Sub
<img src="images/post/smile/dvbbs/em10.gif" />

这个倒是很好了

为了先凑够帖子，大家别怪我：）

顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶
 顶顶顶顶顶顶　顶顶顶顶顶顶顶顶顶顶　顶顶顶　　顶顶顶顶顶
 顶顶顶顶顶顶　　　　顶顶顶顶顶顶顶　顶顶顶顶　顶顶顶顶顶
 顶顶顶顶顶　　　顶顶顶顶顶顶顶顶顶　顶顶顶顶　　顶顶顶顶
 顶顶顶顶　　顶顶顶顶顶顶顶顶顶顶顶顶　顶　　　顶顶　顶顶
 顶顶　　顶　顶顶顶顶顶顶顶顶顶顶　　顶顶顶　顶顶　　　顶
 顶顶顶顶顶　顶顶顶顶顶顶顶顶顶　　　顶顶顶　　　顶顶顶顶
 顶顶顶顶　　　顶顶顶顶顶顶顶顶顶顶　顶　　顶　顶顶顶顶顶
 顶顶顶顶顶顶顶　顶顶顶顶顶顶顶顶顶　　顶　　顶　　　顶顶
 顶顶　　　顶　　顶顶顶顶顶顶顶顶顶　顶顶顶顶　　顶顶顶顶
 顶　顶顶　　　顶顶顶顶顶顶顶顶　　　顶　　　顶　顶顶顶顶
 顶顶顶顶顶　　顶顶顶顶顶顶顶顶　顶　　顶顶　顶　顶顶顶顶
 顶顶顶顶　　　　顶顶顶顶顶顶　顶顶　顶顶顶顶顶　顶顶顶顶
 顶顶顶　　顶顶　　　顶顶顶顶　顶　　顶顶　顶顶　顶顶顶顶
 顶　　　顶顶顶顶　　　　顶顶顶顶顶　顶顶顶　　　顶顶顶顶
 顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶