4.4.5. Информация о рабочих областях

 

Каждую таблицу 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