Differenze tra le versioni di "Codice essenziale per mostrare un file PDF"
Da Gambas-it.org - Wikipedia.
Riga 1: | Riga 1: | ||
− | + | Per mostrare un documento ''PDF'', bisognerà utilizzare le risrse del Componente ''gb.poppler''. | |
− | + | Mostriamo un semplice esempio, nel quale bisognerà porre sul ''Form'' una ''ImageView'' e un ''Button'', nonché attivare l'indispensabile Componente ''gb.poppler''. | |
− | + | <BR>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() | |
− | |||
− | |||
− | |||
− | |||
− | + | <FONT color=gray>' ''Carica il file PDF del documento da mostrare:''</font> | |
+ | pdf = New PdfDocument("<FONT color=gray>''/percorso/del/file.pdf''</font>") | ||
'''End''' | '''End''' | ||
− | <FONT color=gray>' ''Cliccando sul tasto | + | <FONT color=gray>' ''Cliccando sul tasto viene mostrato il docuento PDF nell'Oggetto "ImageView" ed è possibile passare alla eventuale pagina successiva del PDF:''</font> |
− | '''Public''' Sub | + | '''Public''' Sub Button1_Click() |
− | + | Dim im As Image | |
− | + | ||
− | + | <FONT color=gray>' ''Converte la prima pagina ("indice" delle pagine = 1) in una "Image":''</font> | |
− | + | im = pdf[0].Render() | |
− | + | ||
− | + | <FONT color=gray>' ''Carica l'immagine nella "ImageView":''</font> | |
− | + | ImageView1.Image = im | |
− | + | ||
− | + | Me.Caption = "Pagina: " & CStr(c + 1) | |
− | + | ||
− | + | Inc c | |
− | + | If c == pdf.Count Then c = pdf.Count - 1 | |
− | |||
− | <FONT color=gray>' '' | ||
− | |||
− | |||
− | |||
− | |||
'''End''' | '''End''' |
Versione delle 03:35, 23 giu 2020
Per mostrare un documento PDF, bisognerà utilizzare le risrse del Componente gb.poppler.
Mostriamo un semplice esempio, nel quale bisognerà porre sul Form una ImageView e un Button, nonché 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 sul tasto viene mostrato il docuento PDF nell'Oggetto "ImageView" ed è possibile passare alla eventuale pagina successiva del PDF: Public Sub Button1_Click() Dim im As Image ' Converte la prima pagina ("indice" delle pagine = 1) in una "Image": im = pdf[0].Render() ' Carica l'immagine nella "ImageView": ImageView1.Image = im Me.Caption = "Pagina: " & CStr(c + 1) Inc c If c == pdf.Count Then c = pdf.Count - 1 End