Afficher un message quelque soit le mode d'exécution de votre VB

Commenter

Contenu du snippet 

Const cintIconeStop = 16
Const cintIconeInterrogation = 32
Const cintIconeExclamation = 48
Const cintIconeInformations = 64

Const cstrMessageStop = "Stop"
Const cstrMessageInterrogation = "Question"
Const cstrMessageExclamation = "Exclamation"
Const cstrMessageInformation = "Information"

Sub AfficheMessage(ByVal pintType, ByVal pstrNomFenetre, ByVal pstrMessage, ByVal pintDelai)
 Dim strProgrammeLanceur
 Dim boolWindows
 Dim strType
 If (pinttype <> cintIconeStop) And (pinttype <> cintIconeInterrogation) And (pinttype <> cintIconeExclamation) And (pinttype <> cintIconeInformations) Then
  WScript.Echo "Le type de message est incorrect"
 End If
 boolWindows = False
 Select Case pintType
     Case cintIconeStop
      strType = cstrMessageStop
     Case cintIconeInterrogation
      strType = cstrMessageInterrogation
     Case cintIconeExclamation
      strType = cstrMessageExclamation
     Case cintIconeInformations
      strType = cstrMessageInformation
     Case Else
 End Select
 
 strProgrammeLanceur = CreateObject("Scripting.FileSystemObject").GetFileName(WScript.FullName)
 If (LCase(strProgrammeLanceur) = "wscript.exe") Then
  boolWindows = True
 End If
 If boolWindows Then
  CreateObject("WScript.Shell").popup pstrMessage, pintDelai, pstrNomFenetre, pintType
 Else
  WScript.Echo strType & " : " & pstrNomFenetre & " - " & pstrMessage
  WScript.Sleep(pintDelai * 1000)
 End If
End Sub

' Exemple d'utilisation
Call AfficheMessage(cintIconeInterrogation, "Ma fenetre", "Mon message", 3)

Compatibilité : 1.0

A voir également

S'inscrire maintenant

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.

Du même auteur (sokoban26)