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

Versione delle 02:53, 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 pd As PdfDocument
Private c As Short


Public Sub Form_Open()
 
' Carica il file PDF del documento da mostrare:
 pd = 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 ImageView1_MouseUp()

 Dim im As Image
 Dim w, h, r As Short
 
 w = pd[0].Render().W
 h = pd[0].Render().H
 r = pd.Resolution / 72
 
' Modifica la risoluzione e dunque la dimensione della pagina corrente del documento PDF e la converte in una "Image":
 im = pd[c].Render(0, 0, w / r, h / r, 0, pd.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
 
' Se si clicca sull'immagine dell'ultima pagina del PDF, si torna a mostrare la prima pagina:
 If c == pd.Count Then c = 0
 
End