Differenze tra le versioni di "Codice essenziale per mostrare un file PDF"
Da Gambas-it.org - Wikipedia.
| Riga 12: | Riga 12: | ||
With pdf | With pdf | ||
| − | <FONT color= | + | <FONT color=gray>' ''Carichiamo il file PDF del documento da mostrare:''</font> |
| − | .Open(" | + | .Open("''/percorso/del/file.pdf''") |
| − | <FONT color= | + | <FONT color=gray>' ''Se il file pdf è stato caricato correttamente...''</font> |
If .Ready = True Then | If .Ready = True Then | ||
| − | <FONT color= | + | <FONT color=gray>' ''...allora convertiamo la prima pagina ("indice" delle pagine = 1) in una "Image",'' |
' ''e quindi l' "image" in una "Picture"...''</font> | ' ''e quindi l' "image" in una "Picture"...''</font> | ||
| − | + | pc = pdf[1].Image.Picture | |
| − | <FONT color= | + | <FONT color=gray>' ''...che così potremo caricare nella "PictureBox":''</font> |
| − | + | PictureBox1.Picture = pc | |
| − | <FONT color= | + | <FONT color=gray>' ''Adattiamo la dimensione della "PictureBox" alla dimensione della pagina pdf:''</font> |
| − | + | PictureBox1.Resize(pdf[1].Width, pdf[1].Height) | |
Else | Else | ||
| − | <FONT color= | + | <FONT color=gray>' ''Altrimenti mostriamo una messaggio di avviso:''</font> |
| − | + | Message.Error("<FONT color=darkred><B>Errore nel caricamento del file PDF !") | |
| − | + | Quit | |
Endif | Endif | ||
| Riga 35: | Riga 35: | ||
| − | <FONT color= | + | <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> | ' ''che agevolerà la visualizzazione anche in caso di ridimensionamento del Form:''</font> | ||
'''Public''' Sub Form_Resize() | '''Public''' Sub Form_Resize() | ||
Versione delle 13:29, 1 mag 2014
Esporremo di seguito un semplice codice per mostrare un documento PDF di una sola pagina.
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
' 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[1].Width, pdf[1].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
