Inputbox & msgbox en vbscript

0/5 (9 avis)

Snippet vu 47 320 fois - Téléchargée 38 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
zaert Messages postés 42 Date d'inscription vendredi 21 janvier 2005 Statut Membre Dernière intervention 18 septembre 2005
2 août 2005 à 11:25
LoL ouai c'est sur ! Je suis deb donc voila quoi je decouvre
cs_cbu Messages postés 394 Date d'inscription mercredi 30 janvier 2002 Statut Membre Dernière intervention 4 novembre 2009 1
2 août 2005 à 11:23
Pas de auoi je l'apprends aussi .. car je l'ai jamais utilisé
zaert Messages postés 42 Date d'inscription vendredi 21 janvier 2005 Statut Membre Dernière intervention 18 septembre 2005
2 août 2005 à 11:18
A ok merci !
cs_cbu Messages postés 394 Date d'inscription mercredi 30 janvier 2002 Statut Membre Dernière intervention 4 novembre 2009 1
2 août 2005 à 08:41
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..
zaert Messages postés 42 Date d'inscription vendredi 21 janvier 2005 Statut Membre Dernière intervention 18 septembre 2005
31 juil. 2005 à 12:52
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.