70楼#
发布于:2005-06-24 10:54
好东西呀,谢谢拉
|
|
71楼#
发布于:2005-06-18 21:25
明白了!谢谢版主,谢谢!!
|
|
72楼#
发布于:2005-06-18 13:03
<P>如果是数据库记录GPS数据,显示速度容易控制。</P>
<P>但我给的方法中用的是文本文件,所以不能直接从读数据的角度控制回放速度;但可以从另一个角度--显示数据 控制回放速度,例如增加一个延时模块(或循环),在回放一个数据后,调用一次延时模块,从而达到控制回放速度。</P> <P>Public Sub Delay(s As Double)<br> Dim StartTimer As Variant<br> Dim OldTimer As Variant<br> Dim DelayYear As Long, DelayDay As Integer<br> StartTimer = Timer<br> Do<br> DoEvents<br> If Timer < OldTimer Then<br> If DelayDay > 365 Then<br> DelayYear = DelayYear + 1<br> DelayDay = 0<br> Else<br> DelayDay = DelayDay + 1<br> End If<br> End If<br> OldTimer = Timer<br> Loop Until (DelayYear * 365 + DelayDay) * 86400 + Timer - StartTimer > s<br>End Sub<br></P> [此贴子已经被作者于2005-7-22 20:37:08编辑过]
|
|
|
73楼#
发布于:2005-06-17 00:34
upup
[此贴子已经被作者于2005-6-17 0:37:08编辑过]
|
|
74楼#
发布于:2005-06-17 00:10
<P>版主,还要麻烦你一下,请问,怎样实现程序里的时间和电脑的时钟同步呢?</P>
<P>回放的速度太快了。。。还没看清除就结束了。。。</P> <P>请问应该在哪加一个时间控制语句?可不可以根据数据里的时间同步显示呢?</P> |
|
75楼#
发布于:2005-06-17 00:09
<P>版主,还要麻烦你一下,请问,怎样实现程序里的时间和电脑的时钟同步呢?</P>
<P>回放的速度太快了。。。还没看清除就结束了。。。</P> <P>请问应该在哪加一个时间控制语句?可不可以根据数据里的时间同步显示呢?</P> |
|
76楼#
发布于:2005-06-16 23:41
谢谢版主,太感谢了
|
|
77楼#
发布于:2005-06-16 20:03
<DIV class=quote><B>以下是引用<I>gyhcly</I>在2005-6-15 23:30:13的发言:</B><BR>
<P>版主,问一下,为什么回放的时候所有的点都显示在TEMPLATE层上?</P> <P>怎么实现只显示一个点的移动呢?而且回放结束以后,所有的点信息仍然保存在TEMPLATE层上,怎么清空呢?</P></DIV> <P>在<a href="http://www.gisempire.com/bbs/dispbbs.asp?boardID=13;ID=28726;page=1" target="_blank" >http://www.gisempire.com/bbs/dispbbs.asp?boardID=13;ID=28726;page=1</A> 对你的同样问题做了回答 <P>在<a href="http://www.gisempire.com/bbs/dispbbs.asp?boardID=13;ID=42720;page=1" target="_blank" >http://www.gisempire.com/bbs/dispbbs.asp?boardID=13;ID=42720;page=1</A>上有一个更简洁的演示程序代码、数据和地图</P> |
|
|
78楼#
发布于:2005-06-15 23:30
<P>版主,问一下,为什么回放的时候所有的点都显示在TEMPLATE层上?</P>
<P>怎么实现只显示一个点的移动呢?而且回放结束以后,所有的点信息仍然保存在TEMPLATE层上,怎么清空呢?</P> |
|
79楼#
发布于:2005-06-12 19:23
<DIV class=quote><B>以下是引用<I>futuregis</I>在2005-6-11 12:35:39的发言:</B><BR>
<P>下不了了,请大侠发给我一份<a href="http://www.gisempire.com/bbs/mailtfuturegis@163.com" target="_blank" >futuregis@163.com</A>多谢</P></DIV> <P> <P>已发你邮箱,请查收!</P> <P>我再传一次。</P> |
|
|