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
Modérateur
Dernière intervention
4 mars 2013
131
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