|
|
| (14 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 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 sulla "ImageView" viene mostrata la pagina corrente del documento PDF''
| |
| − | ' ''Cliccando ancora si passa alla eventuale pagina successiva.''</font>
| |
| − | '''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
| |
| − |
| |
| − | <FONT color=gray>' ''Modifica la risoluzione e dunque la dimensione della pagina corrente del documento PDF e la converte in una "Image":''</font>
| |
| − | im = pdf[c].Render(0, 0, w / r, h / r, 0, pdf.Resolution / r)
| |
| − |
| |
| − | <FONT color=gray>' ''Adatta l'oggetto "ImmageView" alla dimensione dell'immagine del documento PDF e carica l'immagine nella "ImageView":''</font>
| |
| − | 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'''
| |
