Discussion :

[Brikolo]

Bonjour à tous,

j'ai installé le module ModMsgBoxPlus afin d'utiliser les boîtes messages étendues (MsgBoxEx), proposé par arkham46.
J'ai lu la doc de cette fonction disponible ICI

C'est une superbe fonction qui permet beaucoup de personnalisation. Mais je rencontre un problème lorsque je veux modifier la couleur de fond du texte.
La couleur de fond n'est pas appliquée à la totalité de la boîte message.
Voici le code utilisé (c'est un copié/collé du code d'exemple, avec application d'une couleur de fond

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
Function TestMsgBoxEx()
Dim sTexte As String, lRep As Long
    sTexte = "{\rtf1\ansi\ansicpg1252\deff0\deflang1036\deflangfe1036" & vbCrLf & _
             "{\fonttbl{\f0\froman\fprq2\fcharset0 Times New Roman;}" & vbCrLf & _
             "{\f1\fswiss\fprq2\fcharset0 Arial;}{\f2\fnil\fcharset2 Symbol;}}" & vbCrLf & _
             "\viewkind4\uc1\pard\nowidctlpar\b\f0\fs24" & vbCrLf & _
             "L\rquote application s\rquote est arr\'eat\'e9e suite \'e0 une erreur d\rquote ex\'e9cution.\par" & vbCrLf & _
             "\par" & vbCrLf & _
             "\pard{\pntext\f2\'B7\tab}" & vbCrLf & _
             "{\*\pn\pnlvlblt\pnf2\pnindent0{\pntxtb\'B7}}" & vbCrLf & _
             "\nowidctlpar\fi-720\li720\ul\b0\fs20 Proc\'e9dure ou fonction\ulnone  : [ProcName]\par" & vbCrLf & _
             "\ul{\pntext\f2\'B7\tab}Num\'e9ro de l'erreur \ulnone : [ErrNumber]\par" & vbCrLf & _
             "\ul{\pntext\f2\'B7\tab}Description de l'erreur \ulnone : [ErrDescription]\b\par" & vbCrLf & _
             "\pard\nowidctlpar\fs24\par" & vbCrLf & _
             "\pard\nowidctlpar\qc\b0\f1\fs16" & vbCrLf & _
             "[hyperlien=mailto:mailsupport@mail.com?subject=(MailSubject)]" & vbCrLf & _
             "Cliquer ici pour envoyer un mail au support[/hyperlien]\f0\fs24\par" & vbCrLf & _
             "\pard\nowidctlpar\par" & vbCrLf & _
             "}"
 
lRep = MsgBoxEx(sTexte, vbQuestion Or vbAbortRetryIgnore Or vbDefaultButton3, "Test MsgBoxEx", , , _
              RGB(34, 177, 76), 300, 20, " ([Time] sec)", True)
End Function

et voici le résultat :


Le problème est identique avec un texte non formaté RTF, ou avec des paramètres différents (boutons, largeur boite,....)
Quelqu'un aurait une idée pour réussir à colorer ce fichu "carré gris" ?

Merci à vous.

[patricktoulon]

Bonjour
si tu veux modifier aussi profondément l'aspect il va te falloir passer par un userform et le créer de toute pièce

peut être dans une classe histoire d'être utilisable et modifiable dynamiquement

pour la gestion d'attente de réponse une variable public modifier dans le userform dans un do/loop te donnera exactement le même résultat

[Brikolo]

Bonjour,

merci pour ta réponse. Mais mon but n'est pas de modifier le code. La couleur de fond de la boite est un paramètre déjà existant, optionnel.
Par exemple dans la doc de la fonction, on y trouve :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Call MsgBoxEx(ltexte, vbQuestion Or vbAbortRetryIgnore Or vbDefaultButton3, "Test MsgBoxEx", , , _
                 RGB(250, 250, 240), , 20, " ([Time] sec)", True)

Je pensais que d'autres utilisaient cette option, et cela m'aurait confirmé si j'utilisais mal cette fonction, ou bien s'il s'agit d'un bug.

Merci.