AppStd/Monorepo
8
1
Fork 0
Code Issues Pull Requests Releases Wiki Activity

clean up

Browse Source
This commit is contained in:
Jonathan Jenne
2023-12-18 11:54:55 +01:00
parent 386ccb7ce4
commit b17e9135bd
9 changed files with 56 additions and 40 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
GUIs.Test.TestGUI/frmDocView.vb
View File

@@ -1,8 +1,12 @@
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
@@ -17,7 +21,7 @@ Public Class frmDocView
Private Sub frmDocView_Load(sender As Object, e As EventArgs) Handles Me.Load
LogConfig = New LogConfig(LogConfig.PathType.Temp)
DocumentViewer1.Init(LogConfig, "21182889975216572111813147150675976632")
DocumentViewer1.Init(LogConfig, GDPICTURE_KEY)
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
@@ -32,4 +36,16 @@ Public Class frmDocView
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