Завершает процесс вывода пользовательской надписи.

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

Layer

Синтаксис:

Visual Basic:

Function DrawLabelsClose() As Boolean

Описание:

Метод закрывает сеанс вывода пользовательских надписей, открытый методом DrawLabelsInit при отрисовке карты, и возвращает True. Вызов, когда такого сеанса нет, тоже возвращает True.

В случае неудачи возникает исключение с одним из следующих кодов:

Код	Описание
513	Слой не открыт. Операция проводится со слоем, который либо не загружен в карту, либо не открыт с помощью метода Open.

Пример:

Пример — обработчик события OnDrawUserLabels элемента управления MapCtrl с именем MapCtrl1, в который загружена карта со слоем с подключенными надписями. Сеанс вывода открывает DrawLabelsInit, текст надписи задает DrawElemIDLabel, а завершает вывод DrawLabelsClose.

Visual Basic:

Private Sub MapCtrl1_OnDrawUserLabels(ByVal DrawHandle As Long, ByVal LayerIndex As Long)

    Dim i As Long
    Dim els As ElementKeys

    'если к слою не подключены надписи, то выход из процедуры
    If MapCtrl1.Map.Layers.Item(LayerIndex).LabelsID = -1 Then Exit Sub
    'получение ключей объектов, для которых подключены надписи и которые видны на карте
    Set els = MapCtrl1.Map.Layers.Item(LayerIndex).DrawLabelsInit(DrawHandle, -1)

    For i = 1 To els.Count
        'вместо стандартной надписи выводится ключ объекта (ID)
        MapCtrl1.Map.Layers.Item(LayerIndex).DrawElemIDLabel els.Item(i), Str(els.Item(i))
    Next i

    MapCtrl1.Map.Layers.Item(LayerIndex).DrawLabelsClose

End Sub