мигающий объект

Question

Добрый всем день!

Может кто-нибудь подскажет, как сделать выбранный точечный объект мигающим?

Заранее спасибо

Answer 1

примените компонент Timer, на в событии Private Sub Timer1_Timer() используйте pSDisplay.DrawPoint pPoint

что то типа:
Private Sub Timer1_Timer()
'тута надо вставить код как отбирать Point и цвет
'если выбирать один и тотже Point и менять цвета, то на карте будет естественно как бы мигание
DrawSimplePoint ....... 'сюда вставить всю лабуду согласно кода далее
End Sub

Private Sub DrawSimplePoint(pSDisplay As IScreenDisplay, pPoint, pSimpleMarkerStyle As esriSimpleMarkerStyle, pSize As Integer, pRed As Integer, pGreen As Integer, pBlue As Integer)
    Dim pRgbColor As IRgbColor
    Set pRgbColor = New RgbColor
    pRgbColor.Red = pRed
    pRgbColor.Green = pGreen
    pRgbColor.Blue = pBlue
    Dim pSimpleMarkerSymbol As ISimpleMarkerSymbol
    Set pSimpleMarkerSymbol = New SimpleMarkerSymbol
    pSimpleMarkerSymbol.Style = pSimpleMarkerStyle
    pSimpleMarkerSymbol.Color = pRgbColor 'цвет точки
    pSimpleMarkerSymbol.Size = pSize ' размер символа в точке
Dim lOldActiveCache As Long
lOldActiveCache = pSDisplay.ActiveCache
With pSDisplay
    .ActiveCache = esriNoScreenCache
    .StartDrawing pSDisplay.hdc, esriNoScreenCache
    .SetSymbol pSimpleMarkerSymbol
    .DrawPoint pPoint
    .FinishDrawing
    .ActiveCache = lOldActiveCache
    End With
End Sub

Answer 2

p.s. можно и размеры менять, будет "мигать" размером и цветом