56 lines
2.0 KiB
VB.net
56 lines
2.0 KiB
VB.net
Imports DigitalData.Modules.Logging
|
|
Imports DigitalData.Modules.Interfaces
|
|
Imports GdPicture14
|
|
|
|
Public Class frmDocView
|
|
Private LogConfig As LogConfig
|
|
|
|
Private Const GDPICTURE_KEY = "21182889975216572111813147150675976632"
|
|
|
|
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
|
|
If String.IsNullOrEmpty(TextBox1.Text) Then
|
|
If OpenFileDialog1.ShowDialog() = DialogResult.OK Then
|
|
TextBox1.Text = OpenFileDialog1.FileName
|
|
DocumentViewer1.LoadFile(TextBox1.Text)
|
|
End If
|
|
Else
|
|
DocumentViewer1.LoadFile(TextBox1.Text)
|
|
End If
|
|
|
|
End Sub
|
|
|
|
Private Sub frmDocView_Load(sender As Object, e As EventArgs) Handles Me.Load
|
|
LogConfig = New LogConfig(LogConfig.PathType.Temp)
|
|
DocumentViewer1.Init(LogConfig, GDPICTURE_KEY, New DigitalData.Controls.DocumentViewer.DocumentViewer.ToolbarSettings() With {
|
|
.ShowPrintButton = False,
|
|
.ShowRotateButton = False,
|
|
.ShowFlipButton = False,
|
|
.ShowSettingButton = False
|
|
})
|
|
End Sub
|
|
|
|
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
|
|
DocumentViewer1.Done()
|
|
End Sub
|
|
|
|
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
|
|
If DocumentViewer1.AddAnnotation("Some Text") Then
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
|
|
DocumentViewer1.Save()
|
|
End Sub
|
|
|
|
Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
|
|
Dim licenseManager As New GdPicture14.LicenseManager()
|
|
licenseManager.RegisterKEY(GDPICTURE_KEY)
|
|
|
|
Dim oPDFConverter = New PDFConverter(LogConfig)
|
|
Dim oResult = oPDFConverter.ConvertPDFADocumentToPDFDocument(TextBox1.Text, TextBox1.Text & ".cloned.pdf")
|
|
|
|
If oResult = True Then
|
|
MsgBox("Document was successfully cloned!")
|
|
End If
|
|
End Sub
|
|
End Class |