Force messagebox au premier plan

Question

J'ai un VBScript qui appelle une instance Visual FoxPro et exécute un programme VFP. Une partie de ce programme produit un messagebox. Toutefois, si mon script est exécuté à partir de l'interface graphique de Windows (plutôt que d'une invite de commandes), la boîte de message produite ne vient pas nécessairement au premier plan.

Dans VBScript J'ai le code suivant:

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

Quand je lance ce script à partir d'une invite DOS, la boîte de message apparaît au premier plan. Lorsque je double-clique sur le script dans Explorer, la fenêtre de l'Explorateur peut couvrir la boîte de message produite. Il n'y a pas d'indication (pas de boutons supplémentaires dans la barre de démarrage, par exemple) que la boîte de message se cache derrière la fenêtre de l'Explorateur en attendant l'action de l'utilisateur.

Existe-t-il un moyen de forcer la boîte de message produite au premier plan?

Answer 1

Ajouter le drapeau sans papier 'Système Modal' aux options MessageBox:

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