Каждую таблицу Visual FoxPro открывает в новой рабочей области. Попытка дважды открыть таблицу
заканчивается сообщением об ошибке: «File is in use». Что делать? Нажмите Ctrl + F2 и увидите окно (рис. 4.33).
Для того чтобы
комбинация клавиш сработала, в текст головного модуля должна быть добавлена
строчка:
ON KEY LABEL
Ctrl+F2 DO FORM AreaWork
Это запуск формы AreaWork. Форма не содержит никаких объектов,
кроме заголовка и иконки. Текст события Activate имеет вид:
* Сканирование максимум двадцати областей
* В больших программных комплексах следует цифру увеличить
FOR I=1 TO 20
IF LEN(ALLTRIM(DBF(I)))#0
? [ ]+STR(I,2)+[
область ]+DBF(I)
ENDIF
ENDFOR
* Отключить на время работы формы вызов по CTRL+F2
ON KEY LABEL CTRL+F2
В код события Destroy поместите возврат комбинации клавиш:
* Вернуть назад вызов формы AreaWork по
CTRL+F2
ON KEY LABEL CTRL+F2 DO FORM AreaWork