Принудительное сообщение на переднем плане - PullRequest
Новая
       25

Принудительное сообщение на переднем плане

0 голосов
/ 08 апреля 2009

У меня есть VBScript, который вызывает экземпляр Visual FoxPro и запускает программу VFP. Часть этой программы создает окно сообщения. Однако, если мой сценарий запускается из графического интерфейса Windows (а не из командной строки), созданное окно сообщения не обязательно выходит на передний план.

В VBScript у меня есть следующий код: 

Set oVFP = CreateObject("VisualFoxPro.Application")
oVFP.DoCmd("Messagebox('Hello World')")
Set oVFP = Nothing

Когда я запускаю этот скрипт из командной строки DOS, окно сообщения появляется на переднем плане. Когда я дважды щелкаю по сценарию в проводнике, окно проводника может закрывать созданное окно сообщения. Нет никаких признаков (например, никаких дополнительных кнопок на панели запуска), что окно сообщений скрывается за окном проводника в ожидании действий пользователя.

Есть ли способ вывести созданное окно сообщения на передний план?

1 Ответ

3 голосов
/ 09 апреля 2009

Добавьте недокументированный флаг 'System Modal' к опциям MessageBox: 

Set oVFP = CreateObject("VisualFoxPro.Application")
oVFP.DoCmd("Messagebox('Hello World', 4096)")
Set oVFP = Nothing
...