阅读:1586回复:4
[推荐]小车移动问题??
<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" /> |
|
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" />
|
|
|
2楼#
发布于:2005-03-28 20:59
<P>好问题,一同关注;</P><P>还有一个问题,我想在小车上面加上小车的编号,这个编号要和小车一起移动,该怎么做?</P>
|
|
3楼#
发布于:2005-05-04 00:52
<P>期待</P>
|
|
4楼#
发布于:2005-05-04 13:50
你应该先找到这个对象,然后用DeleteFeature删除,在用AddFeature增加一个对象。
|
|