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

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

Layer

Синтаксис:

Visual Basic:

FunctionDrawLabelsClose() As Boolean

Описание:

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

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

Пример:

Для запуска примера необходимо разместить на форме элемент управления MapCtrl с именем MapCtrl1 и загрузить в него любую карту, в которой есть слой с подключенными надписями.

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