|
|
| (25 versioni intermedie di uno stesso utente non sono mostrate) |
| Riga 1: |
Riga 1: |
| − | Esporremo di seguito un semplice codice per mostrare un documento ''PDF'' di una sola pagina.
| + | #REDIRECT [[Codice essenziale per mostrare un file PDF con le risorse del Componente gb.poppler]] |
| − | | |
| − | Sarà necessario porre sul ''Form'' una ''PictureBox'', nonché attivare il necessario componente ''gb.pdf''. Ci serviremo, quindi, della Classe creabile ''PdfDocument''. 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
| |
| − | <FONT color=gray>' ''Carichiamo il file PDF del documento da mostrare:''</font>
| |
| − | .Open("''/percorso/del/file.pdf''")
| |
| − | <FONT color=gray>' ''Se il file pdf è stato caricato correttamente...''</font>
| |
| − | If .Ready = True Then
| |
| − | <FONT color=gray>' ''...allora convertiamo la prima pagina ("indice" delle pagine = 1) in una "Image",''
| |
| − | ' ''e quindi l' "image" in una "Picture"...''</font>
| |
| − | pc = pdf[1].Image.Picture
| |
| − | <FONT color=gray>' ''...che così potremo caricare nella "PictureBox":''</font>
| |
| − | PictureBox1.Picture = pc
| |
| − | <FONT color=gray>' ''Adattiamo la dimensione della "PictureBox" alla dimensione della pagina pdf:''</font>
| |
| − | PictureBox1.Resize(pdf[1].Width, pdf[1].Height)
| |
| − |
| |
| − | Else
| |
| − | <FONT color=gray>' ''Altrimenti mostriamo una messaggio di avviso:''</font>
| |
| − | Message.Error("<FONT color=darkred><B>Errore nel caricamento del file PDF !")
| |
| − | Quit
| |
| − | Endif
| |
| − |
| |
| − | End With
| |
| − |
| |
| − | '''End'''
| |
| − |
| |
| − |
| |
| − | <FONT color=gray>' ''Cliccando sul tasto si passa alla eventuale pagina successiva del pdf:''</font>
| |
| − | '''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[1].Width, pdf[1].Height)
| |
| − |
| |
| − | '''End'''
| |
| − |
| |
| − |
| |
| − | <FONT color=gray>' ''Prevediamo l'utilizzo, volendo, anche di una "ScrollView",''
| |
| − | ' ''che agevolerà la visualizzazione anche in caso di ridimensionamento del Form:''</font>
| |
| − | '''Public''' Sub Form_Resize()
| |
| − |
| |
| − | ScrollView1.Resize(FMain.W - 10, FMain.H - 10)
| |
| − |
| |
| − | '''End'''
| |
