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

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

ZuluTools

Синтаксис:

Visual Basic:

Function ShowSave(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)
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