VB6 : sauver l'image d'un Form

Question

Bonjour, je cherche &#224; enregistrer un formulaire (constitu&#233; de textbox, label, lignes, shapes et 1 picture box) sous forme d'une simple image (format indiff&#233;rent, disons BMP). Pb, je suis sous VB6, et apr&#232;s avoir &#233;pluch&#233; MSDN et les API GDI et GDI+, je n'y arrive tjrs pas : trop de fonctions, de types inconnus, de plantages, variables inadapt&#233;es, etc...
Je sature !! qq1 a-t-il une info ??

PS : qd j'utilise Savepicture avec le form, l'image enregistr&#233;e ne contient aucun contr&#244;les, juste le fond du formulaire.
Qd je dessine un picturebox avec le contenu du formulaire et que je fais un Savepicture de ce contr&#244;le, un msg indique une erreur li&#233;e &#224; la propri&#233;t&#233; Autoredraw (manque de m&#233;moire ??)
D'o&#249; mon recours aux API !!

JF

Sniper_Vgaerr · Answer

Salut,

C'est pas en mettant 4 fois le meme post que ca va changer grand chose &#224; ton probl&#232;me, il faut savoir &#234;tre patient.
Bye

cs_Kounta · Answer

Merci de cette remarque, mais je me suis dis - &#233;tant novice - que les habitu&#233;s d'un forum ne sont pas forc&#233;ment ceux d'un autre. Bye

JF

jpleroisse · Answer

Bonjour,

Pour essayer ce code, place un PictureBox et deux CommandButton sur ta Form.

Option Explicit

Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal
bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)



Private Sub Command1_Click()

On Error Resume Next

Call keybd_event(vbKeySnapshot, 0, 0&, 0&)  'envoie la code de la touche Print Screen (la capture dans le press papier)

SavePicture Clipboard.GetData(0), "c:\Image.bmp"

'enregistre la capture a l'adresse c:\Image.bmp

 End Sub



Private Sub Command2_Click()

Picture1.Picture = LoadPicture("C:\Image.bmp")

End Sub



jpleroisse



Si une r&#233;ponse vous convient, cliquez R&#233;ponse Accept&#233;e.

cs_Kounta · Answer

Merci pour cette r&#233;ponse. 

JF

VB6 : sauver l'image d'un Form

4 réponses

Discussions similaires