Da Gambas-it.org - Wikipedia.
|
|
| (36 versioni intermedie di uno stesso utente non sono mostrate) |
| Riga 1: |
Riga 1: |
| − | Mostreremo di seguito un semplice codice per mostrare un file ''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 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 hPdf As New PdfDocument
| |
| − | Dim hPic As Picture
| |
| − |
| |
| − |
| |
| − | With hPdf
| |
| − | <FONT color=#006400>' ''Carichiamo il file PDF del documento da mostrare:''</font>
| |
| − | .Open("mio_file.pdf")
| |
| − | <FONT color=#006400>' ''Se il file pdf è stato caricato correttamente...''</font>
| |
| − | If .Ready = True Then
| |
| − | <FONT color=#006400>' ''...allora convertiamo la prima pagina in una "Picture"...''</font>
| |
| − | hPic = hPdf[1].Image.Picture
| |
| − | <FONT color=#006400>' ''...che caricheremo nella "PictureBox":''</font>
| |
| − | PBox.Picture = hPic
| |
| − |
| |
| − | Else
| |
| − | <FONT color=#006400>' ''Altrimenti mostriamo una messaggio di avviso:''</font>
| |
| − | Message.Error("<FONT color=darkred>Errore nel caricamento del file PDF !")
| |
| − |
| |
| − | Endif
| |
| − |
| |
| − | End With
| |
| − |
| |
| − | '''End'''
| |
Versione attuale delle 08:42, 18 feb 2022
