edv/AVISO
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Spire

Browse Source
This commit is contained in:
d.breimaier
2024-09-13 08:29:34 +02:00
parent 729fbe82d6
commit 0366bc55a2
2 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
Aviso/Anhänge/frmSendungAnhangImport.vb
View File

@@ -1153,7 +1153,7 @@ Public Class frmSendungAnhangImport
Me.Height = Screen.PrimaryScreen.WorkingArea.Height Me.Height = Screen.PrimaryScreen.WorkingArea.Height
Me.Top = 0 Me.Top = 0
If Not VERAG_PROG_ALLGEMEIN.cProgramFunctions.spireLoadLicense() Then MsgBox("Fehler beim Laden der SPIRE-Lizenz") 'If Not VERAG_PROG_ALLGEMEIN.cProgramFunctions.spireLoadLicense() Then MsgBox("Fehler beim Laden der SPIRE-Lizenz")
Try Try
DirectCast(PdfViewer.Controls(0).Controls(0).Controls(0), ToolStrip).Items(0).Visible = False DirectCast(PdfViewer.Controls(0).Controls(0).Controls(0), ToolStrip).Items(0).Visible = False

4
Aviso/frmHauptfenster.vb
View File

@@ -4692,7 +4692,7 @@ Public Class frmHauptfenster
Private Sub SpireLizenzPrüfenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SpireLizenzPrüfenToolStripMenuItem.Click Private Sub SpireLizenzPrüfenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SpireLizenzPrüfenToolStripMenuItem.Click
If Not VERAG_PROG_ALLGEMEIN.cProgramFunctions.spireLoadLicense() Then MsgBox("Fehler beim Laden der SPIRE-Lizenz") 'If Not VERAG_PROG_ALLGEMEIN.cProgramFunctions.spireLoadLicense() Then MsgBox("Fehler beim Laden der SPIRE-Lizenz")
Dim pdf As New Spire.Pdf.PdfDocument() Dim pdf As New Spire.Pdf.PdfDocument()
@@ -4710,7 +4710,7 @@ Public Class frmHauptfenster
Dim finder As PdfTextFinder = New PdfTextFinder(pdfNew.Pages(0)) Dim finder As PdfTextFinder = New PdfTextFinder(pdfNew.Pages(0))
If finder.Find("Evaluation").Count > 0 Then If finder.Find("Evaluation Warning").Count > 0 Then
MsgBox("PDF License wurde nicht geladen!") MsgBox("PDF License wurde nicht geladen!")
Process.Start("test.pdf") Process.Start("test.pdf")
Else Else