Возвращает пользовательское название карты.

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

Project

Синтаксис:

Visual Basic:

Property MapUserName(Index As Long) As String

read-only

Index - номер карты в проекте (нумерация с нуля).

Пример:

'Вызываем метод
Private Sub Command1_Click()

    Dim pr As Project

    Dim zt As ZuluTools
    Set pr = New Project

    Set zt = New ZuluTools

    zt.ShowOpen Form1.hWnd, 64, "Выбор проекта"

    pr.Open zt.FileName

    Dim N As Long
    Dim i As Long

    N = pr.MapsCount

    For i = 0 To N - 1

        List1.AddItem pr.MapUserName(i)

    Next i

End Sub