?? 對象閃爍功能.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
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -