Mapx中如何删除图元??
我在VB中使用如下代码,可以在地图上显示5个点:DimggLayerAsMapXLib.LayerDimggStyleAsMapXLib.StyleDimggAsMapX...
我在VB中使用如下代码,可以在地图上显示5个点:
Dim ggLayer As MapXLib.Layer
Dim ggStyle As MapXLib.Style
Dim gg As MapXLib.Feature
Set ggLayer = Map1.Layers.CreateLayer("ggLayer", , 1)
Set Map1.Layers.AnimationLayer = ggLayer
Set ggStyle = Map1.Layers(1).Style
With ggStyle
.SymbolFont.Name = "mapinfo transportation"
.SymbolCharacter = 97
.SymbolFont.Size = 25
.SymbolFontColor = miColorBlue
End With
Dim f As MapXLib.Feature
Dim p As New MapXLib.Point
Dim x, y As Double
x = 104.123
y = 28.211
For i = 1 To 5
p.Set x, y
Set gg = Map1.FeatureFactory.CreateSymbol(p, ggStyle)
Set f = Map1.Layers("ggLayer").AddFeature(gg)
x = x + 0.09
y = y + 0.05
Next
我想知道怎样把第三个点删掉??谢谢!! 展开
Dim ggLayer As MapXLib.Layer
Dim ggStyle As MapXLib.Style
Dim gg As MapXLib.Feature
Set ggLayer = Map1.Layers.CreateLayer("ggLayer", , 1)
Set Map1.Layers.AnimationLayer = ggLayer
Set ggStyle = Map1.Layers(1).Style
With ggStyle
.SymbolFont.Name = "mapinfo transportation"
.SymbolCharacter = 97
.SymbolFont.Size = 25
.SymbolFontColor = miColorBlue
End With
Dim f As MapXLib.Feature
Dim p As New MapXLib.Point
Dim x, y As Double
x = 104.123
y = 28.211
For i = 1 To 5
p.Set x, y
Set gg = Map1.FeatureFactory.CreateSymbol(p, ggStyle)
Set f = Map1.Layers("ggLayer").AddFeature(gg)
x = x + 0.09
y = y + 0.05
Next
我想知道怎样把第三个点删掉??谢谢!! 展开
4个回答
展开全部
自动加载可以在oninitialdlg函数里面(如果是对话框程序的话)设置加载地图这样可以运行后自动默认显示完整程序也有
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
你不用这么麻烦!在“库”文件中!就可以删除!
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询