Da Gambas-it.org - Wikipedia.
|
|
| (18 versioni intermedie di uno stesso utente non sono mostrate) |
| Riga 1: |
Riga 1: |
| − | Per mostrare un documento ''PDF'', bisognerà utilizzare le risrse del Componente ''gb.poppler''.
| + | #REDIRECT [[Codice essenziale per mostrare un file PDF con le risorse 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'''
| |
| − |
| |
| − |
| |
| − | <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 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
| |
| − |
| |
| − | '''End'''
| |
Versione attuale delle 08:42, 18 feb 2022
