begin process at 2008 08 22 04:25:22
1 229 775 membres
46 nouveaux aujourd'hui
14 267 membres club

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum.
Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

Sujet : VB6 : sauver l'image d'un Form [ Archives Visual Basic / Graphique ] (Kounta)

VB6 : sauver l'image d'un Form le 08/12/2005 11:50:34

Kounta
Bonjour, je cherche à enregistrer un formulaire (constitué de textbox, label, lignes, shapes et 1 picture box) sous forme d'une simple image (format indifférent, disons BMP). Pb, je suis sous VB6, et après avoir épluché MSDN et les API GDI et GDI+, je n'y arrive tjrs pas : trop de fonctions, de types inconnus, de plantages, variables inadaptées, etc...
Je sature !! qq1 a-t-il une info ??

PS : qd j'utilise Savepicture avec le form, l'image enregistrée ne contient aucun contrô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ôle, un msg indique une erreur liée à la propriété Autoredraw (manque de mémoire ??)
D'où mon recours aux API !!

JF  

Re : VB6 : sauver l'image d'un Form le 08/12/2005 12:31:35

Sniper_Vgaerr

Salut,

C'est pas en mettant 4 fois le meme post que ca va changer grand chose à ton problème, il faut savoir être patient.
Bye


Re : VB6 : sauver l'image d'un Form le 08/12/2005 13:08:21

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

JF

Re : VB6 : sauver l'image d'un Form le 08/12/2005 16:12:07

jpleroisse
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éponse vous convient, cliquez Réponse Acceptée.



Re : VB6 : sauver l'image d'un Form le 10/12/2005 12:44:20

Kounta
Merci pour cette réponse.

JF


Classé sous : form, vb6, formulaire, image, sauver

Participer à cet échange

Pub



Appels d'offres

CalendriCode

Août 2008
LMMJVSD
    123
45678910
11121314151617
18192021222324
25262728293031

Téléchargements

Logiciels à télécharger sur le même thème :

Boutique

Boutique de goodies CodeS-SourceS