Enregistrer la form avec les controles [Résolu]

Signaler
Messages postés
710
Date d'inscription
jeudi 20 février 2003
Statut
Membre
Dernière intervention
19 mai 2015
-
Messages postés
710
Date d'inscription
jeudi 20 février 2003
Statut
Membre
Dernière intervention
19 mai 2015
-
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

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