Вызывает диалог сохранения файла.

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

ZuluTools

Синтаксис:

Visual Basic:

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

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

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

1	карты (*.zmp)
2	слои (*.b00)
3	карты (*.zmp) и слои (*.b00)
4	базы данных (*.zb)
5	карты (*.zmp) и базы данных (*.zb)
7	карты (*.zmp) слои (*.b00) и базы данных (*.zb)
8	шаблоны надписей (*.zlb)
9	карты (*.zmp) и шаблоны надписей (*.zlb)
10	слои (*.b00) и шаблоны надписей (*.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)
8182	слои (*.b00, *.zrs, *.zrg, *.zl)
0x40000000	разрешить множественный выбор файлов
0x80000000	запретить просмотр серверов геоданных

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

Описание:

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

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

Пример:

Dim Tools As ZuluTools

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

'Выбираем имя карты
If Tools.ShowSave (Form1.hWnd, 1, "Сохранение карты") =  True Then 

    'Сохраняем карту в выбранном файле
    MapCtrl1.Map.SaveAs  Tools.Filename

End If