Enregistrer la form avec les controles

Résolu
cs_petchy Messages postés 710 Date d'inscription jeudi 20 février 2003 Statut Membre Dernière intervention 19 mai 2015 - 14 juin 2007 à 09:45
cs_petchy Messages postés 710 Date d'inscription jeudi 20 février 2003 Statut Membre Dernière intervention 19 mai 2015 - 14 juin 2007 à 12:54
bonjour
je voudrais enregistrer en format jpg ou bmp ma form,mais le probleme
c'est que les controles ne sont pas enregistrer,j'ai meme essayé avec
printform mais c'est le meme résultat.
comment faire pour enregistrer la form avec les controles.
Private Sub Image3_Click()
On Error GoTo 2
cdlg_Viewer.DialogTitle = "Enregistrer sous..."


    cdlg_Viewer.Filter = "Bitmap" & _
    "(*.bmp)|*.bmp|JPG (*.jpg)|*.jpg|Gif (*.gif)|*.gif|"
   cdlg_Viewer.FilterIndex = 2
    cdlg_Viewer.flags = vbOFNReadOnly Or vbOFNFileMustExist
    cdlg_Viewer.CancelError = True
    cdlg_Viewer.filename = Frm_Accueil.Text1


    On Error Resume Next
    cdlg_Viewer.ShowSave
    If Err <> 0 Then
   
        Exit Sub
    End If


SavePicture frm_imprim.Picture, cdlg_Viewer.filename




GoTo 3
2 MsgBox "Une erreure est survenue lors de l'enregistrement", vbCritical, "Erreur..."
3
End Sub

merci
petchy

2 réponses

cs_DARKSIDIOUS Messages postés 15814 Date d'inscription jeudi 8 août 2002 Statut Membre Dernière intervention 4 mars 2013 129
14 juin 2007 à 09:51
Fait une capture d'écran de ta form, et enregistre l'image (voir dans les sources, y'en a plusieurs qui font cà).
3
cs_petchy Messages postés 710 Date d'inscription jeudi 20 février 2003 Statut Membre Dernière intervention 19 mai 2015 3
14 juin 2007 à 12:54
OK merci
@ plus
petchy
0