Discussion :

[fanouk]

Bonjour les développeurs,
ça y est, je désespère, j'ai passé la journée à essayer de créer un apperçu de documents en VB.Net.
En gros, je ne trouve pas comment charger l'image dans le printDocument du printPreviewControl.

Je vous passe mon code en espérant que l'un de vous trouvera ce qu'il manque.

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
 Private Sub ListView1_MouseClick_1(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ListView1.MouseClick
 
        Dim nomFichier As String = ""
        Dim selection As System.Windows.Forms.ListView.SelectedListViewItemCollection
        selection = ListView1.SelectedItems
 
        If selection.Count = 0 Then
            ' Ne rien faire.
        End If
 
        For Each element As Object In selection
            nomFichier = Mid(element.ToString, 16, element.ToString.Length - 20)  ' Ca c'est très moche mais ça récupère le nom du fichier uniquement.
        Next
 
        Me.SuspendLayout()
        Me.PrintDocument1.DocumentName = "Y:\mesScans\" & nomDossier & "\" & nomFichier & "*.pdf"
        Dir("Y:\mesScans\" & nomDossier)
        Me.PrintPreviewControl1.Name = nomFichier & ".pdf"
        Me.PrintPreviewControl1.Document = docToPrint
        Me.PrintPreviewControl1.Document.DocumentName = nomFichier & ".pdf"
        Me.Controls.Add(Me.PrintPreviewControl1)
        Me.PrintPreviewControl1.Document = Me.PrintDocument1
        Me.PrintDocument1.DocumentName = "Y:\mesScans\" & nomDossier & "\" & nomFichier & "*.pdf"
        Me.PrintPreviewControl1.Show()
 
    End Sub

Merci à vous.

[SaumonAgile]

Tu dois dessiner l'image avec e.Graphics.DrawImage(...) dans l'event handler associé à l'événement Print du PrintDocument.

[fanouk]

Désolée, je suis plutôt débutante dans ce langage, tu écrirais ça comment?

[fanouk]

Alors, j'ai tenté ça mais j'ai une magnifique erreur OutOfMemoryException:

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
  Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
 
        Dim nomFichier As String = ""
        Dim docImage As Image
        nomFichier = Module1.nomFichier
 
        Me.SuspendLayout()
        Me.PrintDocument1.DocumentName = "Y:\mesScans\" & nomDossier & "\" & nomFichier & "*.pdf"
        Dir("Y:\mesScans\" & nomDossier)
        Me.PrintPreviewControl1.Name = nomFichier & ".pdf"
        Me.PrintPreviewControl1.Document = docToPrint
        Me.PrintPreviewControl1.Document.DocumentName = nomFichier & ".pdf"
        Me.Controls.Add(Me.PrintPreviewControl1)
        Me.PrintPreviewControl1.Document = Me.PrintDocument1
        Me.PrintDocument1.DocumentName = "Y:\mesScans\" & nomDossier & "\" & nomFichier & "*.pdf"
        If Dir$("Y:\mesScans\" & nomDossier & "\" & nomFichier & ".pdf", vbNormal) <> "" Then
            docImage = Image.FromFile("Y:\mesScans\" & nomDossier & "\" & nomFichier & ".pdf")
            e.Graphics.DrawImage(docImage, 0, 0)
            Me.PrintPreviewControl1.Show()
        Else
            MsgBox("Erreur! Fichier impossible à charger.", MsgBoxStyle.Critical)
            Me.Close()
        End If
 
    End Sub
 
End Class

Je vais chercher ce qui cloche.
En attendant, si tu as une idée, je prends évidement!
Merci en tout cas pour ton aide précieuse.

Fanny

[harz62]

Pour l'erreur fais un débogage pas à pas ou met des points d'arrêt pour voir où ça plante. Je pense que c'est méthode Image.FromFile qui plante (d'aileurs c'est la seule dans ton code qui peut renvoyer une exception de type OutOfMemoryException )car le format PDF ne correspond pas à une image.

Espace un peu ton code il sera plus lisible comme ça

A la place des concaténations tu peux utiliser la méthode String.Format pour améliorer la lisibilité du code.

Ceci:

Code :

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

"Y:\mesScans\" & nomDossier & "\" & nomFichier & ".pdf"

Peut se transformer en ceci

Code :

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

dim path as String = String.Format("Y:\mesScans\{0}\nomDossier\{1}.pdf",  nomDossier,nomFichier)

Tu réutilise ensuite ta chaine dans les méthode que tu appelle lorsque tu en as besoin

[fanouk]

Merci pour l'astuce que je ne connaissais pas! Ca ressemble un peu au C.

Tu m'as dit que cette méthode requiert une image et pas un fichier pdf mais comment faire alors si je veux créer un aperçu de ce type de fichiers?