ShowOpen method (ZuluTools)

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

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

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)

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