messagebox — n_pbt_messagebox #

← Référence des composants · Sommaire du guide

Boîte de dialogue modale thémée, à retour synchrone : le remplaçant direct du MessageBox() de PowerBuilder, avec texte riche, boutons libres, icônes et case à cocher.

▶ Le voir en vrai — Application de démonstration, tuile Message box : l'aperçu, le code qui le produit et cette page, côte à côte.

En bref #

Contrairement aux composants visuels, cet objet ne s'insère pas dans une fenêtre : on le crée, configure, affiche, détruit.

n_pbt_messagebox lnv_mb

lnv_mb = create n_pbt_messagebox
// ... configuration ...
destroy lnv_mb

Démarrage rapide #

n_pbt_messagebox lnv_mb

lnv_mb = create n_pbt_messagebox

lnv_mb.is_title   = "Suppression"
lnv_mb.is_icon    = lnv_mb.ICON_WARNING
lnv_mb.is_message = "Supprimer definitivement [b]12 dossiers[/b] ?[br][br]Cette action est irreversible."

lnv_mb.of_add_button(/*texte*/ "Supprimer", /*defaut*/ true,  /*annulation*/ false)   // -> 1
lnv_mb.of_add_button(/*texte*/ "Annuler",   /*defaut*/ false, /*annulation*/ true)    // -> 2

if lnv_mb.of_show(/*hwnd*/ Handle(this)) = 1 then
    of_supprimer()
end if

destroy lnv_mb

of_show attend la réponse de l'utilisateur : la ligne suivante ne s'exécute qu'après le clic, exactement comme avec MessageBox().

Propriétés #

À poser avant of_show.

Constantes #

Méthodes #

Le libellé d'un bouton accepte le balisage riche et le mnémonique & ("&Enregistrer" souligne le E et l'active par Alt+E) ; && affiche une esperluette littérale.

Le clavier #

À l'ouverture, aucun bouton n'a de contour de focus : c'est voulu, et c'est le comportement des dialogues Windows modernes. Le liseré n'apparaît qu'après une première pression sur Tab, c'est-à-dire quand l'utilisateur passe explicitement au clavier. Entrée et Échap restent actifs dès la première seconde, même sans focus visible.

Exemples #

Question fermée avec bouton par défaut #

n_pbt_messagebox lnv_mb
long ll_reponse

lnv_mb = create n_pbt_messagebox

lnv_mb.is_title   = "Enregistrer les modifications"
lnv_mb.is_icon    = lnv_mb.ICON_QUESTION
lnv_mb.is_message = "Le dossier a ete modifie. Voulez-vous enregistrer avant de fermer ?"

lnv_mb.of_add_button(/*texte*/ "&Enregistrer",     /*defaut*/ true,  /*annulation*/ false)  // 1
lnv_mb.of_add_button(/*texte*/ "&Ne pas enregistrer", /*defaut*/ false, /*annulation*/ false) // 2
lnv_mb.of_add_button(/*texte*/ "Annuler",          /*defaut*/ false, /*annulation*/ true)   // 3

ll_reponse = lnv_mb.of_show(/*hwnd*/ Handle(this))
destroy lnv_mb

choose case ll_reponse
    case 1 ; of_enregistrer() ; Close(parent)
    case 2 ; Close(parent)
    case else ; // 3 ou 0 : on ne ferme pas
end choose

Message enrichi et icône #

lnv_mb.is_title   = "Import termine"
lnv_mb.is_icon    = lnv_mb.ICON_SUCCESS
lnv_mb.is_message = "[b]1 240 lignes[/b] integrees.[br][br]" &
                  + "[accent]18 doublons[/accent] ont ete ignores."

lnv_mb.of_add_button(/*texte*/ "OK", /*defaut*/ true, /*annulation*/ false)
lnv_mb.of_show(/*hwnd*/ Handle(this))

Case « ne plus me demander » #

n_pbt_messagebox lnv_mb

lnv_mb = create n_pbt_messagebox

lnv_mb.is_title    = "Suppression"
lnv_mb.is_icon     = lnv_mb.ICON_WARNING
lnv_mb.is_message  = "Supprimer les lignes selectionnees ? Cette action est irreversible."
lnv_mb.is_checkbox = "Ne plus me demander"
lnv_mb.ib_checked  = false

lnv_mb.of_add_button(/*texte*/ "Supprimer", /*defaut*/ true,  /*annulation*/ false)
lnv_mb.of_add_button(/*texte*/ "Annuler",   /*defaut*/ false, /*annulation*/ true)

if lnv_mb.of_show(/*hwnd*/ Handle(this)) = 1 then
    of_supprimer()
    // Memoriser le choix de l'utilisateur
    ib_confirmer_suppression = not lnv_mb.of_checked()
end if

destroy lnv_mb

Bouton à compte à rebours #

lnv_mb.is_title   = "Redemarrage"
lnv_mb.is_icon    = lnv_mb.ICON_INFORMATION
lnv_mb.is_message = "L'application va redemarrer pour appliquer la mise a jour."

// "Continuer" reste grise 3 secondes (un compteur s'affiche)
lnv_mb.of_add_button_timed(/*texte*/ "Continuer", /*defaut*/ true, /*annulation*/ false, &
                           /*secondes_actif*/ 3, /*secondes_clic*/ 0)

// "Plus tard" se clique tout seul au bout de 10 secondes
lnv_mb.of_add_button_timed(/*texte*/ "Plus tard", /*defaut*/ false, /*annulation*/ true, &
                           /*secondes_actif*/ 0, /*secondes_clic*/ 10)

lnv_mb.of_show(/*hwnd*/ Handle(this))

Message long : limiter la taille #

// Un texte volumineux : la boite est plafonnee et le corps defile
lnv_mb.is_title      = "Notes de version"
lnv_mb.is_message    = ls_notes
lnv_mb.il_max_width  = 480
lnv_mb.il_max_height = 320

lnv_mb.of_add_button(/*texte*/ "Fermer", /*defaut*/ true, /*annulation*/ true)
lnv_mb.of_show(/*hwnd*/ Handle(this))

Réutiliser une instance #

// Une instance de fenetre, plusieurs dialogues : of_reset entre chaque appel
inv_mb.of_reset()      // efface les proprietes ET les boutons precedents

inv_mb.is_title   = "Second dialogue"
inv_mb.is_message = "Chaque of_reset repart d'une boite vierge."
inv_mb.of_add_button(/*texte*/ "OK", /*defaut*/ true, /*annulation*/ false)
inv_mb.of_show(/*hwnd*/ Handle(this))

Bonnes pratiques #

• Toujours of_reset() avant de reconfigurer une instance réutilisée : sans cela les boutons du dialogue précédent s'ajoutent aux nouveaux.
• Marquez systématiquement un bouton par défaut et un bouton d'annulation : l'utilisateur au clavier attend Entrée et Échap.
• Testez la valeur de retour 0 : elle signifie que la boîte a été fermée sans choix (croix ou Échap). Traitez-la comme l'annulation.
• Passez Handle(this) (ou Handle(parent)) comme fenêtre appelante : la boîte se centre dessus et la modalité porte sur la bonne fenêtre.
• Réservez le rouge et ICON_ERROR aux vraies erreurs ; une confirmation banale mérite ICON_QUESTION.
• Pour une information qui ne demande aucune réponse, préférez une notification non bloquante : voir toaster.

← Référence des composants · Sommaire du guide