|
阅读：1990回复：5
找到目标图元后，怎么改变图元的颜色或让它闪烁
<P>如题，我有一段代码</P>
<P>Dim f As MapXLib.FindFeature Set f = Map1.Layers(1).Find.Search(List1.Text) If f.FindRC Mod 10 = 1 Then Map1.ZoomTo 300, f.CenterX, f.CenterY End If 接下来该怎么办？</P><img src="images/post/smile/dvbbs/em08.gif" /> |
|
|
1楼#
发布于：2004-09-10 13:00
论坛内有相关的例子，你可以去找找！
|
|
|
2楼#
发布于：2004-09-10 17:29
<P>Private Sub List1_Click()</P><P> Set f = Map1.Layers(1).Find.Search(List1.Text)
If f.FindRC Mod 10 = 1 Then Map1.ZoomTo 300, f.CenterX, f.CenterY End If Timer1.Enabled = True f.Style.SymbolBitmapSize = 20 End Sub Private Sub Timer1_Timer() If f.Style.SymbolBitmapSize = 20 Then f.Style.SymbolBitmapSize = 5 Else f.Style.SymbolBitmapSize = 20 End If f.update End Sub</P><P>图元没有任何反映，没有闪烁，请你再帮帮我！</P> |
|
|
3楼#
发布于：2004-09-23 12:46
<P>图层要设置成可编辑...</P>
|
|
|
4楼#
发布于：2004-09-24 11:00
<P>顶</P><P>好问题</P>
|
|
|
5楼#
发布于：2004-10-06 02:37
我也碰到这样的问题，图层可编辑也不行
|
|
