PureBasic

Code : Tout sélectionner

Select MessageRequester("Test", "Test", #MB_OK)
  Case #IDOK: Debug "ok"
EndSelect

Select MessageRequester("Test", "Test", #MB_YESNO)
  Case #IDYES: Debug "yes"
  Case #IDNO:  Debug "no"
EndSelect

Select MessageRequester("Test", "Test", #MB_YESNOCANCEL)
  Case #IDYES:    Debug "yes"
  Case #IDNO:     Debug "no"
  Case #IDCANCEL: Debug "cancel"
EndSelect

Select MessageRequester("Test", "Test", #MB_OKCANCEL)
  Case #IDOK:     Debug "ok"
  Case #IDCANCEL: Debug "cancel"
EndSelect

Select MessageRequester("Test", "Test", #MB_RETRYCANCEL)
  Case #IDRETRY:  Debug "retry"
  Case #IDCANCEL: Debug "cancel"
EndSelect

Select MessageRequester("Test", "Test", #MB_ABORTRETRYIGNORE)
  Case #IDABORT:  Debug "abort"
  Case #IDRETRY:  Debug "retry"
  Case #IDIGNORE: Debug "ignore"
EndSelect