强制消息框到前台

Question

我有一个调用Visual FoxPro实例并运行VFP程序的VBScript。该程序的一部分产生一个消息框。但是，如果我的脚本是从Windows GUI（而不是命令提示符）运行的，那么生成的消息框不一定会出现在前台。

在VBScript中，我有以下代码：

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

当我从DOS提示符运行此脚本时，消息框会弹出到前台。当我在资源管理器中双击脚本时，资源管理器窗口可能会覆盖生成的消息框。没有指示（例如，开始栏上没有额外的按钮）消息框隐藏在资源管理器窗口后面等待用户操作。

有没有办法强制生成的消息框到前台？

Answer 1

将未记录的“系统模态”标志添加到MessageBox选项：

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