contrôle palette de couleur

Bonjour

ceci devrait te convenir :

pour l'utiliser il te uffit de faire ensuite :
acDialogColor toncontrole.properties("BakColor")

**********************************************
Private Type COLORSTRUC
lStructSize As Long
hWnd As Long
hInstance As Long
rgbResult As Long
lpCustColors As String
Flags As Long
lCustData As Long
lpfnHook As Long
lpTemplateName As String
End Type

Const CC_SOLIDCOLOR = &H80

Private Declare Function ChooseColor Lib "comdlg32.dll" Alias "ChooseColorA"
_
(pChoosecolor As COLORSTRUC) As Long

Dim lngProg As Long

Private Function acDialogColor(prop As Property) As Boolean
Dim X As Long, CS As COLORSTRUC, CustColor(16) As Long

CS.lStructSize = Len(CS)
CS.hWnd = hWndAccessApp
CS.Flags = CC_SOLIDCOLOR
CS.lpCustColors = String$(16 * 4, 0)
X = ChooseColor(CS)
If X = 0 Then
' ERROR - use Default White
prop = RGB(255, 255, 255) ' White
acDialogColor = False
Exit Function
Else
' Normal processing
prop = CS.rgbResult
End If
acDialogColor = True
End Function
**********************************************

--
@+
Jessy Sempere - Access MVP
news@access.fr.vu
------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"Yannick" <mediphone28@wanadoo.fr> a écrit dans le message news:
uIpx8jCiDHA.2004@TK2MSFTNGP12.phx.gbl...

Bonjour,

Je souhaite créer un contrôle qui ouvrirait une palette de couleurs,
comment

faire ?

Ensuite, j'ai un formulaire qui affiche une liste de données, j'aimerais
pouvoir les afficher avec certaines couleurs (définies dans une table) en
fonction de leur contenu...

Merci de votre aide.

Bonjour Jessy.

Tu utilises quel serveur de news ?

--
@+
Raymond Access MVP.
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/charte.htm pour une meilleure
efficacité de tes interventions sur MPFA.


"Jessy SEMPERE" <jessy.sempere@prg.sncf.fr> a écrit dans le message de
news:blep9e$hvb$1@muguet.sncf.fr...

Salut Raymond

Tu utilises quel serveur de news ?

J'utilises notre propre serveur de news du boulot, je n'ai accès
qu'à celui là...
D'ailleur en ce moment je n'ai jamais le fil en entier, il commence à
s'afficher qu'après plusieurs réponses...

Donc mon serveur de news est :

news.sncf.fr

Pourquoi ???

@+
Jessy Sempere - Access MVP
news@access.fr.vu
------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------