Inputbox & msgbox en vbscript

Soyez le premier à donner votre avis sur cette source.

Snippet vu 46 804 fois - Téléchargée 36 fois

Contenu du snippet

Exemple d'utilisation d'une MessageBox & d'une InputBox tiré de MSDN.
Je le mets car quelqu'un le cherchait...

Source / Exemple :


'---------------------------------------------------------------------
'MSGBOX
Dim Msg, Style, Title, Help, Ctxt, Response, MyString
Msg = "Do you want to continue ?"   ' Define message.
Style = vbYesNo + vbCritical + vbDefaultButton2   ' Define buttons.
Title = "MsgBox Demonstration"   ' Define title.
Help = "DEMO.HLP"   ' Define Help file.
Ctxt = 1000   ' Define topic
      ' context. 
      ' Display message.
Response = MsgBox(Msg, Style, Title, Help, Ctxt)
If Response = vbYes Then   ' User chose Yes.
   MyString = "Yes"   ' Perform some action.
Else   ' User chose No.
   MyString = "No"   ' Perform some action.
End If

'---------------------------------------------------------------------
'INPUTBOX
Dim Message, Title, Default, MyValue
Message = "Enter a value between 1 and 3"   ' Set prompt.
Title = "InputBox Demo"   ' Set title.
Default = "1"   ' Set default.
' Display message, title, and default value.
MyValue = InputBox(Message, Title, Default)

' Use Helpfile and context. The Help button is added automatically.
MyValue = InputBox(Message, Title, , , , "DEMO.HLP", 10)

' Display dialog box at position 100, 100.
MyValue = InputBox(Message, Title, Default, 100, 100)

Conclusion :


Si d'autres soucis aller sur le site MSDN mais c'est un vrai souk !!
http://www.microsoft.com/france/msdn/technologies/outils/vbasic/default.asp

A voir également

Ajouter un commentaire

Commentaires

Messages postés
42
Date d'inscription
vendredi 21 janvier 2005
Statut
Membre
Dernière intervention
18 septembre 2005

LoL ouai c'est sur ! Je suis deb donc voila quoi je decouvre
Messages postés
394
Date d'inscription
mercredi 30 janvier 2002
Statut
Membre
Dernière intervention
4 novembre 2009
1
Pas de auoi je l'apprends aussi .. car je l'ai jamais utilisé
Messages postés
42
Date d'inscription
vendredi 21 janvier 2005
Statut
Membre
Dernière intervention
18 septembre 2005

A ok merci !
Messages postés
394
Date d'inscription
mercredi 30 janvier 2002
Statut
Membre
Dernière intervention
4 novembre 2009
1
Tiré du MSDN :
Numeric expression that identifies the Help context number assigned by the Help author to the appropriate Help topic. If context is provided, helpfile must also be provided. Not available on 16-bit platforms.

Cela sert donc si tu as une aide associée..
Messages postés
42
Date d'inscription
vendredi 21 janvier 2005
Statut
Membre
Dernière intervention
18 septembre 2005

Salut ! Sa sert a quoi cette partie de ton VBS !? :

Ctxt = 1000 ' Define topic
' context.
' Display message.
Afficher les 9 commentaires

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.