peug
Messages postés232Date d'inscriptionmercredi 25 octobre 2000StatutMembreDernière intervention 5 octobre 2012
-
25 juin 2007 à 10:44
peug
Messages postés232Date d'inscriptionmercredi 25 octobre 2000StatutMembreDernière intervention 5 octobre 2012
-
25 juin 2007 à 11:19
Bonjour,
y a t il un moyen pour remplir le Rectangle de couleur et non Que l'arrière plan des caractère avec SetBkColor ?
peug
Messages postés232Date d'inscriptionmercredi 25 octobre 2000StatutMembreDernière intervention 5 octobre 2012 25 juin 2007 à 11:11
oui, j'ai fait cela et nickel , encore merci :
Dim lBrush As Long
lBrush = CreateSolidBrush(TranslateColor(mlFillColor)) 'où TranslateColor converti la couleur via OleTranslateColor
FillRect lhDC, DrawingZone, lBrush
Dim wFormat As Long
Select Case lAlign
Case vbLeftJustify
wFormat = DT_WORDBREAK Or DT_EXPANDTABS Or DT_NOPREFIX
Case vbRightJustify
wFormat = DT_NOPREFIX Or DT_TOP Or DT_RIGHT Or DT_WORDBREAK Or DT_EXPANDTABS
Case vbCenter
wFormat = DT_TOP Or DT_WORDBREAK Or DT_CENTER Or DT_NOPREFIX
End Select