Возвращает/устанавливает текущий мигающий элемент для активного слоя.

Применяется к:

MapCtrl

Синтаксис:

Visual Basic:

Property CurrentID As Long

Описание:

Свойство элемента управления MapCtrl. Возвращает или устанавливает значение ключа (ID) объекта активного слоя карты, который в данный момент мигает. Если мигающего объекта у карты нет, или мигает объект неактивного слоя, значение CurrentID равно -1.

При присвоении CurrentID какого-либо значения произойдет поиск объекта в активном слое карты, с ключом, имеющим такое значение и, если такой объект найден, он начнет мигать. Если найденный объект находится за пределами видимой части карты, карта изменит свойства MapX и MapY таким образом, что найденный объект после автоматического перестроения окажется в центре окна карты.

Чтобы погасить мигающий объект, нужно присвоить CurrentID значение -1.

Пример:

'В таблице сменилась текущая запись
Private Sub DBGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer)

    Dim OldID As long
    Dim NewID As long

    'запомнили текущее значение ID
    OldID = MapCtrl1.CurrentID

    'новое значение ID по полю Sys текущей записи таблицы
    NewID = Data1.Recordset.Fields("Sys")

    If NewID <> OldID Then 
        'Замигиваем объект на карте с ключом, равным значению поля Sys текущей записи
        MapCtrl1.CurrentID = NewID

        If MapCtrl1.CurrentID = OldID Then
            'Если значение CurrentID оне изменилось, значит объект из 
            'таблицы  на карте не найден. Прекращаем мигание
            MapCtrl1.CurrentID = -1
        End IF

    End If

End Sub