|
|
(12 versioni intermedie di uno stesso utente non sono mostrate) |
Riga 1: |
Riga 1: |
− | Per mostrare un documento ''PDF'', bisognerà utilizzare le risorse 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 pd As PdfDocument
| |
− | Private c As Short
| |
− |
| |
− |
| |
− | '''Public''' Sub Form_Open()
| |
− |
| |
− | <FONT color=gray>' ''Carica il file PDF del documento da mostrare:''</font>
| |
− | pd = 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 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
| |
− |
| |
− | <FONT color=gray>' ''Modifica la risoluzione e dunque la dimensione della pagina corrente del documento PDF e la converte in una "Image":''</font>
| |
− | im = pd[c].Render(0, 0, w / r, h / r, 0, pd.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 == pd.Count Then c = pd.Count - 1
| |
− |
| |
− | '''End'''
| |