Differenze tra le versioni di "Codice essenziale per mostrare un file PDF"
Da Gambas-it.org - Wikipedia.
(Nuova pagina: Mostreremo di seguito un semplice codice per mostrare un file ''PDF'' di una sola pagina. Sarà necessario porre sul ''Form'' una ''PictureBox'', nonché attivare il necessario compon...) |
|||
Riga 6: | Riga 6: | ||
'''Public''' Sub Button1_Click() | '''Public''' Sub Button1_Click() | ||
− | Dim | + | Dim pdf As New PdfDocument |
− | Dim | + | Dim pc As Picture |
− | With | + | With pdf |
<FONT color=#006400>' ''Carichiamo il file PDF del documento da mostrare:''</font> | <FONT color=#006400>' ''Carichiamo il file PDF del documento da mostrare:''</font> | ||
.Open("mio_file.pdf") | .Open("mio_file.pdf") | ||
Riga 16: | Riga 16: | ||
If .Ready = True Then | If .Ready = True Then | ||
<FONT color=#006400>' ''...allora convertiamo la prima pagina in una "Picture"...''</font> | <FONT color=#006400>' ''...allora convertiamo la prima pagina in una "Picture"...''</font> | ||
− | + | pc = pdf[1].Image.Picture | |
<FONT color=#006400>' ''...che caricheremo nella "PictureBox":''</font> | <FONT color=#006400>' ''...che caricheremo nella "PictureBox":''</font> | ||
− | + | PictureBox1.Picture = pc | |
Else | Else |
Versione delle 13:35, 20 nov 2012
Mostreremo di seguito un semplice codice per mostrare un file PDF di una sola pagina.
Sarà necessario porre sul Form una PictureBox, nonché attivare il necessario componente gb.pdf. Ci serviremo della Classe creabilePdfDocument. Questa Classe, creabile, consente di leggere il contenuto di un documento PDF e di mostrarlo.
L'esempio prende in cosiderazione un documento PDF composto da un'unica pagina:
Public Sub Button1_Click() Dim pdf As New PdfDocument Dim pc As Picture With pdf ' Carichiamo il file PDF del documento da mostrare: .Open("mio_file.pdf") ' Se il file pdf è stato caricato correttamente... If .Ready = True Then ' ...allora convertiamo la prima pagina in una "Picture"... pc = pdf[1].Image.Picture ' ...che caricheremo nella "PictureBox": PictureBox1.Picture = pc Else ' Altrimenti mostriamo una messaggio di avviso: Message.Error("<FONT color=darkred>Errore nel caricamento del file PDF !") Endif End With End