Powerd911 – Numéro #1 au Canada

Syntaxe de la fonction MsgBox en VBS

Quelques exemples

If MsgBox("Appuyez sur le bouton OK afin de continuer", vbOKCancel) = vbCancel Then
output "Annuler"
else
output "OK"
end if

BTN1

Select Case Msgbox("Êtes-vous certain?",vbYesNo)
Case vbYes
Output "Oui"
Case vbNo
Output "Non"
End Select

BTN2

If MsgBox("Êtes-vous certain?", vbQuestion) = vbOK Then
Output "OK"
End If

BTN3

dim resultat

resultat = MsgBox("Mon message", vbYesNoCancel, "Mon titre")
if resultat = vbYes Then
output "Oui"
elseif resultat = vbCancel Then
output "Annuler"
elseif resultat = vbNo Then
output "Non"
End If

BTN4

if msgbox("Êtes-vous certains de vouloir continuer?", vbexclamation+vbokcancel, "Mon titre") = vbcancel then
output "Annuler"
else
output "OK"
end if

BTN5

Affichage du fichier d’aide

Si vous ne connaissez pas le numéro du contexte, indiquez la valeur « 0 ». Ceci permettra d’ouvrir le fichier d’aide et que ce soit à l’utilisateur d’entreprendre la recherche.

Const cstrHlp = "C:Program FilesSybasePowerAMC 16poweramc.chm"

Dim strMessage

strMessage = MsgBox("Affichage du document d'aide", vbOKCancel + vbQuestion + _
vbDefaultButton1 + vbMsgBoxHelpButton, "Affichage du document d'aide", cstrHlp, 0)

BTN6

Laisser un commentaire