RUS  ENG 

Выбор папки. Выбор Файла

Поиск  Правила  Войти
Страницы: 1
RSS
Выбор папки. Выбор Файла
 
#1
15.01.2025 12:34:01
Пытаюсь в ZuliGis Сделать скриптом выбор папки и выбор файла

через GetFolder https://www.politerm.com/zuludoc/zuluax/ZuluTools_GetFolder.html
и через ShowOpen https://www.politerm.com/zuludoc/zuluax/index.html#ZuluTools_ShowOpen.html

Застрял в самом начале. Что нужно минимально написать, чтобы открылось окно с возможностью выбора и результат записался в строку после выбора?



Sub win
Dim Tools As ZuluTools

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

'Выбираем карту
If Tools.ShowOpen (Form1.hWnd, 1, "Выбор карты") = True Then
'Загружаем выбранную карту в окно
MapCtrl1.MapPath = Tools.Filename
End If
End Sub
 
 
 
#2
15.01.2025 12:54:53
Цитата
написал:
Пытаюсь в ZuliGis Сделать скриптом выбор папки и выбор файла

через GetFolder https://www.politerm.com/zuludoc/zuluax/ZuluTools_GetFolder.html
и через ShowOpen https://www.politerm.com/zuludoc/zuluax/index.html#ZuluTools_ShowOpen.html

Застрял в самом начале. Что нужно минимально написать, чтобы открылось окно с возможностью выбора и результат записался в строку после выбора?

Sub win
Dim Tools As ZuluTools

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

'Выбираем карту
If Tools.ShowOpen (Form1.hWnd, 1, "Выбор карты") = True Then
'Загружаем выбранную карту в окно
MapCtrl1.MapPath = Tools.Filename
End If
End Sub
Если это макрос в ZuluGIS, то там неприменим пример работы с MapCtrl через Visual Basic. Там язык VBScript. Примерно так:
Код
Sub win

'Создаем объект ZuluTools
Set Tools = CreateObject("zululib.ZuluTools")

'Выбираем карту
If Tools.ShowOpen (0, 1, "Выбор карты") = True Then
    'Загружаем выбранную карту в окно
    Zulu.OpenDocument Tools.Filename
    
End If
End Sub
 
 
 
Страницы: 1