Codice essenziale per mostrare un file PDF

Da Gambas-it.org - Wikipedia.

Esporremo di seguito un semplice codice per mostrare un documento PDF.

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
' 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[index].Width, pdf[index].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