Differenze tra le versioni di "Codice essenziale per mostrare un file PDF"

Versione delle 02:43, 10 lug 2020

Per mostrare un documento PDF, bisognerà utilizzare le risorse del Componente gb.poppler.

Mostriamo un semplice esempio, nel quale bisognerà porre sul Form una ImageView e attivare l'indispensabile Componente gb.poppler.
Ci serviremo, quindi, della Classe PdfDocument, la quale consente di leggere il contenuto di un documento PDF e di mostrarlo.

Private pdf As PdfDocument
Private c As Short


Public Sub Form_Open()
 
' Carica il file PDF del documento da mostrare:
 pdf = New PdfDocument("/percorso/del/file.pdf")

End


' Cliccando sulla "ImageView" viene mostrata la pagina corrente del documento PDF
' Cliccando ancora si passa alla eventuale pagina successiva.
Public Sub Button1_Click()

 Dim im As Image
 Dim w, h, r As Short
 
 w = pdf[0].Render().W
 h = pdf[0].Render().H
 r = pdf.Resolution / 72
 
' Modifica la risoluzione e dunque la dimensione della pagina corrente del documento PDF e la converte in una "Image":
 im = pdf[c].Render(0, 0, w / r, h / r, 0, pdf.Resolution / r)
 
' Adatta l'oggetto "ImmageView" alla dimensione dell'immagine del documento PDF e carica l'immagine nella "ImageView":
 Me.Resize(w / r, h / r)
 ImageView1.Resize(w / r, h / r)
 ImageView1.Image = im
 
 Me.Caption = "Pagina: " & CStr(c + 1)
 
 Inc c
 If c == pdf.Count Then c = pdf.Count - 1
 
End