Discussion :

[Attila54]

Bonjour,
Dans mon appli, je genere en fin de calculs un formulaire d'impression qui me permet d'imprimer, d'enregistrer le formulaire en JPG dans un repertoire.
Mon idée est d'enregistrer automatiquement le formulaire apres 3 secondes d'affichage (il s'affiche tout seul avec un timer) toujours sous forme jpg, dans le repertoire "enregistrements" situé dans "mes documents" mais avec un nom que l'on retrouve dans une textbox du formulaire.
Exemple : si le nom dans le textbox est DURAND, je voudrais enregistrer automatiquement le fichier durand.jpg dans "c:\mes documents\enregistrements"

Voici le code que j'ai actuellement et qui permet l'enregistrement via un button appelé "image".

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
 
Private Sub Image_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Image.Click
        ' enregistre la feuille sous forme de fichier image .jpg
        Imprimer.Visible = False
        Image.Visible = False
        Quitter.Visible = False
        Avant.Visible = False
        Arriere.Visible = False
        Using p As New ClassImpression()
            Try
                p.SetDocument(Me)
                PictureBox.Image = buffer ' ici que picturebox contient le résultat 
 
                ' boite de sauvegarde du fichier
                With SaveFileDialog
                    .Title = "Enregistrer sous"        'Titre de la barre de titre
                    .InitialDirectory = BddPath        'répertoire de départ        
                    .Filter = "Fichiers jpg|*.jpg"     ' on travaille uniquement sur les .jpg
                    .ValidateNames = True              'n'accepte que les noms valides (win 32)
                    .AddExtension = True               'ajoute une extension au nom s'il n'y en a pas
                    .CreatePrompt = True               ' Message de confirmation si création d'un nouveau fichier
                    .OverwritePrompt = True            'Message si le fichier existe déjà : évite l'effacement d'anciennes données
                    If .ShowDialog = DialogResult.OK Then  'L'utilisateur a bien cliqué sur ok
                        PictureBox.Image.Save(.FileName)
                    End If
                End With
 
            Catch ex As Exception
                If langue = "en" Then
                    messageaff = "Image .jpg Error"
                    infoaff = "Error"
                Else
                    messageaff = "Erreur fichier image .jpg"
                    infoaff = "Erreur"
                End If
                MessageBox.Show(messageaff, infoaff, MessageBoxButtons.OK, MessageBoxIcon.Error)
            End Try
        End Using
        If flagnavigate = True Then
            Afficheboutons()
        End If
        Imprimer.Visible = True
        Image.Visible = True
        Quitter.Visible = True
 
    End Sub

Je pensais reutiliser un timer pour l'enregistrement auto mais j'ai un peu de mal a modifier la sub pour les autres paramètres d'enregistrement.
Merci beaucoup de vos suggestions

[shayw]

Salut
c'est quoi ton formulaire ta form ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Private Sub Saveform()
        Try
            Dim imgFinal As New Bitmap(Me.Width, Me.Height)
            ' TextBox1.Text = "coucou"
            Me.DrawToBitmap(imgFinal, ClientRectangle)
            imgFinal.Save(My.Computer.FileSystem.SpecialDirectories.MyDocuments & "\enregistrements\" & TextBox1.Text & ".jpeg", ImageFormat.Jpeg)
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub

appelle saveform dans un timer

[Attila54]

Salut ShayW,
Merci pour l'aide, je n'arrivais pas a donner le nom correct au fichier, je teste cela de suite

[Attila54]

arfff alors la sub genere bien l'enregistrement mais le souci est que je n'ai rien de rien dans ma feuille hormis les frames
pour exemple :
voici ce que j'obtiens avec Image_Click, mon enregistrement via click sur button Image


et voici ce que la sub saveform me donne :



la quasi totalité des elements n'y sont pas et les bords droit et bas sont tronqués
aurais je oublie quelque chose ?

La savefiledialog de mon code initial est superflue maintenant. N'est il pas possible de la remplacer par le chemin d'enregistrement et les nom/extension du fichier ?

[shayw]

c'est quoi ton formulaire ?
dans ton dossier enregistrement tu obiens bien un fichier *.jpeg ?
et quand tu l'ouvre il est vide ?

[Attila54]

Je ne comprends pas trop le sens de ta question
Ce que j'imprime est un formulaire standard contenant textbox, picturebox, labels, rectangleshapes et checkbox.
Ce formulaire contient aussi une saveFileDialog, un PrintDocument et un printDialog.
Que puis je dire de plus qui t'aiderais ?

Oui j'obtiens bien un fichier .jpeg dans enregistrements, le fichier est bien nommé par rapport au textbox voulu mais quand je l'ouvre, j'obtiens l'image du dessus alors que avec l'appui sur button avec mon code initial, tout est bien rempli mais j'ai une boite de dialogue qui m'ennuie et je suis obligé d'entrer le nom du jpeg a la main

Tres clairement le .jpeg est en fait exactement une capture d'ecran du formulaire d'impression