Differenze tra le versioni di "Codice essenziale per mostrare un file PDF"
Da Gambas-it.org - Wikipedia.
Riga 1: | Riga 1: | ||
Esporremo di seguito un semplice codice per mostrare un documento ''PDF''. | Esporremo di seguito un semplice codice per mostrare un documento ''PDF''. | ||
− | Sarà necessario porre sul ''Form'' una ''ScrollView'', al di sopra della quale sarà posta a sua volta una ''PictureBox'', nonché attivare l'indispensabile componente ''gb.pdf''. Ci serviremo, quindi, della Classe | + | Sarà necessario porre sul ''Form'' una ''ScrollView'', al di sopra della quale sarà posta a sua volta una ''PictureBox'', nonché attivare l'indispensabile componente ''gb.pdf''. Ci serviremo, quindi, della Classe ''PdfDocument''. Questa Classe, creabile, consente di leggere il contenuto di un documento PDF e di mostrarlo. |
'''Public''' Sub Button1_Click() | '''Public''' Sub Button1_Click() | ||
Versione delle 15:49, 18 ago 2014
Esporremo di seguito un semplice codice per mostrare un documento PDF.
Sarà necessario porre sul Form una ScrollView, al di sopra della quale sarà posta a sua volta una PictureBox, nonché attivare l'indispensabile componente gb.pdf. Ci serviremo, quindi, della Classe PdfDocument. Questa Classe, creabile, consente di leggere il contenuto di un documento PDF e di mostrarlo.
Public Sub Button1_Click() Dim pdf As New PdfDocument Dim pc As Picture With pdf ' Carichiamo il file PDF del documento da mostrare: .Open("/percorso/del/file.pdf") ' Se il file pdf è stato caricato correttamente... If .Ready = True Then ' ...allora convertiamo la prima pagina ("indice" delle pagine = 1) in una "Image", ' e quindi l' "image" in una "Picture"... pc = pdf[1].Image.Picture ' ...che così potremo caricare nella "PictureBox": PictureBox1.Picture = pc ' Adattiamo la dimensione della "PictureBox" alla dimensione della pagina pdf: PictureBox1.Resize(pdf[1].Width, pdf[1].Height) Else ' Altrimenti mostriamo una messaggio di avviso: Message.Error("<FONT color=darkred><B>Errore nel caricamento del file PDF !") Quit Endif End With End ' Cliccando sul tasto si passa alla eventuale pagina successiva del pdf: Public Sub Button2_Click() If index = pdf.Count - 1 Then index = 1 Else index += 1 Endif pc = pdf[index].Image.Picture PictureBox1.Picture = pc PictureBox1.Resize(pdf[index].Width, pdf[index].Height) End ' Prevediamo l'utilizzo, volendo, anche di una "ScrollView", ' che agevolerà la visualizzazione anche in caso di ridimensionamento del Form: Public Sub Form_Resize() ScrollView1.Resize(FMain.W - 10, FMain.H - 10) End