'1创建图层 Dim lyr As Layer Set lyr = Map1.Layers.CreateLayer("Car") Set Map1.Layers.AnimationLayer = lyr '定义为动态图层
'2新建图元 Dim newobj As New MapXLib.Feature 'stand-alone object Dim obj As MapXLib.Feature 'to hold feature added to layer Dim NewStyle As New MapXLib.Style Dim str As String
newobj.Attach Map1
With NewStyle .SymbolType = miSymbolTypeBitmap .SymbolBitmapSize = 24 .SymbolBitmapTransparent = True .SymbolBitmapName = "CAR1-32.BMP" End With newobj.Style = NewStyle '设置图元样式
newobj.Type = miFeatureTypeSymbol '设置图元类型
newobj.Point.Set Text1.Text,Text2.Text '设置图元位置
Set obj = Map1.Layers(1).AddFeature(newobj)
obj.Update
'3移动图元 Dim lyr As MapXLib.Layer Set lyr = Map1.Layers("Car")
Dim ftr As New MapXLib.Feature Set ftr = lyr.AllFeatures.Item(1)
'ftr.Point.Set 116,40 '重置图元位置 ftr.Offset 1#,1# '移动图元 ftr.Update
'4删除图元 Dim lyr As Layer Set lyr = Map1.Layers("Car") lyr.DeleteFeature (lyr.AllFeatures.Item(1))
本文来自CSDN博客,转载请标明出处:http://blog.csdn.net/thomas0yang/archive/2010/09/10/5875494.aspx (编辑:李大同)
【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容!
|