API PolyBezier

Réponse acceptée !
Bonjour,

Tu peux récupérer le hdc de ta mschart en utilisant l'API suivante :

Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
GetDC (MSChart1.hwnd)

Il te suffit donc ensuite de mettre PolyBezier(Getdc(MsChart1.hwnd),... au lieu de picture1.hdc et cela devrait fonctionner

L'expérience, c'est une connerie par jour, mais jamais la même..

Réponse acceptée !
OK merci je récupère bien mon hdc avec cette fonction

Par contre toujours pas réussi à faire fonctionner l'api dans mon code...
Personne aurai un exemple concret pour cette api avec un control MSChart ?

Merci

Réponse acceptée !
Re,

Tu trouveras quelques trucs (explication + 1 soucre) ici

Private Type POINTAPI
        X As Long
        Y As Long
End Type

Dim Bez(3) As POINTAPI
Dim i As Integer

Private Declare Function PolyBezier Lib "gdi32" (ByVal hdc As Long, lppt As POINTAPI, ByVal cPoints As Long) As Long
Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long

Private Sub Command1_Click()

Bez(0).X = 0 
Bez(0).Y = 5
Bez(1).X = 2
Bez(1).Y = 3
Bez(2).X = 50
Bez(2).Y = 200
Bez(3).X = 300
Bez(3).Y = 140

Call PolyBezier(GetDC(MSChart1.hwnd), Bez(0), 4)

Ca a l'air de fonctionner, il faut juste que tu récupères tes valeurs dans ton tableau, et faire en sorte que l'échelle du mschart se redimensionne...

L'expérience, c'est une connerie par jour, mais jamais la même..

Réponse acceptée !
Ok je vais essayer ça tout de suite ! Par contre je tiendrai au courant que demain  car la je quitte mon lieu de stage et après plus de net, car pas internet chez moi en ce moment...

MERCI en attendant!

@ + bonne soirée

Réponse acceptée !
Bonjour,

Alors, j'ai essayé ton exemple et ça a fonctionné tout de suite. Effectivement j'utilisais l'api quasiment comme ton exemple dans mon code sauf que j'utilisais une boucle pour remplir Bez.X et Bez.Y. J'avais une erreur dans cette boucle et mes tableaux étaient mal dimensionnés.
Cette soultion fonctionne.

Merci bonne journée

@+