Écoutez cet article

La méthode Popup produit une boîte de message contextuelle qui peut afficher un message à un utilisateur pendant une durée déterminée. Si la durée du message est omise ou définie à zéro, la fenêtre contextuelle reste affichée jusqu’à ce que l’utilisateur la ferme.

En outre, un titre peut être attribué au message contextuel. S’il est omis, le titre par défaut est « Windows Script Host ». La syntaxe est la suivante :

WshShell.Popup strText[,nSecondsToWait] [,strTitle] [,nType]

Arguments :

strText - Valeur de type chaîne contenant le texte que vous souhaitez voir apparaître dans la boîte de message popup.
nSecondsToWait - Facultatif. Valeur numérique indiquant la durée maximale (en secondes) d'affichage de la boîte de message contextuelle.
strTitle - Facultatif. Valeur de type chaîne contenant le texte que vous souhaitez voir apparaître comme titre de la boîte de message contextuelle.
nType - Facultatif. Valeur numérique indiquant le type de boutons et d'icônes que vous souhaitez voir apparaître dans la boîte de message contextuelle. Ils déterminent la façon dont la boîte de message est utilisée.
IntButton - La valeur numérique indique le nombre de boutons sur lesquels l'utilisateur a cliqué pour faire disparaître la boîte de message. Il s'agit de la valeur renvoyée par la méthode Popup.

Types de boutons :

0 - Afficher le bouton OK
1 - Afficher les boutons OK et Annuler
2 - Afficher les boutons Abandon, Réessayer et Ignorer
3 - Afficher les boutons Oui, Non et Annuler
4 - Afficher les boutons Oui et Non
5 - Afficher les boutons Retry et Cancel

Icônes :

16 - Affiche l'icône "Marque d'arrêt
32 - Affiche l'icône "Point d'interrogation
48 - Affiche l'icône du "point d'exclamation".
64 - Affiche l'icône "Marque d'information

intButton Codes de retour :

1 - Bouton OK
2 - Bouton d'annulation
3 - Bouton Abandon
4 - Bouton Retenter
5 - Bouton Ignorer
6 - Bouton "Oui
7 - Bouton Non

Si l’utilisateur ne clique pas sur un bouton avant nSecondsToWait secondes, intButton est fixé à -1.

Exemple :

Dim WshShell, BtnCode
Set WshShell = WScript.CreateObject(« WScript.Shell »)
BtnCode = WshShell.Popup(« Aimez-vous votre travail ? », 7, « Answer This Question : », 4 + 32)
Select Case BtnCodecase 6 WScript.Echo « C’est génial !. »
Case 7 WScript.Echo « Désolé d’entendre ça. »
case -1 WScript.Echo « Pas de réponse ? »
Fin de la sélection