Шаг 3 - Инструкция AppActivate

Активизирует окно приложения.

AppActivate title[, wait]

Параметры: title: Обязательный. Строковое выражение, указывающее содержимое строки заголовка окна приложения, которое следует активизировать. Для активизации приложения вместо аргумента title допускается использование кода задачи, возвращаемого функцией Shell.
Wait: Необязательный. Выражение типа Boolean, указывающее, должно ли вызывающее приложение иметь фокус при активизации другого приложения. Если этот аргумент имеет значение False (по умолчанию), указанное приложение активизируется немедленно, независимо от наличия фокуса у вызывающего приложения. Если этот аргумент имеет значение True, указанное приложение активизируется только после получения фокуса вызывающим приложением.

Замечания
Инструкция AppActivate передает фокус указанному приложению или окну, не изменяя его размеры. Активизированное окно приложения может потерять фокус в результате соответствующих действий пользователя или закрытия этого окна. Для запуска приложения и указания типа окна следует использовать функцию Shell.
При определении приложения, подлежащего активизации, аргумент title последовательно сравнивается со строкой заголовка каждого приложения, находящегося в памяти компьютера. При отсутствии точного совпадения активизируется приложение, строка заголовка которого начинается с указанной строки title. Если в памяти компьютера находятся несколько экземпляров приложения, строка заголовка которого совпадает с указанной строкой title, активизируется произвольно выбранный один из этих экземпляров.

Пример
В данном примере приведены различные способы активизации окна приложения с помощью инструкции AppActivate. При вызове функции Shell считается, что запускаемые приложения находятся там, где указано. На Macintosh для указания сигнатуры приложения вместо его имени используется функция MacID. Инструкцию AppActivate можно использовать с Macintosh System 7.0 или более поздней версии.

Dim MyAppID, ReturnValue

' В Microsoft Windows:

AppActivate "Microsoft Word" ' Активизирует Microsoft Word.

' Кроме того, можно использовать значение, возвращаемое функцией Shell.

MyAppID = Shell("C:\WORD\WINWORD.EXE", 1) ' Запускает Microsoft Word.

AppActivate MyAppID ' Активизирует Microsoft Word.

ReturnValue = Shell("c:\EXCEL\EXCEL.EXE",1) ' Запускает Microsoft Excel.

AppActivate ReturnValue ' Активизирует Microsoft Excel.

Дата добавления: 2015-06-27