Inputbox & msgbox en vbscript

Soyez le premier à donner votre avis sur cette source.

Snippet vu 46 382 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

cyril722
Messages postés
26
Date d'inscription
vendredi 1 février 2002
Statut
Membre
Dernière intervention
16 août 2002
-
salut
au lieu de faire un copie colle teste ton code et reflechie avant
il est impossible de faire un msgbox en ASP maintenant si tu veux savoir pk je peux te le dire
cs_fabrice69
Messages postés
1766
Date d'inscription
jeudi 12 octobre 2000
Statut
Modérateur
Dernière intervention
11 décembre 2013
4 -
Si c'est tout à fait possible mais en mode client de la même facon que le javascript, c'est d'ailleur la raison pour laquelle tu dois normalement spécifier le langage lorsque tu fais un script côté client.

Le codeur a simplement oublié de le spécifier avant ce code il faut donc :
<SCRIPT LANGUAGE='VBSCRIPT'>
.......Le script
</SCRIPT>

F___
cs_cbu
Messages postés
394
Date d'inscription
mercredi 30 janvier 2002
Statut
Membre
Dernière intervention
4 novembre 2009
1 -
Cyril : Ouais scuse d'être aussi stupide... lol
Bon courage quand meme.
NB : En script client on peut mettre n'importequel langage il faut juste vérifier si les navigateurs les acceptent. En effet VBScript n'est accepter que par IE & dérivés p-e...

Désolé d'avoir oublié de mettre ce que Fabrice a souligné :
<SCRIPT LANGUAGE='VBSCRIPT'>
msgbox("Et ca ca marche pas Cyril ?")
</SCRIPT>
Bonne prog.
A+
cbu
Qrev
Messages postés
2
Date d'inscription
mercredi 10 juillet 2002
Statut
Membre
Dernière intervention
31 juillet 2002
-
En effet le probleme avec les msgbox en vbscript c'est que lutilisateur doit posseder les dll requis... IIS ne gere pas cette function au serveurs...
zaert
Messages postés
43
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.

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.