Include "mapbasic.def"
Declare Sub Main
Declare Sub TEST
Declare Sub theEnd
Dim fileName As String
Dim GetRowCount As String
Sub Main
Create Menu "TEST" As
"ZAGRUZIT_KARTY" Calling TEST,
"VIGRUZIT_KARTY" Calling Main,
"ZAPROSI" Calling TEST,
"Выход" Calling theEnd
Alter Menu Bar Add "TEST"
end sub
`В ЭТОМ МЕСТЕ ПРОИСХОДИТ ОТКРЫТИЕ КАРТЫ И ДИАЛОГ С ПОЛЬЗОВАТЕЛЕМ
Sub TEST
if Ask("Действительно желаете загрузить карту?", "Да", "Нет")="T" then
fileName = FileOpenDlg("G:\курсач 6 курс\Курсовая работа наработки за 6 курc\Рабочая область","","TAB","Открыть таблицу")
print "ВАША КАРТА УДАЧНО ЗАГРУЖЕНА"
else
note "Вы не захотели выбрать карту"
end if
end sub
Sub theEnd
End Program
end sub
______________________________________________
НУЖНА ПОМОЩЬ, программа компилируется, ошибок нет, но вот в чём загвоздка, запускаю её , и нажимаю в МЕНЮ "ТЕСТ" на любую любую КНОПКУ ЗАГРУЗИТЬ, ВЫГРУЗИТЬ КАРТУ(ТАБЛИЦУ), затем выбираю, что мне надо загрузить, подтверждаю открыть, но само изображение почему-то не появляется(отображается), как допустим открыть через стандартную панель, почему-так, что необходимо дописать, чтоб всё заработало, как я того хочу?!! -МОжет кто подскажет))
Утилиты и параметры для MapInfo
КУРСОВАЯ РАБОТА
8 Февраль, 2014 - 00:33
#1
КУРСОВАЯ РАБОТА
fileName = FileOpenDlg("G:\курсач 6 курс\Курсовая работа наработки за 6 курc\Рабочая область","","TAB","Открыть таблицу")
Вы получаете имя файла и ничего более. Для реального открытия таблицы нужно выполнить
Open Table fileName