Вызывает диалог выбора существующего файла.

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

ZuluTools

Синтаксис:

Visual Basic:

Function ShowOpen(hWnd As Long, dwFilters As Long, Title As String) As Boolean

hWnd - дескриптор родительского окна.

dwFilters - маска открываемого файла:

1	карты (*.zmp)
2	слои (*.b00, *.zrs, *.zrg)
3	карты (*.zmp) и слои (*.b00, *.zrs, *.zrg)
4	базы данных (*.zb)
5	карты (*.zmp) и базы данных (*.zb)
7	карты (*.zmp) слои (*.b00, *.zrs, *.zrg) и базы данных (*.zb)
8	шаблоны надписей (*.zlb)
9	карты (*.zmp) и шаблоны надписей (*.zlb)
10	слои (*.b00, *.zrs, *.zrg) и шаблоны надписей (*.zlb)
16	шаблоны тематических фильтров (*.ztt)
32	тематические файлы (*.ztm)
64	проекты (*.zpr)
128	все файлы (*.*)
256	"слои WMS, Tile и SRTM3" (*.zww)
512	"любые слои" ( *.b00, *.zrs, *.zrg, *.zl, *.zww, *.ztr, *.gpx, *.plt)
1024	"файлы изображений" ( *.bmp, *.jpg, *.jpeg, *.tif, *.tiff, *.gif, *.png, *.pcx)
4096	"слой ZuluServer" ( *.zl)
0x40000000	разрешить множественный выбор файлов
0x80000000	запретить просмотр серверов геоданных

Title - заголовок открываемого окна диалога.

Описание:

Если метод возвращает True, имя выбранного файла можно получить через свойство ZuluTools.Filename

Если метод возвращает False, это означает отмену выбора.

Пример:

Dim Tools As ZuluTools
           
'Создаем объект ZuluTools 
Set Tools = New ZuluTools

'Выбираем карту
If Tools.ShowOpen (Form1.hWnd, 1, "Выбор карты") = True Then 
    'Загружаем выбранную карту в окно
    MapCtrl1.MapPath = Tools.Filename
End If