dzhch
路人甲
路人甲
  • 注册日期2005-02-15
  • 发帖数22
  • QQ
  • 铜币168枚
  • 威望0点
  • 贡献值0点
  • 银元0个
阅读:1586回复:4

[推荐]小车移动问题??

楼主#
更多 发布于:2005-03-10 15:13
<P>我在论坛看过不少关于如何在动态层生成小车,且移动小车的贴,如下,是其中</P>
<P>一个能实现的(已经调试),但好像都不能把已经生成的小车删除,其中我试过</P>
<P>update,obj.Remove(),等都不行,请路过的大虾指教一下,好让我们这些初学者学习</P>
<P>学习。THX</P>
<P>Private Sub car()
Dim G_CarLayer As MapXLib.Layer
Dim fMapSymbol As MapXLib.Feature
dxpos = Map1.CenterX
dypos = Map1.CenterY</P>
<P>fNewSymbol.Attach Map1
Set G_CarLayer = Map1.Layers.CreateLayer("Cars", , 1)
Set Map1.Layers.AnimationLayer = G_CarLayer</P>
<P>With Map1.DefaultStyle
.SymbolFont = "custom symbols"
.SymbolType = 1
.SymbolBitmapName = "TAXI1-32.BMP"
.SymbolBitmapSize = 24
.SymbolBitmapTransparent = True
End With</P>
<P>fNewSymbol.Type = miFeatureTypeSymbol
fNewSymbol.Style = Map1.DefaultStyle</P>
<P>fNewSymbol.Point.Set dxpos, dypos
Set fMapSymbol = G_CarLayer.AddFeature(fNewSymbol)
End Sub</P>
<img src="images/post/smile/dvbbs/em01.gif" /><img src="images/post/smile/dvbbs/em02.gif" /><img src="images/post/smile/dvbbs/em11.gif" /><img src="images/post/smile/dvbbs/em12.gif" />
喜欢0 评分0
nudtlarry
路人甲
路人甲
  • 注册日期2004-12-05
  • 发帖数319
  • QQ
  • 铜币770枚
  • 威望0点
  • 贡献值0点
  • 银元0个
1楼#
发布于:2005-03-27 12:49
<P>谢谢你的代码!我参考一下,但你的问题我无能为力啊<img src="images/post/smile/dvbbs/em39.gif" /></P><P> 和你一起关注问题的解决!!</P><img src="images/post/smile/dvbbs/em01.gif" /><img src="images/post/smile/dvbbs/em02.gif" /><img src="images/post/smile/dvbbs/em04.gif" /><img src="images/post/smile/dvbbs/em16.gif" />
---------------------------------------------- E-Mail: nudtlarry@163.com ----------------------------------------------
举报 回复(0) 喜欢(0)     评分
11122233
路人甲
路人甲
  • 注册日期2005-03-14
  • 发帖数6
  • QQ
  • 铜币131枚
  • 威望0点
  • 贡献值0点
  • 银元0个
2楼#
发布于:2005-03-28 20:59
<P>好问题,一同关注;</P><P>还有一个问题,我想在小车上面加上小车的编号,这个编号要和小车一起移动,该怎么做?</P>
举报 回复(0) 喜欢(0)     评分
ojbiao
路人甲
路人甲
  • 注册日期2005-04-14
  • 发帖数5
  • QQ
  • 铜币118枚
  • 威望0点
  • 贡献值0点
  • 银元0个
3楼#
发布于:2005-05-04 00:52
<P>期待</P>
举报 回复(0) 喜欢(0)     评分
echo2003
点子王
点子王
  • 注册日期2003-07-28
  • 发帖数2453
  • QQ76947571
  • 铜币5473枚
  • 威望1点
  • 贡献值0点
  • 银元0个
  • GIS帝国居民
4楼#
发布于:2005-05-04 13:50
你应该先找到这个对象,然后用DeleteFeature删除,在用AddFeature增加一个对象。
举报 回复(0) 喜欢(0)     评分
游客

返回顶部