powered by simpleCommunicator - 2.0.36     © 2025 Programmizd 02
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / В чём ошибка?
3 сообщений из 3, страница 1 из 1
В чём ошибка?
    #32173057
Lele
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Написала прогу на VFP 7, она работает нормально, но при завершении сеанса Windows или при перезагрузки возникает сообщение: Cannot Quit Visual Fox Pro. и не хочет перезагружаться пока не нажму Ctrl+Alt+Del и не завершу там свою программу. Помогите узнать в чём ошибка?
Текст главной программы:
cAPPFolder=SYS(16)
SET Default to left(cAPPFolder,Rat("\",cAPPFolder))
SET EXCLUSIVE Off
SET TALK OFF
On SHUTDOWN

SET SYSMENU OFF

*определяем вид экрана
.......

*запускаем главную форму
do form glav

read events
clear events

On SHUTDOWN QUIT

_Screen.Caption='Microsoft Visual FoxPro'
_Screen.ResetToDefault('Closable')
set sysmenu to default
close all
clear all
quit

Заранее спасибо!
...
Рейтинг: 0 / 0
В чём ошибка?
    #32173106
Фотография NNN
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
On SHUTDOWN QUIT перед read events
ИМХО все, что после read events - лишнее.
...
Рейтинг: 0 / 0
В чём ошибка?
    #32173147
Lele
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Большое спасибо! Всё получилось! В выходной форме надо было написать в Unload clear events.
...
Рейтинг: 0 / 0
3 сообщений из 3, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / В чём ошибка?
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]