Differenze tra le versioni di "Codice essenziale per mostrare un file PDF"
Da Gambas-it.org - Wikipedia.
Riga 37: | Riga 37: | ||
Inc c | Inc c | ||
− | If c == pd.Count Then c = | + | |
+ | <FONT color=gray>' ''Se si clicca sull'immagine dell'ultima pagina del PDF, si torna a mostrare la prima pagina:''</font> | ||
+ | If c == pd.Count Then c = 0 | ||
'''End''' | '''End''' |
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