Api Windows et VBA Excel

Version imprimable

Bonjour,

J'ai un petit probleme avec un API windows sous excel, voila cet api sert à ouvrir une fenetre de selection de couleur et retourne la valeur de la couleur selectionnée, le problème est que lorsque cette fenetre s'ouvre, la valeur par defaut est le noir apparement, et je voudrais changer cette valeur par defaut.
Commet puis je faire, voila le module, merci d'avance pour votre aide :

Code:

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
Option Explicit
 
Private Declare Function CHOOSECOLOR Lib "comdlg32.dll" Alias _
"ChooseColorA" (pChoosecolor As CHOOSECOLOR) As Long
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
Public Function ShowColor(Handle As Long) As Long
    Dim cc As CHOOSECOLOR
    Dim Customcolors As String
    Dim lReturn As Long
 
    'set the structure size
    cc.lStructSize = Len(cc)
    'Set the owner
    cc.hwndOwner = Handle
    'set the custom colors (converted to Unicode)
    cc.lpCustColors = StrConv(Customcolors, vbUnicode)
    'no extra flags
    cc.flags = 0
    'DefColor = Cells(Lig2, Col2)
    'Show the 'Select Color'-dialog
    If CHOOSECOLOR(cc) <> 0 Then
        ShowColor = cc.rgbResult
        Customcolors = StrConv(cc.lpCustColors, vbFromUnicode)
    Else
        ShowColor = Cells(Lig, Col)
    End If
End Function

14/06/2007, 09h05
parilla77

Bon si personne ne veut répondre, pouvez vous me dire au moins ou je peut trouver le détail de la librairie "comdlg32.dll"

merci bien !
21/06/2007, 09h53
ruzakruzak

Vite fait...
21/06/2007, 10h05
parilla77

Merci, mais je l'ai deja, je ne cherchais pas à le dl, je veut connaitre le detail des fonctions existantes dans cette librairie pour pouvoir charger une valeur pas defaut dans cet api, je sais que c'est possible car j'ai vu ça dans "swftext"
21/06/2007, 10h57
cavo789

Connait pas cette API. Une question : est-ce que la propriété rgbResult est Read only ou pas ? Peux-tu l'initialiser avant l'affichage de la fenêtre ?

Christophe
21/06/2007, 11h04
parilla77

Salut, aparement on peut l'initialiser avant, mais je sais pas ce que je doit lui mettre, un RGB(,,,), un hex ou un decimal...?
21/06/2007, 12h36
cavo789

Que reçois-tu après l'affichage ? Si la propriété donne un chiffre, c'est donc un chiffre qu'il faut lui donner en entrée.

Je te propose ceci : affiche la dialogue, clique sur la couleur que tu aimerais avoir par défaut; identifie le code que tu reçois après coup.

Réutilise ce même code lors de l'initialisation.

Trop simple ?

Une fois encore : je ne connais pas cette API, je te répond donc d'après mon "bon sens" :D
21/06/2007, 13h42
parilla77

Re merci,

Bon avant de partir manger tout à l heure j'ai testé, donc ça me renvoi un chiffre, j'ai donc essayé d'initialiser rgbResult avec la valeur 65535(jaune),
mais rien à faire valeur de défaut toujours le noir, j'ai essayé de lui mettre la valeur en RGB, ça fait la meme chose.
Je sais plus quoi faire.

Et cà...

Code:

1 2 3 4 5 6 7 8 9 10 11 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
Je ne connais pas l'API.
la valeur de la couleur par défaut n'est-elle pas plutôt à mettre dans "lpCustColor". Oui une chaine. Alors du style

Code:

c.lpcustColors = "red"

21/06/2007, 16h32
parilla77

Marche po :cry: :cry: :cry:

C'est Ok ça marche avec ça :

Code:

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 Explicit
 
Private Type TCHOOSECOLOR
    lStructSize As Long
    hWndOwner As Long
    hInstance As Long
    rgbResult As Long
    lpCustColors As Long
    Flags As Long
    lCustData As Long
    lpfnHook As Long
    lpTemplateName As Long
End Type
 
Private Declare Function ChooseColor Lib "COMDLG32.DLL" Alias _
        "ChooseColorA" (Color As TCHOOSECOLOR) As Long
 
Public CustomColors(0 To 15) As Long
Public Function ColorDlg(hWndParent As Long, DefColor As Long, _
       Optional ShowExpDlg As Boolean = 0) As Long
 
   Dim I
   Dim C As Long
   Dim CC As TCHOOSECOLOR
 
   'Initialise Custom Colours
   For I = 0 To 15
      CustomColors(I) = QBColor(15)
   Next I
 
   'Show Dialog
   With CC
 
       .rgbResult = DefColor
       .hWndOwner = hWndParent
       .lpCustColors = VarPtr(CustomColors(0))
       .Flags = &H101
 
       If ShowExpDlg Then .Flags = .Flags Or &H2
 
       .lStructSize = Len(CC)
       C = ChooseColor(CC)
 
       If C Then
          ColorDlg = .rgbResult
       Else
          ColorDlg = -1
       End If
 
   End With
 
End Function