对象闪烁功能.txt

对象闪烁功能

 很多GIS系统中要用到图形对象的闪烁功能。比如：节点在状态未知时显示灰色，在接受查询时以闪烁以表明状态。这部分功能是借助定时器控件实现的。程序代码主要部分如下：
   
    '记录目前正在处理的节点图标
    Dim CurCusSym As New MapXLib.Feature
    '两个交替显示的图标
    Dim NewStyle As New MapXLib.Style, OldStyle As New MapXLib.Style
    '用于更换图标的布尔值
    Dim blnold As Boolean
    …………
 Private Sub Timer1_Timer()  (每次定时器间隔时间到时调用此函数)
    Set lyr = Map1.Layers.Item(1)
    Set FeaFac = Map1.FeatureFactory
    With NewStyle
     .SymbolType = miSymbolTypeBitmap
     .SymbolBitmapSize = 24
     .SymbolBitmapTransparent = True
     .SymbolBitmapName = "red.BMP"   (要显示的第一张图片)
    End With
    
    With OldStyle
     .SymbolType = miSymbolTypeBitmap
     .SymbolBitmapSize = 24
     .SymbolBitmapTransparent = True
     .SymbolBitmapName = "gray.BMP"   (要显示的第二张图片)
    End With
    
    Map1.AutoRedraw = False     (禁止自动刷新)
    If (blnold = True) Then     (如果正显示第一张图片，就替换为第二张图片) 
    CurCusSym.Style = OldStyle
    blnold = False
    Else
    CurCusSym.Style = NewStyle  (如果正显示第一张图片，就替换为第二张图片) 
    blnold = True
    End If
    CurCusSym.Update  (刷新图片)
 End Sub