- <html>
- <head>
- </head>
- <body>
- <h3><center>Créer</center></h3>
- <center><input type="button" value="Contenu de la boite" OnClick="a=prompt ('Que voulez vous mettre dans la boite ?','Indiquez le contenu de la boite');">
- </center><br>
- <hr>
- <script language="VBscript">
- Sub contenu_onclick
- MsgBox ""+a+""
- End Sub
- Sub critical_onclick
- MsgBox ""+a+"",VbCritical
- End Sub
- Sub question_onclick
- MsgBox ""+a+"",Vbquestion
- End Sub
- Sub exclamation_onclick
- MsgBox ""+a+"",Vbexclamation
- End Sub
- Sub information_onclick
- MsgBox ""+a+"",Vbinformation
- End Sub
- Sub contenuvbok_onclick
- MsgBox ""+a+"",vbok
- End Sub
- Sub criticalvbok_onclick
- MsgBox ""+a+"",VbCritical+vbok
- End Sub
- Sub questionvbok_onclick
- MsgBox ""+a+"",Vbquestion+vbok
- End Sub
- Sub exclamationvbok_onclick
- MsgBox ""+a+"",Vbexclamation+vbok
- End Sub
- Sub informationvbok_onclick
- MsgBox ""+a+"",Vbinformation+vbok
- End Sub
- </script>
- <h3><center>Tester</center></h3>
- <center><input type="button" value="Contenu de la boite" name="contenu">
- <input type="button" value="Contenu de la boite (Critical)" name="critical">
- <input type="button" value="Contenu de la boite (Question)" name="question">
- <input type="button" value="Contenu de la boite (Exclamation)" name="exclamation">
- <input type="button" value="Contenu de la boite (Information)" name="information"><br><p>
- </body>
<html>
<head>
</head>
<body>
<h3><center>Créer</center></h3>
<center><input type="button" value="Contenu de la boite" OnClick="a=prompt ('Que voulez vous mettre dans la boite ?','Indiquez le contenu de la boite');">
</center><br>
<hr>
<script language="VBscript">
Sub contenu_onclick
MsgBox ""+a+""
End Sub
Sub critical_onclick
MsgBox ""+a+"",VbCritical
End Sub
Sub question_onclick
MsgBox ""+a+"",Vbquestion
End Sub
Sub exclamation_onclick
MsgBox ""+a+"",Vbexclamation
End Sub
Sub information_onclick
MsgBox ""+a+"",Vbinformation
End Sub
Sub contenuvbok_onclick
MsgBox ""+a+"",vbok
End Sub
Sub criticalvbok_onclick
MsgBox ""+a+"",VbCritical+vbok
End Sub
Sub questionvbok_onclick
MsgBox ""+a+"",Vbquestion+vbok
End Sub
Sub exclamationvbok_onclick
MsgBox ""+a+"",Vbexclamation+vbok
End Sub
Sub informationvbok_onclick
MsgBox ""+a+"",Vbinformation+vbok
End Sub
</script>
<h3><center>Tester</center></h3>
<center><input type="button" value="Contenu de la boite" name="contenu">
<input type="button" value="Contenu de la boite (Critical)" name="critical">
<input type="button" value="Contenu de la boite (Question)" name="question">
<input type="button" value="Contenu de la boite (Exclamation)" name="exclamation">
<input type="button" value="Contenu de la boite (Information)" name="information"><br><p>
</body>