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