MSCHART VERS BMP : LA SOLUTION

Commentaire de Scalpweb le 29/07/2004 01:11:06

Oui, c le principal, ;-)

Commentaire de cauroir le 29/07/2004 10:33:47

Ce qui aurait ete mieux : le sauver en jpg !
Je crois qu'il y a des sources qui convertissent le BMP en JPG sur ce site

Commentaire de renardeau le 29/07/2004 12:54:48

il servirait à indiquer que cette image a été générée par mon programme.

Je ne désire pas le mettre dans le titre car cela diminue de façon non négligeable le titre de mon dessin.

Commentaire de sibi12 le 03/08/2004 16:36:51

voilà suffit de mettre un mschart  un pitcturebox (qui peux etre invisible) et un boutton et voilà le code


Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long
Private Const SRCAND = &H8800C6  ' (DWORD) dest = source AND dest
Private Const SRCCOPY = &HCC0020 ' (DWORD) dest = source
Private Const SRCERASE = &H440328        ' (DWORD) dest = source AND (NOT dest )
Private Const SRCINVERT = &H660046       ' (DWORD) dest = source XOR dest
Private Const SRCPAINT = &HEE0086        ' (DWORD) dest = source OR dest

Private Sub Command1_Click()
Picture1.AutoRedraw = True

dc = GetDC(MSChart1.hwnd)
BitBlt Picture1.hdc, 0, 0, MSChart1.Width, MSChart1.Height, dc, 0, 0, SRCCOPY
Picture1.CurrentX = 5: Picture1.CurrentY = 5
Picture1.FontName = "Verdana"
Picture1.Print "XbY"
SavePicture Picture1.Image, "C:\Image.bmp"
End Sub

Commentaire de sibi12 le 04/08/2004 09:44:34

En fait ta solution passe par le presse papier ce qui n'est pas toujours du plus "propre" vu que l'utilisateur peut avoir mis quelque chose dedans.

Ensuite tu peux retravailler l'image en plaçant le texte que tu veux dessus.

Si les déclaration te dérange tu risque d'être vite limité en VB ;).
Tu peux tjs supprimer les constantes et remplacer le SRCCOPY ds l'appel de la fonction BitBlt par &hCC0020 ce qui ne te laisse que 2 malheureux appels ;)

On peux aussi mettre GetDC et BitBlt sur la même ligne. ce qui donne :

Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long

Private Sub Command1_Click()
Picture1.AutoRedraw = True

BitBlt Picture1.hdc, 0, 0, MSChart1.Width, MSChart1.Height, GetDC(MSChart1.hwnd), 0, 0, &HCC0020 'Dessine le Chart dans Picture1

Picture1.CurrentX = 5: Picture1.CurrentY = 5 'Positionne le texte à écrire
Picture1.FontName = "Verdana" 'Choisi la police
Picture1.Print "XbY" ' écrit "XbY"

SavePicture Picture1.Image, "C:\Image.bmp" 'Sauve l'image
End Sub

Commentaire de Jielde le 27/06/2006 23:03:27

Salut,

Merci beaucoup pour cette astuce bien pratique.

Par contre lorsque je pose un control devant man MSChart, il est dessiner aussi dans mon BMP, pourkoi ?

merci.