|
|
| (19 versioni intermedie di uno stesso utente non sono mostrate) |
| Riga 1: |
Riga 1: |
| − | Esporremo di seguito un semplice codice per mostrare un documento ''PDF''.
| + | #REDIRECT [[Codice essenziale per mostrare un file PDF con le risorse del Componente gb.poppler]] |
| − | | |
| − | 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
| |
| − | <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[index].Width, pdf[index].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'''
| |
