PureBasic

Code : Tout sélectionner

Procedure MessageRequesterPlus(Titre.s, Msg.s, Type.l, Icone.l)
  ; Type  | Boutons qui apparaissent avec résultat
  ; 0       OK = 1
  ; 1       OK = 1, Annuler = 2
  ; 2       Abandon = 3, Reessayer = 4, Ignorer = 5
  ; 3       Oui = 6, Non = 7, Annuler = 2
  ; 4       Oui = 6, Non = 7
  ; 5       Reessayer = 4, Annuler = 2
  
  ; Icone | Description de l'icône
  ; 0       Rien          : pas d'icône
  ; 1       Interdit      : rond rouge avec une croix blanche
  ; 2       Aide          : bulle avec un ?
  ; 3       Danger        : triangle jaune avec un !
  ; 4       Information   : bulle avec un I
  
  If Type >= 0 And Type <= 5 And Icone >= 0 And Icone <= 4
    ProcedureReturn MessageRequester(Titre, Msg, Type + 16 * Icone)
  Else
    ProcedureReturn 0
  EndIf
EndProcedure



Debug MessageRequesterPlus("Message", "Essai des bouton", 3, 4)

Code : Tout sélectionner

MessageRequester("Titre","Question",#MB_ICONQUESTION)

Code : Tout sélectionner

MB_ABORTRETRYIGNORE = 2 
MB_APPLMODAL = 0 
MB_COMPOSITE = 2 
MB_DEFAULT_DESKTOP_ONLY = 131072 
MB_DEFBUTTON1 = 0 
MB_DEFBUTTON2 = 256 
MB_DEFBUTTON3 = 512 
MB_DEFMASK = 3840 
MB_ICONASTERISK = 64 
MB_ICONEXCLAMATION = 48 
MB_ICONHAND = 16 
MB_ICONINFORMATION = MB_ICONASTERISK 
MB_ICONMASK = 240 
MB_ICONQUESTION = 32 
MB_ICONSTOP = MB_ICONHAND 
MB_MISCMASK = 49152 
MB_MODEMASK = 12288 
MB_NOFOCUS = 32768 
MB_OK = 0 
MB_OKCANCEL = 1 
MB_PRECOMPOSED = 1 
MB_RETRYCANCEL = 5 
MB_SETFOREGROUND = 65536 
MB_SYSTEMMODAL = 4096 
MB_TASKMODAL = 8192 
MB_TYPEMASK = 15 
MB_USEGLYPHCHARS = 4 
MB_YESNO = 4 
MB_YESNOCANCEL = 3