Discussion :

[zen253231]

Bonjour à tous,

Le travail extraordinaire de Arkham46 m'a convaincu d'utiliser sa librairie clGDiPlus!

je cherche donc à utiliser des fonctions de gdiplus qui existent déjà en VBA sur la base de gdi32 à savoir faire un dégradé de couleurs en triangle

Je suis donc tombé sur les articles de purebasic sur ce même site:
https://purebasic.developpez.com/tut...ientBrush.html

Ils parlent en particulier de :
GdipCreatePathGradientFromPath
GdipSetPathGradientSurroundColorsWithCount

que je cherche à intégrer en modifiant clGDIPlus

cependant alors que ces fonctions existent (cf https://referencesource.microsoft.co...adientBrush.cs)
VBA me renvoie une erreur en me disant qu'il ne connaît pas la fonction!

Quelqu'un aurait une idée ?

Merci d'avance

[zen253231]

Voilà, j'ai trouvé je croyais avoir trouvé comment solutionner cette erreur: l'appel se fait en Byref

Code :

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

Private Declare Function GdipCreatePathGradientFromPath Lib "gdiplus" (ByVal Path As Long, ByRef PathGradientBrush As Long) As Long

Ensuite il faut faire comme dans le projet
https://github.com/tannerhelland/pd2...rc/GDIPlus.bas

Code :

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

1
2
3
Public Function GetGDIPlusPathBrushHandle(ByVal hGraphicsPath As Long) As Long
    GdipCreatePathGradientFromPath hGraphicsPath, GetGDIPlusPathBrushHandle
End Function

et on termine avec:

Code :

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

lPathGradientBrush = GetGDIPlusPathBrushHandle(lPath)

Reste maintenant à trouver les bons paramètres de GdipSetPathGradientSurroundColorsWithCount !

[zen253231]

Bon en fait ce que j'ai écrit au-dessus est faux. pas complètement vrai

C'est la notion de pointeur qui me troublait mais GdiPlus accepte gentiment les variables passées en paramètre comme Arkham46 l'a fait.
Par rapport au pointage il faut bien faire la manipulation du dessus et faire en plus attention à ce qui est écrit en dessous si vous avez un excel 64bit

Et là cela marche!!!

La notion de Byref reste pour les types définis par l'utilisateur comme POINTAPI mais cela l'interpréteur va se plaindre tout seul si on oublie

La solution? tout simplement définir aussi la fonction en version 64bits avec des LongPtr et là miracle! l'autocomplètement des paramètres de l'API existe enfin...