MSCHART VERS BMP : LA SOLUTION
Scalpweb
Messages postés
1467
Date d'inscription
samedi 13 mars 2004
Statut
Membre
Dernière intervention
5 mai 2010
-
29 juil. 2004 à 01:11
frank241 Messages postés 3 Date d'inscription dimanche 2 mai 2004 Statut Membre Dernière intervention 30 octobre 2006 - 30 oct. 2006 à 13:44
frank241 Messages postés 3 Date d'inscription dimanche 2 mai 2004 Statut Membre Dernière intervention 30 octobre 2006 - 30 oct. 2006 à 13:44
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/24963-mschart-vers-bmp-la-solution
https://codes-sources.commentcamarche.net/source/24963-mschart-vers-bmp-la-solution
30 oct. 2006 à 13:44
Merci pour le code.
Je l'utilise pour imprimer un graph avec des dimensions précises.
'Config du printer
Printer.Orientation = vbPRORLandscape 'Paysage
Printer.ScaleMode = vbMillimeters
'Récupération du résultat du code précédent
picGraph.Picture = picGraph.Image
'Impression
Printer.PaintPicture picGraph, x, y, largeur, hauteur
'Lancement impression
Printer.EndDoc
Il y a surement plus simple.
Cordialement
27 juin 2006 à 23:03
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.
4 août 2004 à 10:04
le but, c'est que ca enregistre une image, si a chaque fois qu'on le fait on pers ce que l'on avait copié..... on va pas être très très contents, ;-)
les API sont très très utiles pour booster un peu VB.... il ne faut pas en avoir peur, et même se familiariser avec ;-)
4 août 2004 à 09:44
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
3 août 2004 à 22:17
elle a pleins de déclarations supplémentaire et pleins de truc en plus... (API, ...)
3 août 2004 à 16:36
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
31 juil. 2004 à 19:09
29 juil. 2004 à 12:54
Je ne désire pas le mettre dans le titre car cela diminue de façon non négligeable le titre de mon dessin.
29 juil. 2004 à 12:44
Moi, pour ma part, je recherche une source qui me permettrait d'écrire sur cette image généré..
a bon entendeur...
29 juil. 2004 à 10:33
Je crois qu'il y a des sources qui convertissent le BMP en JPG sur ce site
29 juil. 2004 à 10:32
29 juil. 2004 à 01:11