[Visual Basic Syntax] Imports Viscomsoft.PDFViewer
Public Class Form1
Private Sub resizeCanvas()
_pdfviewer.Canvas.Size = New Size(Me.ClientSize.Width, Me.ClientSize.Height - 24)
End Sub
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
_pdfviewer.Canvas.Parent = Me
_pdfviewer.Canvas.Location = New Point(0, 24)
resizeCanvas()
Dim doc As New PDFDocument
If doc.open("c:\temp\yourfile.pdf") Then
_pdfviewer.Document = doc
_pdfviewer.gotoPage(1)
Dim info As String = "Format: "
info += doc.PDFVersion.ToString() + Chr(10) + Chr(13) info += "Producer: " info += doc.PDFProducer + Chr(10) + Chr(13) info += "File Name: " info += doc.FileName + Chr(10) + Chr(13) info += "File Size: " info += doc.FileSize.ToString() + Chr(10) + Chr(13) info += "Pages: " info += doc.PageCount.ToString() + Chr(10) + Chr(13) info += "Created: " info += doc.Created + Chr(10) + Chr(13) info += "Modified: " info += doc.Modified MessageBox.Show(info)
End If
End Sub
Private Sub Form1_FormClosed(sender As Object, e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
If Not IsNothing(_pdfviewer.Document) Then
_pdfviewer.Document.close()
End If
End Sub
End Class
|