[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)
_pdfviewer.fullscreen()
End If
End Sub
End Class
|