メッセージボックスをフォアグラウンドに強制します。

Question

Visual FoxProインスタンスを呼び出してVFPプログラムを実行するVBScriptがあります。このプログラムの一部はメッセージボックスを生成します。しかし、スクリプトがコマンドプロンプトではなくWindows GUIから実行されている場合、生成されたメッセージボックスが必ずしもフォアグラウンドに来るとは限りません。 VBScriptで

私は次のコードを持っている：

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

を私はDOSプロンプトからこのスクリプトを実行すると、メッセージボックスが前面にポップアップ表示。エクスプローラでスクリプトをダブルクリックすると、エクスプローラウィンドウが生成されたメッセージボックスをカバーしている可能性があります。ユーザーの操作を待っているエクスプローラウィンドウの後ろにメッセージボックスが隠れていることを示す（たとえば、スタートバーには追加のボタンはありません）。

生成されたメッセージボックスを強制的にフォアグラウンドにする方法はありますか？

Answer 1

メッセージボックスオプションに文書化されていない「システムモーダル」フラグを追加します。

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