请教VB中如何实现图元闪烁? For Each ftr In lyr.Selection Formmain.Map1.CenterX = ftr.CenterX Formmain.Map1.CenterY = ftr.CenterY &#...
全文
回复(7) 2003-12-22 09:32 来自版块 - PB MapInfo应用与开发
表情
kittypig我不闪烁的原因找到了,是Dim i As Integer有问题,应该定义成全局变量,不然timer每次循环时,i都每次申明了一次,所以每次进这个timer循环i都是一样的,定义成全局变量就好了(2004-11-10 20:35)
kittypigmiFeatureTypeSymbol这种类型的点图元,能不能靠改变这个图元的颜色来闪烁呢?是用style的什么属性啊?(2004-11-09 22:52)
kittypig<P>但如果我把这个把图元居中加上,地图的很大部分都在拼命闪烁</P><P>If Not m_bCenter Then</P><P>m_bCenter = True Map1.CenterX = ftr.CenterX...(2004-11-09 22:49)
kittypig<P>Private Sub Timer1_Timer() Dim ftr As MapXLib.FindFeature Dim lyr As MapXLib.Layer Set lyr = Map1.Layers("position")...(2004-11-09 22:47)
xiaonai要实现图元闪烁可以通过改变图元的大小和颜色,再加一个时钟控件就可以了,论坛有这方面的源代码可以找一下(2004-02-13 14:53)
echo2003建议你看MAPX的如下相关帮助! Style.RegionBackColor property Style.RegionBorderColor property Style.RegionBorderStyle property Style.RegionBorderW...(2003-12-31 15:30)
jgh 请高手指点一下,如何实现面区域图元颜色(闪烁)变换 Dim ftr As New MapXLib.Feature Dim ftrs As New MapXLib.Features For Each ftr In lyr.Selection ...(2003-12-29 17:11)

返回顶部