Discussion :

[Tchupacabra]

Bonjour à tous,

J'aimerais afficher un formulaire affichant une palette de couleur pour récupérer un code couleur et l'affecter dans une table. Je cherche donc le moyen d'afficher ce genre de composant (un peu à la manière du Calendrier)

J'ai trouvé sur le forum :
http://www.developpez.net/forums/vie...alette+couleur
Malheureusement, j'ai aussi le souci de la licence du composant Microsoft Common Dialog Version 6. J'ai bien ouvert Comdlg32.ocx comme l'a dit Mut mais je ne sais pas quoi faire maintenant...

Pourriez-vous m'aider s'il vous plait :
Merci d'avance

@+

[Faw]

Salut, il y a ceci:

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
Option Compare Database
Dim RGB1 As Long 'Détail.backColor
 
 
Private Type CHOOSECOLOR
    lStructSize As Long
    hWndOwner 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
 
Private Declare Function CHOOSECOLOR Lib "comdlg32.dll" Alias "ChooseColorA" _
(pChoosecolor As CHOOSECOLOR) As Long
 
Private Function ShowColor() As Long
    Dim CustomColors As Byte
    Dim CC As CHOOSECOLOR
    Dim Custcolor(16) As Long
    Dim lReturn As Long
 
    'set the structure size
    CC.lStructSize = Len(CC)
    'Set the owner
    CC.hWndOwner = Me.hwnd
    'set the application's instance
    CC.hInstance = Application.hWndAccessApp
    'set the custom colors (converted to Unicode)
    CC.lpCustColors = StrConv(CustomColors, vbUnicode)
    'no extra flags
    CC.flags = 0
    RGB1 = Section(acDétail).BackColor 'mise en mémoire arrière-plan courant
 
    'Show the 'Select Color'-dialog
     If CHOOSECOLOR(CC) <> 0 Then
        ShowColor = CC.rgbResult
            CustomColors = StrConv(CC.lpCustColors, vbFromUnicode)
                CustomColors = StrConv(CC.lpCustColors, vbUnicode)
                    Else
                      ShowColor = RGB1 'par défaut RGB1=128; RGB1=RGB1 Précédent (si annulation, sinon le fond est NOIR.
     End If
  'RGB1 = ShowColor
End Function
 
Private Sub Command0_Click()
'MsgBox ShowColor '(pour afficher le code RGB en  mode MsgBox)
Section(acDétail).BackColor = ShowColor
End Sub

Au final c'est la valeur de ShowColor que tu mettras dans ta table...
A adapter. Ici on s'en sert pour l'appliquer à la couleur de fond du formulaire.

[Tchupacabra]

Merci Faw pour ton p'tit bout de code !

Mais je ne vois pas trop comment afficher la palette de couleur pour récupérer le code couleur de la couleur sélectionnée ou cliquée....

[Faw]

Dans un formulaire tu crée un bouton et Sur Click tu mets le code du bouton qui s'appelle chez moi Command0. Tout le reste est à mettre en début du module de ton form...

[Tchupacabra]

ok ça c'etait déjà fait...
Lorsque je clic sur ce bouton , mon background devient noir mais je vois pas de palette...

[Faw]

Bizarre chez moi ça a toujours fonctionné avec ce code et je viens de refaire un test. La palette s'affiche et la couleur est appliquée ou annulée en gardant dans ce cas la couleur précédente.
Regarde s'il te manque pas des références Microsoft ActivX Data Objects...
Autrement je ne vois pas.

[Tchupacabra]

Oui Microsoft ActivX Data Objects 2 est bien coché...
J'ai désactivé mon antivirus... toujours rien !

[cafeine]

Une solution sans activeX est dispo dans mon tuto AccessPaint
http://cafeine.developpez.com/access/tutoriel/paint/

[Tofalu]

Ou encore dans les sources Access

http://access.developpez.com/sources

D'une manière générale, pensez à chercher dans la base de connaissance avant de poster

[Faw]

Je rappelle quand même que le code ci-dessus ne fais pas non plus appel
à un contrôle ActivX dans le formulaire. J'ai seulement suspecté une référence ActivX vu que ça ne marche pas...
J'ai carrément extrait ce module ds une autre db (116K0), et il fonctionne tout aussi bien.
Le test est d'allieur vite fait: un form, un bouton, un copier/coller.

[Tchupacabra]

Bonjour à tous,

tout d'abord merci pour votre aide !!! C'est super sympa...
J'ai finalement réussi (du premier coup et sans difficulté) à utiliser/adapter le code de cafeine
Faw > je testerai plus tard ton code sur un autre pc...

Mais c'est cool ça marche nickel.

@+ ezt encore MERCI