Differenze tra le versioni di "Codice essenziale per mostrare un file PDF"

Da Gambas-it.org - Wikipedia.
Riga 1: Riga 1:
−
Esporremo di seguito un semplice codice per mostrare un documento ''PDF''.
+
Per mostrare un documento ''PDF'', bisognerà utilizzare le risrse 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.
+
Mostriamo un semplice esempio, nel quale bisognerà porre sul ''Form'' una ''ImageView'' e un ''Button'', nonché attivare l'indispensabile Componente ''gb.poppler''.
−
  '''Public''' Sub Button1_Click()
+
<BR>Ci serviremo, quindi, della Classe ''PdfDocument'', la quale consente di leggere il contenuto di un documento PDF e di mostrarlo.
 +
  Private pdf As PdfDocument
 +
Private c As Short
 
   
 
   
−
  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
+
  '''Public''' Sub Form_Open()
−
  <FONT color=gray>' ''Altrimenti mostriamo una messaggio di avviso:''</font> 
 
−
      Message.Error("&lt;FONT color=darkred>&lt;B>Errore nel caricamento del file PDF !")
 
−
      Quit
 
−
    Endif
 
 
    
 
    
−
  End With
+
<FONT color=gray>' ''Carica il file PDF del documento da mostrare:''</font>
 +
  pdf = New PdfDocument("<FONT color=gray>''/percorso/del/file.pdf''</font>")
 
   
 
   
 
  '''End'''
 
  '''End'''
 
   
 
   
 
   
 
   
−
  <FONT color=gray>' ''Cliccando sul tasto si passa alla eventuale pagina successiva del pdf:''</font>
+
  <FONT color=gray>' ''Cliccando sul tasto viene mostrato il docuento PDF nell'Oggetto "ImageView" ed è possibile passare alla eventuale pagina successiva del PDF:''</font>
−
  '''Public''' Sub Button2_Click()
+
  '''Public''' Sub Button1_Click()
 
   
 
   
−
   If index = pdf.Count - 1 Then
+
   Dim im As Image
−
    index = 1
+
    
−
   Else
+
<FONT color=gray>' ''Converte la prima pagina ("indice" delle pagine = 1) in una "Image":''</font>
−
    index += 1
+
   im = pdf[0].Render()
−
   Endif
+
 
−
 
+
  <FONT color=gray>' ''Carica l'immagine nella "ImageView":''</font>
−
  pc = pdf[index].Image.Picture
+
  ImageView1.Image = im
−
  PictureBox1.Picture = pc
+
 
−
  PictureBox1.Resize(pdf[index].Width, pdf[index].Height)
+
  Me.Caption = "Pagina: " & CStr(c + 1)
−
+
 
−
'''End'''
+
  Inc c
−
+
  If c == pdf.Count Then c = pdf.Count - 1
−
 
−
  <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'''
 
  '''End'''

Versione delle 03:35, 23 giu 2020

Per mostrare un documento PDF, bisognerà utilizzare le risrse del Componente gb.poppler.

Mostriamo un semplice esempio, nel quale bisognerà porre sul Form una ImageView e un Button, nonché attivare l'indispensabile Componente gb.poppler.
Ci serviremo, quindi, della Classe PdfDocument, la quale consente di leggere il contenuto di un documento PDF e di mostrarlo. 

Private pdf As PdfDocument
Private c As Short


Public Sub Form_Open()
 
' Carica il file PDF del documento da mostrare:
 pdf = New PdfDocument("/percorso/del/file.pdf")

End


' Cliccando sul tasto viene mostrato il docuento PDF nell'Oggetto "ImageView" ed è possibile passare alla eventuale pagina successiva del PDF:
Public Sub Button1_Click()

 Dim im As Image
 
' Converte la prima pagina ("indice" delle pagine = 1) in una "Image":
 im = pdf[0].Render()
 
' Carica l'immagine nella "ImageView":
 ImageView1.Image = im
 
 Me.Caption = "Pagina: " & CStr(c + 1)
 
 Inc c
 If c == pdf.Count Then c = pdf.Count - 1
 
End
Estratto da "https://www.gambas-it.org/wiki/index.php?title=Codice_essenziale_per_mostrare_un_file_PDF&oldid=26150"