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

.Net 4.8, Spire PDF, PDF Kopmrimieren

Browse Source
This commit is contained in:
Andreas Luxbauer
2024-08-30 22:41:48 +02:00
parent 59873ed3e0
commit 2d6ad53ddd
17 changed files with 310 additions and 130 deletions
Download Patch File Download Diff File Expand all files Collapse all files

87
Aviso/Anhänge/frmSendungAnhangImport.Designer.vb generated
View File

@@ -22,12 +22,9 @@ Partial Class frmSendungAnhangImport
'Das Bearbeiten mit dem Code-Editor ist nicht möglich. 'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> <System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent() Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmSendungAnhangImport)) Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmSendungAnhangImport))
Me.lbl = New System.Windows.Forms.Label() Me.lbl = New System.Windows.Forms.Label()
Me.flpnlAviso = New System.Windows.Forms.FlowLayoutPanel() Me.flpnlAviso = New System.Windows.Forms.FlowLayoutPanel()
Me.UsrCntlSendungAnhangElement1 = New AVISO.usrCntlSendungAnhangElement()
Me.UsrCntlSendungAnhangElement2 = New AVISO.usrCntlSendungAnhangElement()
Me.flpnlSendungen = New System.Windows.Forms.FlowLayoutPanel() Me.flpnlSendungen = New System.Windows.Forms.FlowLayoutPanel()
Me.lblSendungen = New System.Windows.Forms.Label() Me.lblSendungen = New System.Windows.Forms.Label()
Me.lblImport = New System.Windows.Forms.Label() Me.lblImport = New System.Windows.Forms.Label()
@@ -49,7 +46,7 @@ Partial Class frmSendungAnhangImport
Me.lblSeiten = New System.Windows.Forms.Label() Me.lblSeiten = New System.Windows.Forms.Label()
Me.cbxDelPDF = New System.Windows.Forms.CheckBox() Me.cbxDelPDF = New System.Windows.Forms.CheckBox()
Me.btnAdd = New System.Windows.Forms.Button() Me.btnAdd = New System.Windows.Forms.Button()
Me.cntxt = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.cntxt = New System.Windows.Forms.ContextMenuStrip()
Me.DateiHochladenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.DateiHochladenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.DateiScannenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.DateiScannenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.AusZwischenablageeinfügenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.AusZwischenablageeinfügenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
@@ -57,7 +54,6 @@ Partial Class frmSendungAnhangImport
Me.pnl = New System.Windows.Forms.Panel() Me.pnl = New System.Windows.Forms.Panel()
Me.Button5 = New System.Windows.Forms.Button() Me.Button5 = New System.Windows.Forms.Button()
Me.PdfViewer = New Spire.PdfViewer.Forms.PdfViewer() Me.PdfViewer = New Spire.PdfViewer.Forms.PdfViewer()
Me.WebBrowser = New System.Windows.Forms.WebBrowser()
Me.Button3 = New System.Windows.Forms.Button() Me.Button3 = New System.Windows.Forms.Button()
Me.btnSndDel = New System.Windows.Forms.Button() Me.btnSndDel = New System.Windows.Forms.Button()
Me.PrintDocument1 = New System.Drawing.Printing.PrintDocument() Me.PrintDocument1 = New System.Drawing.Printing.PrintDocument()
@@ -72,6 +68,9 @@ Partial Class frmSendungAnhangImport
Me.Button17 = New System.Windows.Forms.Button() Me.Button17 = New System.Windows.Forms.Button()
Me.lblRgPreis = New System.Windows.Forms.Label() Me.lblRgPreis = New System.Windows.Forms.Label()
Me.pnlSendung = New System.Windows.Forms.Panel() Me.pnlSendung = New System.Windows.Forms.Panel()
Me.UsrCntlSendungAnhangElement1 = New AVISO.usrCntlSendungAnhangElement()
Me.UsrCntlSendungAnhangElement2 = New AVISO.usrCntlSendungAnhangElement()
Me.WebBrowser = New System.Windows.Forms.WebBrowser()
Me.flpnlAviso.SuspendLayout() Me.flpnlAviso.SuspendLayout()
Me.pnlAnfuegen.SuspendLayout() Me.pnlAnfuegen.SuspendLayout()
Me.cntxt.SuspendLayout() Me.cntxt.SuspendLayout()
@@ -103,36 +102,6 @@ Partial Class frmSendungAnhangImport
Me.flpnlAviso.Size = New System.Drawing.Size(200, 825) Me.flpnlAviso.Size = New System.Drawing.Size(200, 825)
Me.flpnlAviso.TabIndex = 7 Me.flpnlAviso.TabIndex = 7
' '
'UsrCntlSendungAnhangElement1
'
Me.UsrCntlSendungAnhangElement1.ACTIVE = False
Me.UsrCntlSendungAnhangElement1.BackColor = System.Drawing.Color.White
Me.UsrCntlSendungAnhangElement1.FILE_ANHID = Nothing
Me.UsrCntlSendungAnhangElement1.FILE_DOCID = Nothing
Me.UsrCntlSendungAnhangElement1.FILE_NAME = "False"
Me.UsrCntlSendungAnhangElement1.FILE_PAGES = Nothing
Me.UsrCntlSendungAnhangElement1.FILE_PATH = Nothing
Me.UsrCntlSendungAnhangElement1.FILE_TYPE = Nothing
Me.UsrCntlSendungAnhangElement1.Location = New System.Drawing.Point(3, 3)
Me.UsrCntlSendungAnhangElement1.Name = "UsrCntlSendungAnhangElement1"
Me.UsrCntlSendungAnhangElement1.Size = New System.Drawing.Size(130, 64)
Me.UsrCntlSendungAnhangElement1.TabIndex = 0
'
'UsrCntlSendungAnhangElement2
'
Me.UsrCntlSendungAnhangElement2.ACTIVE = False
Me.UsrCntlSendungAnhangElement2.BackColor = System.Drawing.Color.White
Me.UsrCntlSendungAnhangElement2.FILE_ANHID = Nothing
Me.UsrCntlSendungAnhangElement2.FILE_DOCID = Nothing
Me.UsrCntlSendungAnhangElement2.FILE_NAME = "False"
Me.UsrCntlSendungAnhangElement2.FILE_PAGES = Nothing
Me.UsrCntlSendungAnhangElement2.FILE_PATH = Nothing
Me.UsrCntlSendungAnhangElement2.FILE_TYPE = Nothing
Me.UsrCntlSendungAnhangElement2.Location = New System.Drawing.Point(3, 73)
Me.UsrCntlSendungAnhangElement2.Name = "UsrCntlSendungAnhangElement2"
Me.UsrCntlSendungAnhangElement2.Size = New System.Drawing.Size(130, 64)
Me.UsrCntlSendungAnhangElement2.TabIndex = 1
'
'flpnlSendungen 'flpnlSendungen
' '
Me.flpnlSendungen.AllowDrop = True Me.flpnlSendungen.AllowDrop = True
@@ -504,15 +473,6 @@ Partial Class frmSendungAnhangImport
Me.PdfViewer.Threshold = 60 Me.PdfViewer.Threshold = 60
Me.PdfViewer.ViewerBackgroundColor = System.Drawing.Color.FromArgb(CType(CType(229, Byte), Integer), CType(CType(229, Byte), Integer), CType(CType(229, Byte), Integer)) Me.PdfViewer.ViewerBackgroundColor = System.Drawing.Color.FromArgb(CType(CType(229, Byte), Integer), CType(CType(229, Byte), Integer), CType(CType(229, Byte), Integer))
' '
'WebBrowser
'
Me.WebBrowser.Dock = System.Windows.Forms.DockStyle.Fill
Me.WebBrowser.Location = New System.Drawing.Point(0, 0)
Me.WebBrowser.MinimumSize = New System.Drawing.Size(20, 20)
Me.WebBrowser.Name = "WebBrowser"
Me.WebBrowser.Size = New System.Drawing.Size(844, 655)
Me.WebBrowser.TabIndex = 1
'
'Button3 'Button3
' '
Me.Button3.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.Button3.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
@@ -671,6 +631,45 @@ Partial Class frmSendungAnhangImport
Me.pnlSendung.Size = New System.Drawing.Size(243, 860) Me.pnlSendung.Size = New System.Drawing.Size(243, 860)
Me.pnlSendung.TabIndex = 0 Me.pnlSendung.TabIndex = 0
' '
'UsrCntlSendungAnhangElement1
'
Me.UsrCntlSendungAnhangElement1.ACTIVE = False
Me.UsrCntlSendungAnhangElement1.BackColor = System.Drawing.Color.White
Me.UsrCntlSendungAnhangElement1.FILE_ANHID = Nothing
Me.UsrCntlSendungAnhangElement1.FILE_DOCID = Nothing
Me.UsrCntlSendungAnhangElement1.FILE_NAME = "False"
Me.UsrCntlSendungAnhangElement1.FILE_PAGES = Nothing
Me.UsrCntlSendungAnhangElement1.FILE_PATH = Nothing
Me.UsrCntlSendungAnhangElement1.FILE_TYPE = Nothing
Me.UsrCntlSendungAnhangElement1.Location = New System.Drawing.Point(3, 3)
Me.UsrCntlSendungAnhangElement1.Name = "UsrCntlSendungAnhangElement1"
Me.UsrCntlSendungAnhangElement1.Size = New System.Drawing.Size(130, 64)
Me.UsrCntlSendungAnhangElement1.TabIndex = 0
'
'UsrCntlSendungAnhangElement2
'
Me.UsrCntlSendungAnhangElement2.ACTIVE = False
Me.UsrCntlSendungAnhangElement2.BackColor = System.Drawing.Color.White
Me.UsrCntlSendungAnhangElement2.FILE_ANHID = Nothing
Me.UsrCntlSendungAnhangElement2.FILE_DOCID = Nothing
Me.UsrCntlSendungAnhangElement2.FILE_NAME = "False"
Me.UsrCntlSendungAnhangElement2.FILE_PAGES = Nothing
Me.UsrCntlSendungAnhangElement2.FILE_PATH = Nothing
Me.UsrCntlSendungAnhangElement2.FILE_TYPE = Nothing
Me.UsrCntlSendungAnhangElement2.Location = New System.Drawing.Point(3, 73)
Me.UsrCntlSendungAnhangElement2.Name = "UsrCntlSendungAnhangElement2"
Me.UsrCntlSendungAnhangElement2.Size = New System.Drawing.Size(130, 64)
Me.UsrCntlSendungAnhangElement2.TabIndex = 1
'
'WebBrowser
'
Me.WebBrowser.Dock = System.Windows.Forms.DockStyle.Fill
Me.WebBrowser.Location = New System.Drawing.Point(0, 0)
Me.WebBrowser.MinimumSize = New System.Drawing.Size(20, 20)
Me.WebBrowser.Name = "WebBrowser"
Me.WebBrowser.Size = New System.Drawing.Size(844, 655)
Me.WebBrowser.TabIndex = 1
'
'frmSendungAnhangImport 'frmSendungAnhangImport
' '
Me.AllowDrop = True Me.AllowDrop = True

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

@@ -3,6 +3,9 @@
'Imports iTextSharp.text 'Imports iTextSharp.text
Imports System.IO Imports System.IO
Imports Spire.Pdf Imports Spire.Pdf
Imports Spire.Pdf.Conversion
Imports Spire.Pdf.Conversion.Compression
Imports Spire.Pdf.Exporting
Imports VERAG_PROG_ALLGEMEIN Imports VERAG_PROG_ALLGEMEIN
'Imports GrapeCity.Documents.Pdf 'Imports GrapeCity.Documents.Pdf
@@ -115,6 +118,11 @@ Public Class frmSendungAnhangImport
initFlpANH_LIST() initFlpANH_LIST()
End Sub End Sub
AddHandler USRCNTL.ME_COMPRESS, Sub(docId, anhId)
compressElement(docId, anhId)
initFlpANH_LIST()
End Sub
AddHandler USRCNTL.KeyDown, Sub(ob As Object, ev As KeyEventArgs) AddHandler USRCNTL.KeyDown, Sub(ob As Object, ev As KeyEventArgs)
If ev.KeyCode = Keys.Delete Then If ev.KeyCode = Keys.Delete Then
deleteActiveElement(getAcitvePnl()) deleteActiveElement(getAcitvePnl())
@@ -645,11 +653,11 @@ Public Class frmSendungAnhangImport
Public Function ExtractPdfPages_NEW(ByVal SourceFile As String, ByVal TargetFile As String, pagesToExtract As List(Of Integer)) As Boolean 'ITEXTSHARP Public Function ExtractPdfPages_NEW(ByVal SourceFile As String, ByVal TargetFile As String, pagesToExtract As List(Of Integer)) As Boolean 'ITEXTSHARP
Try Try
Dim impPage As itextsharp.text.pdf.PdfImportedPage = Nothing Dim impPage As iTextSharp.text.pdf.PdfImportedPage = Nothing
Dim Reader As New itextsharp.text.pdf.PdfReader(SourceFile) Dim Reader As New iTextSharp.text.pdf.PdfReader(SourceFile)
If Not TargetFile.ToLower.EndsWith(".pdf") Then TargetFile = TargetFile & ".pdf" If Not TargetFile.ToLower.EndsWith(".pdf") Then TargetFile = TargetFile & ".pdf"
Dim srcDoc As New itextsharp.text.Document() 'Reader.GetPageSizeWithRotation(0)) Dim srcDoc As New iTextSharp.text.Document() 'Reader.GetPageSizeWithRotation(0))
Dim PdfCopyProvider As New itextsharp.text.pdf.PdfCopy(srcDoc, New System.IO.FileStream(TargetFile, System.IO.FileMode.Create)) Dim PdfCopyProvider As New iTextSharp.text.pdf.PdfCopy(srcDoc, New System.IO.FileStream(TargetFile, System.IO.FileMode.Create))
PdfCopyProvider.SetFullCompression() PdfCopyProvider.SetFullCompression()
srcDoc.Open() srcDoc.Open()
For Each p In pagesToExtract For Each p In pagesToExtract
@@ -660,7 +668,7 @@ Public Class frmSendungAnhangImport
End If End If
impPage = PdfCopyProvider.GetImportedPage(Reader, p) impPage = PdfCopyProvider.GetImportedPage(Reader, p)
' ----- Ermitteln der Seitenauflösung und setzen für die neue Seite ' ----- Ermitteln der Seitenauflösung und setzen für die neue Seite
PdfCopyProvider.SetPageSize(New itextsharp.text.Rectangle(0.0F, 0.0F, impPage.Width, impPage.Height, Reader.GetPageRotation(p))) PdfCopyProvider.SetPageSize(New iTextSharp.text.Rectangle(0.0F, 0.0F, impPage.Width, impPage.Height, Reader.GetPageRotation(p)))
' ----- PDF Seite in das neue Dokument einfügen ' ----- PDF Seite in das neue Dokument einfügen
PdfCopyProvider.AddPage(impPage) PdfCopyProvider.AddPage(impPage)
@@ -896,7 +904,7 @@ Public Class frmSendungAnhangImport
Try Try
PagesLeft = 0 PagesLeft = 0
Dim r As itextsharp.text.pdf.PdfReader = New itextsharp.text.pdf.PdfReader(sourceFile) Dim r As iTextSharp.text.pdf.PdfReader = New iTextSharp.text.pdf.PdfReader(sourceFile)
Dim pagesToKeep As New List(Of Integer) Dim pagesToKeep As New List(Of Integer)
For p = 1 To r.NumberOfPages For p = 1 To r.NumberOfPages
Dim del = False Dim del = False
@@ -918,9 +926,9 @@ Public Class frmSendungAnhangImport
Using fs As FileStream = New FileStream(destinationFile, FileMode.Create, FileAccess.Write, FileShare.None) Using fs As FileStream = New FileStream(destinationFile, FileMode.Create, FileAccess.Write, FileShare.None)
Using doc As itextsharp.text.Document = New itextsharp.text.Document() Using doc As iTextSharp.text.Document = New iTextSharp.text.Document()
Dim w As itextsharp.text.pdf.PdfWriter = itextsharp.text.pdf.PdfWriter.GetInstance(doc, fs) Dim w As iTextSharp.text.pdf.PdfWriter = iTextSharp.text.pdf.PdfWriter.GetInstance(doc, fs)
doc.Open() doc.Open()
For Each page As Integer In pagesToKeep For Each page As Integer In pagesToKeep
doc.NewPage() doc.NewPage()
@@ -1046,6 +1054,100 @@ Public Class frmSendungAnhangImport
Return False Return False
End Function End Function
Shared Function compressElement(FILE_DOCID, FILE_ANHID, Optional showMessage = True) As Boolean
If Not showMessage OrElse vbYes = MsgBox("Möchten Sie das Element komprimieren? Durch Minderung der Datenqualität gehen Informationen eventuell verloren.", vbYesNoCancel) Then
Try
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(FILE_DOCID)
'Load a PDF document while initializing the PdfCompressor object
Dim compressor As Spire.Pdf.Conversion.Compression.PdfCompressor = New Spire.Pdf.Conversion.Compression.PdfCompressor(DS.GET_TOP1_PATH)
'Get text compression options
Dim textCompression As TextCompressionOptions = compressor.Options.TextCompressionOptions
'Compress fonts
textCompression.CompressFonts = True
'Unembed fonts
textCompression.UnembedFonts = True
'Get image compression options
Dim imageCompression As ImageCompressionOptions = compressor.Options.ImageCompressionOptions
'Set the compressed image quality
imageCompression.ImageQuality = ImageQuality.High
'Resize images
imageCompression.ResizeImages = True
'Compress images
imageCompression.CompressImage = True
'Save the compressed document to file
compressor.CompressToFile(DS.GET_TOP1_PATH)
'Load the pdf document
Dim doc As New PdfDocument()
doc.LoadFromFile(DS.GET_TOP1_PATH)
'Compress the content in document
CompressContent(doc)
'Compress the images in document
CompressImage(doc)
'Save the document
doc.SaveToFile(DS.GET_TOP1_PATH)
'View the pdf document
PDFDocumentViewer(DS.GET_TOP1_PATH)
'Dim Convert = New PdfGrayConverter("C:\Users\DEVELOPER1\Desktop\CompressDocument_result2.pdf")
'Convert.ToGrayPdf("C:\Users\DEVELOPER1\Desktop\CompressDocument_result3.pdf")
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,, "Fehler QuickScan")
End Try
End If
Return False
End Function
Private Shared Sub CompressContent(ByVal doc As PdfDocument)
'Disable the incremental update
doc.FileInfo.IncrementalUpdate = False
'Set the compression level to best
doc.CompressionLevel = PdfCompressionLevel.Best
End Sub
Private Shared Sub CompressImage(ByVal doc As PdfDocument)
Try
'Disable the incremental update
doc.FileInfo.IncrementalUpdate = False
'Traverse all pages
For Each page As PdfPageBase In doc.Pages
If page IsNot Nothing Then
If page.ImagesInfo IsNot Nothing Then
For Each info As PdfImageInfo In page.ImagesInfo
page.TryCompressImage(info.Index)
Next info
End If
End If
Next page
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,, "Fehler QuickScan")
End Try
End Sub
Private Shared Sub PDFDocumentViewer(ByVal fileName As String)
Try
Process.Start(fileName)
Catch
End Try
End Sub
Private Sub frmSendungAnhangImport_Load(sender As Object, e As EventArgs) Handles Me.Load Private Sub frmSendungAnhangImport_Load(sender As Object, e As EventArgs) Handles Me.Load
Me.Height = Screen.PrimaryScreen.WorkingArea.Height Me.Height = Screen.PrimaryScreen.WorkingArea.Height
@@ -1226,6 +1328,7 @@ Public Class frmSendungAnhangImport
If pnl Is Nothing OrElse pnl Is flpnlSendungen Then flpnlSendungen.Controls.AddRange(ListToAdd_flpnlSendungen.ToArray) If pnl Is Nothing OrElse pnl Is flpnlSendungen Then flpnlSendungen.Controls.AddRange(ListToAdd_flpnlSendungen.ToArray)
If pnl Is Nothing OrElse pnl Is flpnlAviso Then flpnlAviso.Controls.AddRange(ListToAdd_flpnlAviso.ToArray) If pnl Is Nothing OrElse pnl Is flpnlAviso Then flpnlAviso.Controls.AddRange(ListToAdd_flpnlAviso.ToArray)
'If act Is Nothing Then initLocationViewer("", "PDF") 'If act Is Nothing Then initLocationViewer("", "PDF")
End Sub End Sub
@@ -1239,6 +1342,7 @@ Public Class frmSendungAnhangImport
USRCNTL.FILE_NAME = a.anh_Name USRCNTL.FILE_NAME = a.anh_Name
USRCNTL.FILE_TYPE = a.anh_Typ USRCNTL.FILE_TYPE = a.anh_Typ
USRCNTL.FILE_SIZE = a.anh_size.ToString("N0") & " KB"
USRCNTL.FILE_ANHID = a.anh_id USRCNTL.FILE_ANHID = a.anh_id
USRCNTL.FILE_DOCID = a.anh_docId USRCNTL.FILE_DOCID = a.anh_docId
@@ -1326,7 +1430,7 @@ Public Class frmSendungAnhangImport
End Try End Try
End Sub End Sub
Sub addUsrcnlToPnl(TMP_Path, dicId, anhId, Optional filename = "", Optional Typ = "") Sub addUsrcnlToPnl(TMP_Path, dicId, anhId, Optional filename = "", Optional Typ = "", Optional Size = "")
Dim USRCNTL As New usrCntlSendungAnhangElement Dim USRCNTL As New usrCntlSendungAnhangElement
Dim fi As New FileInfo(TMP_Path) Dim fi As New FileInfo(TMP_Path)
@@ -1339,6 +1443,7 @@ Public Class frmSendungAnhangImport
USRCNTL.FILE_ANHID = anhId USRCNTL.FILE_ANHID = anhId
USRCNTL.FILE_TYPE = Typ USRCNTL.FILE_TYPE = Typ
USRCNTL.FILE_SIZE = Size
initElement(USRCNTL) initElement(USRCNTL)
flpnlAviso.Controls.Add(USRCNTL) flpnlAviso.Controls.Add(USRCNTL)

58
Aviso/Anhänge/usrCntlSendungAnhangElement.Designer.vb generated
View File

@@ -27,9 +27,11 @@ Partial Class usrCntlSendungAnhangElement
Me.cntxt = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.cntxt = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.UmbenennenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.UmbenennenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.LöschenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.LöschenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.lbl = New System.Windows.Forms.Label()
Me.AnhängeVerschiebenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.AnhängeVerschiebenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.PDFsZusammenführenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.PDFsZusammenführenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.KomprimierenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.lbl = New System.Windows.Forms.Label()
Me.lblSize = New System.Windows.Forms.Label()
CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit()
Me.cntxt.SuspendLayout() Me.cntxt.SuspendLayout()
Me.SuspendLayout() Me.SuspendLayout()
@@ -49,39 +51,27 @@ Partial Class usrCntlSendungAnhangElement
' '
'cntxt 'cntxt
' '
Me.cntxt.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.UmbenennenToolStripMenuItem, Me.LöschenToolStripMenuItem, Me.AnhängeVerschiebenToolStripMenuItem, Me.PDFsZusammenführenToolStripMenuItem}) Me.cntxt.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.UmbenennenToolStripMenuItem, Me.LöschenToolStripMenuItem, Me.AnhängeVerschiebenToolStripMenuItem, Me.PDFsZusammenführenToolStripMenuItem, Me.KomprimierenToolStripMenuItem})
Me.cntxt.Name = "cntxt" Me.cntxt.Name = "cntxt"
Me.cntxt.Size = New System.Drawing.Size(206, 114) Me.cntxt.Size = New System.Drawing.Size(206, 114)
' '
'UmbenennenToolStripMenuItem 'UmbenennenToolStripMenuItem
' '
Me.UmbenennenToolStripMenuItem.Name = "UmbenennenToolStripMenuItem" Me.UmbenennenToolStripMenuItem.Name = "UmbenennenToolStripMenuItem"
Me.UmbenennenToolStripMenuItem.Size = New System.Drawing.Size(180, 22) Me.UmbenennenToolStripMenuItem.Size = New System.Drawing.Size(205, 22)
Me.UmbenennenToolStripMenuItem.Text = "Umbenennen" Me.UmbenennenToolStripMenuItem.Text = "Umbenennen"
' '
'LöschenToolStripMenuItem 'LöschenToolStripMenuItem
' '
Me.LöschenToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.del Me.LöschenToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.del
Me.LöschenToolStripMenuItem.Name = "LöschenToolStripMenuItem" Me.LöschenToolStripMenuItem.Name = "LöschenToolStripMenuItem"
Me.LöschenToolStripMenuItem.Size = New System.Drawing.Size(180, 22) Me.LöschenToolStripMenuItem.Size = New System.Drawing.Size(205, 22)
Me.LöschenToolStripMenuItem.Text = "Löschen" Me.LöschenToolStripMenuItem.Text = "Löschen"
' '
'lbl
'
Me.lbl.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.lbl.ContextMenuStrip = Me.cntxt
Me.lbl.Location = New System.Drawing.Point(36, 0)
Me.lbl.Name = "lbl"
Me.lbl.Size = New System.Drawing.Size(140, 27)
Me.lbl.TabIndex = 1
Me.lbl.Text = "NAME"
Me.lbl.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
'
'AnhängeVerschiebenToolStripMenuItem 'AnhängeVerschiebenToolStripMenuItem
' '
Me.AnhängeVerschiebenToolStripMenuItem.Name = "AnhängeVerschiebenToolStripMenuItem" Me.AnhängeVerschiebenToolStripMenuItem.Name = "AnhängeVerschiebenToolStripMenuItem"
Me.AnhängeVerschiebenToolStripMenuItem.Size = New System.Drawing.Size(197, 22) Me.AnhängeVerschiebenToolStripMenuItem.Size = New System.Drawing.Size(205, 22)
Me.AnhängeVerschiebenToolStripMenuItem.Text = "Anhänge verschieben..." Me.AnhängeVerschiebenToolStripMenuItem.Text = "Anhänge verschieben..."
' '
'PDFsZusammenführenToolStripMenuItem 'PDFsZusammenführenToolStripMenuItem
@@ -91,12 +81,44 @@ Partial Class usrCntlSendungAnhangElement
Me.PDFsZusammenführenToolStripMenuItem.Size = New System.Drawing.Size(205, 22) Me.PDFsZusammenführenToolStripMenuItem.Size = New System.Drawing.Size(205, 22)
Me.PDFsZusammenführenToolStripMenuItem.Text = "PDFs zusammenführen..." Me.PDFsZusammenführenToolStripMenuItem.Text = "PDFs zusammenführen..."
' '
'KomprimierenToolStripMenuItem
'
Me.KomprimierenToolStripMenuItem.Name = "KomprimierenToolStripMenuItem"
Me.KomprimierenToolStripMenuItem.Size = New System.Drawing.Size(205, 22)
Me.KomprimierenToolStripMenuItem.Text = "Komprimieren"
'
'lbl
'
Me.lbl.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.lbl.ContextMenuStrip = Me.cntxt
Me.lbl.Location = New System.Drawing.Point(36, 0)
Me.lbl.Name = "lbl"
Me.lbl.Size = New System.Drawing.Size(140, 24)
Me.lbl.TabIndex = 1
Me.lbl.Text = "NAME asd asdasd" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "asdasdasd"
Me.lbl.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
'
'lblSize
'
Me.lblSize.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.lblSize.ContextMenuStrip = Me.cntxt
Me.lblSize.Font = New System.Drawing.Font("Microsoft Sans Serif", 6.5!)
Me.lblSize.Location = New System.Drawing.Point(136, 18)
Me.lblSize.Name = "lblSize"
Me.lblSize.Size = New System.Drawing.Size(44, 10)
Me.lblSize.TabIndex = 2
Me.lblSize.Text = "1.500 KB"
Me.lblSize.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'usrCntlSendungAnhangElement 'usrCntlSendungAnhangElement
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.White Me.BackColor = System.Drawing.Color.White
Me.ContextMenuStrip = Me.cntxt Me.ContextMenuStrip = Me.cntxt
Me.Controls.Add(Me.lblSize)
Me.Controls.Add(Me.lbl) Me.Controls.Add(Me.lbl)
Me.Controls.Add(Me.pic) Me.Controls.Add(Me.pic)
Me.Name = "usrCntlSendungAnhangElement" Me.Name = "usrCntlSendungAnhangElement"
@@ -114,4 +136,6 @@ Partial Class usrCntlSendungAnhangElement
Friend WithEvents LöschenToolStripMenuItem As ToolStripMenuItem Friend WithEvents LöschenToolStripMenuItem As ToolStripMenuItem
Friend WithEvents AnhängeVerschiebenToolStripMenuItem As ToolStripMenuItem Friend WithEvents AnhängeVerschiebenToolStripMenuItem As ToolStripMenuItem
Friend WithEvents PDFsZusammenführenToolStripMenuItem As ToolStripMenuItem Friend WithEvents PDFsZusammenführenToolStripMenuItem As ToolStripMenuItem
Friend WithEvents KomprimierenToolStripMenuItem As ToolStripMenuItem
Friend WithEvents lblSize As Label
End Class End Class

29
Aviso/Anhänge/usrCntlSendungAnhangElement.vb
View File

@@ -16,6 +16,7 @@ Public Class usrCntlSendungAnhangElement
Public Event ME_CLICK(STRG_PRESSED) Public Event ME_CLICK(STRG_PRESSED)
Public Event ME_DELETE(FILE_DOCID, FILE_ANHID) Public Event ME_DELETE(FILE_DOCID, FILE_ANHID)
Public Event ME_COMPRESS(FILE_DOCID, FILE_ANHID)
'Public Event PropertyChanged As PropertyChangedEventHandler Implements INotifyPropertyChanged.PropertyChanged 'Public Event PropertyChanged As PropertyChangedEventHandler Implements INotifyPropertyChanged.PropertyChanged
@@ -24,6 +25,7 @@ Public Class usrCntlSendungAnhangElement
' RaiseEvent PropertyChanged(Me, New PropertyChangedEventArgs(info)) ' RaiseEvent PropertyChanged(Me, New PropertyChangedEventArgs(info))
'End Sub 'End Sub
Private ACTIVE_Value As Boolean = False Private ACTIVE_Value As Boolean = False
Public Property ACTIVE As Boolean Public Property ACTIVE As Boolean
Get Get
@@ -87,6 +89,23 @@ Public Class usrCntlSendungAnhangElement
End Set End Set
End Property End Property
Private FILE_SIZE_Value As String = False
Public Property FILE_SIZE As String
Get
Return Me.FILE_SIZE_Value
End Get
Set(ByVal value As String)
If Not (value = FILE_SIZE) Then
Me.FILE_SIZE_Value = value
Me.lblSize.Text = value
' NotifyPropertyChanged("FILE_NAME")
End If
End Set
End Property
'Private Sub pic_Click(sender As Object, e As EventArgs) Handles pic.Click, lbl.Click, Me.Click 'Private Sub pic_Click(sender As Object, e As EventArgs) Handles pic.Click, lbl.Click, Me.Click
' RaiseEvent ME_CLICK(My.Computer.Keyboard.CtrlKeyDown) ' RaiseEvent ME_CLICK(My.Computer.Keyboard.CtrlKeyDown)
'End Sub 'End Sub
@@ -165,4 +184,14 @@ Public Class usrCntlSendungAnhangElement
MsgBox(ex.Message & ex.StackTrace) MsgBox(ex.Message & ex.StackTrace)
End Try End Try
End Sub End Sub
Private Sub usrCntlSendungAnhangElement_Load(sender As Object, e As EventArgs) Handles Me.Load
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMINFUNCTIONS", "SDL") Then
KomprimierenToolStripMenuItem.Visible = True
End If
End Sub
Private Sub KomprimierenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles KomprimierenToolStripMenuItem.Click
RaiseEvent ME_COMPRESS(FILE_DOCID, FILE_ANHID)
End Sub
End Class End Class

50
Aviso/App.config
View File

@@ -1,15 +1,15 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<configuration> <configuration>
<configSections> <configSections>
<sectionGroup name="userSettings" type="System.Configuration.UserSettingsGroup, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089"> <sectionGroup name="userSettings" type="System.Configuration.UserSettingsGroup, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<section name="AVISO.My.MySettings" type="System.Configuration.ClientSettingsSection, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" allowExeDefinition="MachineToLocalUser" requirePermission="false" /> <section name="AVISO.My.MySettings" type="System.Configuration.ClientSettingsSection, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" allowExeDefinition="MachineToLocalUser" requirePermission="false"/>
</sectionGroup> </sectionGroup>
</configSections> </configSections>
<connectionStrings> <connectionStrings>
<add name="AVISO.My.MySettings.AVISO_ConnectionString_TEST" connectionString="Data Source=192.168.0.90\DEVSQL;Initial Catalog=AVISO_new;Integrated Security=false;User ID=sa;Password=BmWr501956;" providerName="System.Data.SqlClient" /> <add name="AVISO.My.MySettings.AVISO_ConnectionString_TEST" connectionString="Data Source=192.168.0.90\DEVSQL;Initial Catalog=AVISO_new;Integrated Security=false;User ID=sa;Password=BmWr501956;" providerName="System.Data.SqlClient"/>
</connectionStrings> </connectionStrings>
<startup> <startup>
<supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.7" /> <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.8"/>
</startup> </startup>
<userSettings> <userSettings>
@@ -21,55 +21,55 @@
<value>200, 200</value> <value>200, 200</value>
</setting> </setting>
<setting name="s" serializeAs="String"> <setting name="s" serializeAs="String">
<value /> <value/>
</setting> </setting>
</AVISO.My.MySettings> </AVISO.My.MySettings>
</userSettings> </userSettings>
<system.serviceModel> <system.serviceModel>
<bindings> <bindings>
<basicHttpBinding> <basicHttpBinding>
<binding name="BasicHttpBinding_IRKSVWcf" /> <binding name="BasicHttpBinding_IRKSVWcf"/>
</basicHttpBinding> </basicHttpBinding>
</bindings> </bindings>
<client> <client>
<endpoint address="http://localhost:8733/Design_Time_Addresses/RKSVCompleteServer/Service1/" binding="basicHttpBinding" bindingConfiguration="BasicHttpBinding_IRKSVWcf" contract="RKSVServer.IRKSVWcf" name="BasicHttpBinding_IRKSVWcf" /> <endpoint address="http://localhost:8733/Design_Time_Addresses/RKSVCompleteServer/Service1/" binding="basicHttpBinding" bindingConfiguration="BasicHttpBinding_IRKSVWcf" contract="RKSVServer.IRKSVWcf" name="BasicHttpBinding_IRKSVWcf"/>
</client> </client>
</system.serviceModel> </system.serviceModel>
<runtime> <runtime>
<assemblyBinding xmlns="urn:schemas-microsoft-com:asm.v1"> <assemblyBinding xmlns="urn:schemas-microsoft-com:asm.v1">
<dependentAssembly> <dependentAssembly>
<assemblyIdentity name="DocumentFormat.OpenXml" publicKeyToken="31bf3856ad364e35" culture="neutral" /> <assemblyIdentity name="DocumentFormat.OpenXml" publicKeyToken="31bf3856ad364e35" culture="neutral"/>
<bindingRedirect oldVersion="0.0.0.0-2.5.5631.0" newVersion="2.5.5631.0" /> <bindingRedirect oldVersion="0.0.0.0-2.5.5631.0" newVersion="2.5.5631.0"/>
</dependentAssembly> </dependentAssembly>
<dependentAssembly> <dependentAssembly>
<assemblyIdentity name="WindowsBase" publicKeyToken="31bf3856ad364e35" culture="neutral" /> <assemblyIdentity name="WindowsBase" publicKeyToken="31bf3856ad364e35" culture="neutral"/>
<bindingRedirect oldVersion="0.0.0.0-4.0.0.0" newVersion="4.0.0.0" /> <bindingRedirect oldVersion="0.0.0.0-4.0.0.0" newVersion="4.0.0.0"/>
</dependentAssembly> </dependentAssembly>
<dependentAssembly> <dependentAssembly>
<assemblyIdentity name="Newtonsoft.Json" publicKeyToken="30ad4fe6b2a6aeed" culture="neutral" /> <assemblyIdentity name="Newtonsoft.Json" publicKeyToken="30ad4fe6b2a6aeed" culture="neutral"/>
<bindingRedirect oldVersion="0.0.0.0-13.0.0.0" newVersion="13.0.0.0" /> <bindingRedirect oldVersion="0.0.0.0-13.0.0.0" newVersion="13.0.0.0"/>
</dependentAssembly> </dependentAssembly>
<dependentAssembly> <dependentAssembly>
<assemblyIdentity name="Aspose.PDF" publicKeyToken="716fcc553a201e56" culture="neutral" /> <assemblyIdentity name="Aspose.PDF" publicKeyToken="716fcc553a201e56" culture="neutral"/>
<bindingRedirect oldVersion="0.0.0.0-19.3.0.0" newVersion="19.3.0.0" /> <bindingRedirect oldVersion="0.0.0.0-19.3.0.0" newVersion="19.3.0.0"/>
<publisherPolicy apply="no" /> <publisherPolicy apply="no"/>
</dependentAssembly> </dependentAssembly>
<dependentAssembly> <dependentAssembly>
<assemblyIdentity name="Aspose.Imaging" publicKeyToken="716fcc553a201e56" culture="neutral" /> <assemblyIdentity name="Aspose.Imaging" publicKeyToken="716fcc553a201e56" culture="neutral"/>
<bindingRedirect oldVersion="0.0.0.0-19.4.0.0" newVersion="19.4.0.0" /> <bindingRedirect oldVersion="0.0.0.0-19.4.0.0" newVersion="19.4.0.0"/>
<publisherPolicy apply="no" /> <publisherPolicy apply="no"/>
</dependentAssembly> </dependentAssembly>
<dependentAssembly> <dependentAssembly>
<assemblyIdentity name="BouncyCastle.Crypto" publicKeyToken="0e99375e54769942" culture="neutral" /> <assemblyIdentity name="BouncyCastle.Crypto" publicKeyToken="0e99375e54769942" culture="neutral"/>
<bindingRedirect oldVersion="0.0.0.0-1.8.2.0" newVersion="1.8.2.0" /> <bindingRedirect oldVersion="0.0.0.0-1.8.2.0" newVersion="1.8.2.0"/>
</dependentAssembly> </dependentAssembly>
<dependentAssembly> <dependentAssembly>
<assemblyIdentity name="DocumentFormat.OpenXml" publicKeyToken="8fb06cb64d019a17" culture="neutral" /> <assemblyIdentity name="DocumentFormat.OpenXml" publicKeyToken="8fb06cb64d019a17" culture="neutral"/>
<bindingRedirect oldVersion="0.0.0.0-2.7.2.0" newVersion="2.7.2.0" /> <bindingRedirect oldVersion="0.0.0.0-2.7.2.0" newVersion="2.7.2.0"/>
</dependentAssembly> </dependentAssembly>
<dependentAssembly> <dependentAssembly>
<assemblyIdentity name="System.Runtime.CompilerServices.Unsafe" publicKeyToken="b03f5f7f11d50a3a" culture="neutral" /> <assemblyIdentity name="System.Runtime.CompilerServices.Unsafe" publicKeyToken="b03f5f7f11d50a3a" culture="neutral"/>
<bindingRedirect oldVersion="0.0.0.0-6.0.0.0" newVersion="6.0.0.0" /> <bindingRedirect oldVersion="0.0.0.0-6.0.0.0" newVersion="6.0.0.0"/>
</dependentAssembly> </dependentAssembly>
</assemblyBinding> </assemblyBinding>
</runtime> </runtime>

17
Aviso/Aviso.vbproj
View File

@@ -17,7 +17,7 @@
<AssemblyName>AVISO</AssemblyName> <AssemblyName>AVISO</AssemblyName>
<FileAlignment>512</FileAlignment> <FileAlignment>512</FileAlignment>
<MyType>WindowsForms</MyType> <MyType>WindowsForms</MyType>
<TargetFrameworkVersion>v4.7</TargetFrameworkVersion> <TargetFrameworkVersion>v4.8</TargetFrameworkVersion>
<TargetFrameworkProfile> <TargetFrameworkProfile>
</TargetFrameworkProfile> </TargetFrameworkProfile>
<IsWebBootstrapper>false</IsWebBootstrapper> <IsWebBootstrapper>false</IsWebBootstrapper>
@@ -282,17 +282,12 @@
<Reference Include="NumericBox"> <Reference Include="NumericBox">
<HintPath>..\..\..\dll\NumericBox.dll</HintPath> <HintPath>..\..\..\dll\NumericBox.dll</HintPath>
</Reference> </Reference>
<Reference Include="Spire.License, Version=1.4.0.46, Culture=neutral, PublicKeyToken=b1144360237c8b3f, processorArchitecture=MSIL"> <Reference Include="Spire.Pdf">
<SpecificVersion>False</SpecificVersion> <HintPath>..\..\..\dll\Spire.PDF\2024\Spire.Pdf.dll</HintPath>
<HintPath>..\..\..\dll\Spire.PDF\2023\Spire.License.dll</HintPath>
</Reference> </Reference>
<Reference Include="Spire.Pdf, Version=8.1.4.0, Culture=neutral, PublicKeyToken=663f351905198cb3, processorArchitecture=MSIL"> <Reference Include="Spire.PdfViewer.Forms, Version=7.10.3.0, Culture=neutral, PublicKeyToken=663f351905198cb3, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion> <SpecificVersion>False</SpecificVersion>
<HintPath>..\..\..\dll\Spire.PDF\2023\Spire.Pdf.dll</HintPath> <HintPath>..\..\..\dll\Spire.PDF\2024\Spire.PdfViewer.Forms.dll</HintPath>
</Reference>
<Reference Include="Spire.PdfViewer.Forms, Version=7.1.4.0, Culture=neutral, PublicKeyToken=663f351905198cb3, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>..\..\..\dll\Spire.PDF\2023\Spire.PdfViewer.Forms.dll</HintPath>
</Reference> </Reference>
<Reference Include="System" /> <Reference Include="System" />
<Reference Include="System.Buffers, Version=4.0.3.0, Culture=neutral, PublicKeyToken=cc7b13ffcd2ddd51, processorArchitecture=MSIL"> <Reference Include="System.Buffers, Version=4.0.3.0, Culture=neutral, PublicKeyToken=cc7b13ffcd2ddd51, processorArchitecture=MSIL">
@@ -1621,6 +1616,7 @@
<None Include="Resources\memories3.png" /> <None Include="Resources\memories3.png" />
<None Include="Resources\memories4.png" /> <None Include="Resources\memories4.png" />
<None Include="Resources\memories5.png" /> <None Include="Resources\memories5.png" />
<None Include="Resources\license.elic.xml" />
<Content Include="Resources\WLAN\RunNHide.exe"> <Content Include="Resources\WLAN\RunNHide.exe">
<CopyToOutputDirectory>Always</CopyToOutputDirectory> <CopyToOutputDirectory>Always</CopyToOutputDirectory>
</Content> </Content>
@@ -1636,7 +1632,6 @@
<CopyToOutputDirectory>Always</CopyToOutputDirectory> <CopyToOutputDirectory>Always</CopyToOutputDirectory>
</None> </None>
<None Include="Resources\docAllgemein.png" /> <None Include="Resources\docAllgemein.png" />
<None Include="Resources\license.elic.xml" />
<None Include="Resources\scanner.png" /> <None Include="Resources\scanner.png" />
<None Include="Resources\parkplatz.jpg" /> <None Include="Resources\parkplatz.jpg" />
<None Include="Resources\igl.png" /> <None Include="Resources\igl.png" />

6
Aviso/My Project/Application.Designer.vb generated
View File

@@ -34,5 +34,11 @@ Namespace My
Protected Overrides Sub OnCreateMainForm() Protected Overrides Sub OnCreateMainForm()
Me.MainForm = Global.AVISO.frmLogin Me.MainForm = Global.AVISO.frmLogin
End Sub End Sub
<Global.System.Diagnostics.DebuggerStepThroughAttribute()> _
Protected Overrides Function OnInitialize(ByVal commandLineArgs As System.Collections.ObjectModel.ReadOnlyCollection(Of String)) As Boolean
Me.MinimumSplashScreenDisplayTime = 0
Return MyBase.OnInitialize(commandLineArgs)
End Function
End Class End Class
End Namespace End Namespace

10
Aviso/My Project/Resources.Designer.vb generated
View File

@@ -958,6 +958,16 @@ Namespace My.Resources
End Get End Get
End Property End Property
'''<summary>
''' Sucht eine lokalisierte Zeichenfolge, die &lt;?xml version=&quot;1.0&quot; encoding=&quot;utf-8&quot; standalone=&quot;yes&quot;?&gt;
'''&lt;License Key=&quot;PeQezZrFLTMrIgEAK1BoHk0gh6gdmwDKMvN6ITlC5j6D/r6sSq/TXAl5H/H/P/NvV74UnH1KUt0Cy0ef1LzPpvmqxVTsiTYA2eB3CX21oTggkxa3qP/UOJ42Kk8rwgVqchV9RJj9SlZb/zzhfN3nB4NR9rfoiwRDoE45ECcmsCO948+auxqRrc1ikuFDIM2j2YpwzoFxw3QCtLNAjhWhA8Ly7HUCNbtibu6rOnuePVThtmVNfQeTuagFSCDovxIJzlvFggZaQXI7zh3PEChu65zP7VZoJyxzfagJv5JItQCrX8BP+5YgKe6B7NBzUFGl1RqcucKn+MAQypgXrRXQY4UAWfQ4g9QTN2JTpaHZfgg22sGGV+cccDJmekfUPGfBOzlnzedJelMNWDVNBw7prh8vTdNRsOTJoFYDbh82UwRNkXethAElaJ9apM [Rest der Zeichenfolge wurde abgeschnitten]&quot;; ähnelt.
'''</summary>
Public ReadOnly Property license_elic() As String
Get
Return ResourceManager.GetString("license_elic", resourceCulture)
End Get
End Property
'''<summary> '''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary> '''</summary>

3
Aviso/My Project/Resources.resx
View File

@@ -691,4 +691,7 @@
<data name="memories5" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="memories5" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\memories5.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\memories5.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="license_elic" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\license.elic.xml;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;Windows-1252</value>
</data>
</root> </root>

2
Aviso/My Project/Settings.Designer.vb generated
View File

@@ -15,7 +15,7 @@ Option Explicit On
Namespace My Namespace My
<Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _ <Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "17.6.0.0"), _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "17.8.0.0"), _
Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _ Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Partial Friend NotInheritable Class MySettings Partial Friend NotInheritable Class MySettings
Inherits Global.System.Configuration.ApplicationSettingsBase Inherits Global.System.Configuration.ApplicationSettingsBase

21
Aviso/My Project/license.elic.xml
View File

@@ -1,24 +1,27 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8" standalone="yes"?>
<License xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" Key="VnC5RCG4D4FSAQDEbg3Kdj15nhXcvWOrTv8UeDCLZCzJSH+iHRyhOBROr34M8sjY37YZn2WOkOlU7rHuVTImvolW+DrGwG+ozoBGhMVv1gemeCXPlLGbPL6cdC+cgfueF6VzuZ/mdE2bgS/6iAlMyT9PGl0l9fkzNAGkAbQWkfgc3oTWlxzk6mS37yfDkl5qjEHiyj8rcrtXnJYoZkQQvUaNdyegN3HhoZkFI3Wn5fmrwKKWaEvU39fRMF3bRShV4ghjUlnqMwjw0MHjQRQ1Q4q2g5j4FWzThumXAHLviPQja5E0YU6PEBMGTkrmFnjt1WeZbThVp5K47OHXtaoUzvZKsupVIrxGyO5zIghuwghmz9s2doE8wb5FhB3jgYr8cDgwG92u/vXIDXSkcWBpXjrYjLmC6R2bA3KsPW34ilUfad74RrLkt03dW9tnSaDI/5PEodfcqdgq2uULKsotC7iq7vIskCyyB7ZvpugwKtkrlM7Zr+b0Nw+r6L3CQMuUI3LwbYUc7S6mjPsDshBbRmmQ84okHjhBAkdxH5AwXCFSxCAQUMgnEtxwyT8NyoaDuktZQUBiZvfJnEj1Jk0y2raQf0nNP1xIkODCmnedmOqBNYMmN3intWHWhwd3bWq0bhofq3bF8cSSSqr4IKkMaITnv1VwWFc6NAHX/kAtrw/ax6TlziwYgDsv4nSKWpT5Hij23Inmf/6TZ1xw6Fxgc2afOqdxkmdCFEzjT4iDctnmFEUhyuRAOezJmNkmBRqalBMO4RNxntUO61e/rhg/rUcOg3PcT4UHX1AFuBEnVAk5P24MtURYWN4p3DaPbJ+KKY/WhPZeLJwOR9eF7LRrZBH4U9Ur1mke2aD9q0z3uA8hZcTiWVjwJLovshUgIlOf3nPK6+EEpIu9xgy5EXZRBdRzPp2ZDZdAd4/r81YilJs0CXyOC9iCouoC5zrluu3gl9yX2bmAO0rvscYkVpkoO2/Byb5BFzqvs4KO+iSgstQ7vbKtbFvkYiT5Yytf7Ucz4L8Y7a2Y8JP4qL5pDji/+0Q/TbDH03B36MgBFk2xgfgH72DQScvt8OqaA6lx+OPbOOLh/5spYMNTJvElRoAvF7jlBgwYJF+Baz86A8ijMhb8DeFqVvQkqbrHDl6G0JFQuU2YNK6v0bGMa45POCHKF2MLElYFEgecgck/9LrEmeEJ7+kBTwkuTQpzF6pFDy/i5pdjP1Q5+uxzsZVwi/4brVfMdFdsdHFiTB44V/0x4hOHRVK2/TQSWltroZKH2I4Awy4PLLxnL7mpqME3cl1hX+xfCmqSxs+VcuN0YaEaN28UR8LyFd2Xt8ZcQVZDuoxW19uCTZKPr22Ow28JXN9UfQkOTZo9dGIFS3Uc+Bkif9xCfarSARaDDtzvG4CgqMiPHc5OH4wGsop4eCTU1Hqcia5/xxTL5KSPCLm5d/VZhn+4a7D47f4EQ+ur1zssJABKIIn0O+LWIY/OY3y8mPub+DrRr2932Fi1t6vJIClie1HWmOeNzJJdH9E2lJML4OOmqnQC2gesCGe++eOZJs5ObZmRYnmcpU18OAwOjVGlQAsgExMI0LFpSuc1OLBYA6lCf1Gp07rfTvpyZ90ZzwmTFZTjDULKx42kgpno2QlCGkLEtEq6xKjnqLGaWzbd5Mpc1j1B034fjcU5pRlvN9dBEjJGleE9tpoHFDmHj8nPKgEok68uSOX6qHoy/Xnxu/xPvkLTNppjzAPDVAKG2RmSgNNErouNdHd1n1jqy5YZTU8u6Ayqli6KYVYN6CMk9kllJTAIHe7OKqGYZgHDA5vTgbxThfJgCy24" Version="1.3"> <License Key="PeQezZrFLTMrIgEAK1BoHk0gh6gdmwDKMvN6ITlC5j6D/r6sSq/TXAl5H/H/P/NvV74UnH1KUt0Cy0ef1LzPpvmqxVTsiTYA2eB3CX21oTggkxa3qP/UOJ42Kk8rwgVqchV9RJj9SlZb/zzhfN3nB4NR9rfoiwRDoE45ECcmsCO948+auxqRrc1ikuFDIM2j2YpwzoFxw3QCtLNAjhWhA8Ly7HUCNbtibu6rOnuePVThtmVNfQeTuagFSCDovxIJzlvFggZaQXI7zh3PEChu65zP7VZoJyxzfagJv5JItQCrX8BP+5YgKe6B7NBzUFGl1RqcucKn+MAQypgXrRXQY4UAWfQ4g9QTN2JTpaHZfgg22sGGV+cccDJmekfUPGfBOzlnzedJelMNWDVNBw7prh8vTdNRsOTJoFYDbh82UwRNkXethAElaJ9apMQaEg2G7cDaQzVdmY9N6oMVZ+dDZ9Vet12GAvrD5akRHviXNhXis0W/WaaifHmbgfIO7zx35qNxRQ5mwouVh/byBw7sXBjtKwpJxulpVy0FNWSeSC4sskGn9+GO+inUrurRxX8EBEDBK0ev/558sYBQ4HloBvmWDX58ni7F0xv/1BdsvW2M+viIP4DATVUVoGh+lskcoBt2Z8g/Fxib/mBpQLmvg1fasZjscdfIyZBFJ57AtcNr9cT4oC2zn+ZodXXHYACD6+AFL3d0P1v/P3Bw5giOZpdeRmnlm9mD+OEXFWOgi+lfwF2S9IYcB+LrdckNiaRhserlEE6crn6HRquPQoqzo7J+nR63anp/HfJ3+n3RWVdSg+cJ13yPyMUhgQebsvcm+/bDCWaXc9+5THRJ6aAVoBE4hZ1eHdl1ukzuXiEJJ7GG2vk2MMcy9adKZyVATxSKuBeK1FYLF/62lZC0aoh4WV70Bth9MVWbLLKmZe3KttBYOtRpXvj1zk36RBubnLuSXp3aW7lJGwrHzMvaMGlYHmq1PUwgTLmL0d2p4FP9qSXHlAtRH8/O0AMsLHrLDe/4sNHkHqy+A8YM09t1adSnxOhoDyOb41zyvjsQ635gWYvOBimN0iEyVg3dEC7g5PZkAhIahBDz1qa4+GkluYvtmrafKZc/55KbYBZ23k+In8Qfabym0v7YWSpZ+/vwE2jNRupmL/6M0YnZUQolyFzBVqCdt40NYnnMD9o9I49XjB/8dWicpD2G60vIN4XvRc9/LG0elTqFiZkD9JLMGw+1fb0EwBb5XdGy68IHPoOFpXMcVFPHeBX45r7gZnaGAB11LhJiflSKnDd8unLrHUJJJvkPHyN5HWLrSAvcmJFS4JaHM7tHQorHF3xRYWHbGLWvGRtjfO43UlGhwklrH5rs4bop5R6m0eT/5eS/rbIoofUYQMEYexzGZwXAgNA6Sal7luN7Iqx7l4ykVrIwUAeLspfvsGT/aFDKBo77VQfPubHg/N7zd+wacmagI/7HznVCGkTApEcTrkade2cpsWGQa0sIrEDqt7s/1ZrwdqIQwgJ3rMnNGZ6ljV/FOT9OdVkkCKHkJrAwDlf2ssBbOvlHqxVz5x30mMkIQPZvSVFxSL2IKfx+FJ1VoQ==" Version="1.3">
<SerialNumber>B081D0F5-EF94-42F2-B287-4812D84164CE</SerialNumber>
<Type>Runtime</Type> <Type>Runtime</Type>
<Username>VERAG Spedition AG</Username> <Username>VERAG Spedition AG</Username>
<Email>al@verag.ag</Email> <Email>al@verag.ag</Email>
<Organization>VERAG Spedition AG</Organization> <Organization>VERAG Spedition AG</Organization>
<LicensedDate>2022-07-12T00:00:00Z</LicensedDate> <LicensedDate>2024-08-31T00:00:00Z</LicensedDate>
<ExpiredDate>2023-07-12T00:00:00Z</ExpiredDate> <ExpiredDate>2025-08-31T00:00:00Z</ExpiredDate>
<Products> <Products>
<Product> <Product>
<Name>Spire.PDFViewer for Forms</Name> <Name>Spire.PDF Pro Edition</Name>
<Version>7.1</Version> <Version>10.7</Version>
<Subscription> <Subscription>
<Name>Developer Subscription</Name>
<NumberOfPermittedDeveloper>1</NumberOfPermittedDeveloper> <NumberOfPermittedDeveloper>1</NumberOfPermittedDeveloper>
<NumberOfPermittedSite>1</NumberOfPermittedSite> <NumberOfPermittedSite>1</NumberOfPermittedSite>
</Subscription> </Subscription>
</Product> </Product>
<Product> <Product>
<Name>Spire.PDF Pro Edition</Name> <Name>Spire.PDFViewer for Forms</Name>
<Version>8.7</Version> <Version>7.12</Version>
<Subscription> <Subscription>
<Name>Developer Subscription</Name>
<NumberOfPermittedDeveloper>1</NumberOfPermittedDeveloper> <NumberOfPermittedDeveloper>1</NumberOfPermittedDeveloper>
<NumberOfPermittedSite>1</NumberOfPermittedSite> <NumberOfPermittedSite>1</NumberOfPermittedSite>
</Subscription> </Subscription>
@@ -29,4 +32,4 @@
<Email>sales@e-iceblue.com</Email> <Email>sales@e-iceblue.com</Email>
<Url>http://www.e-iceblue.com</Url> <Url>http://www.e-iceblue.com</Url>
</Issuer> </Issuer>
</License> </License>

21
Aviso/Resources/license.elic.xml
View File

@@ -1,24 +1,27 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8" standalone="yes"?>
<License xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" Key="VnC5RCG4D4FSAQDEbg3Kdj15nhXcvWOrTv8UeDCLZCzJSH+iHRyhOBROr34M8sjY37YZn2WOkOlU7rHuVTImvolW+DrGwG+ozoBGhMVv1gemeCXPlLGbPL6cdC+cgfueF6VzuZ/mdE2bgS/6iAlMyT9PGl0l9fkzNAGkAbQWkfgc3oTWlxzk6mS37yfDkl5qjEHiyj8rcrtXnJYoZkQQvUaNdyegN3HhoZkFI3Wn5fmrwKKWaEvU39fRMF3bRShV4ghjUlnqMwjw0MHjQRQ1Q4q2g5j4FWzThumXAHLviPQja5E0YU6PEBMGTkrmFnjt1WeZbThVp5K47OHXtaoUzvZKsupVIrxGyO5zIghuwghmz9s2doE8wb5FhB3jgYr8cDgwG92u/vXIDXSkcWBpXjrYjLmC6R2bA3KsPW34ilUfad74RrLkt03dW9tnSaDI/5PEodfcqdgq2uULKsotC7iq7vIskCyyB7ZvpugwKtkrlM7Zr+b0Nw+r6L3CQMuUI3LwbYUc7S6mjPsDshBbRmmQ84okHjhBAkdxH5AwXCFSxCAQUMgnEtxwyT8NyoaDuktZQUBiZvfJnEj1Jk0y2raQf0nNP1xIkODCmnedmOqBNYMmN3intWHWhwd3bWq0bhofq3bF8cSSSqr4IKkMaITnv1VwWFc6NAHX/kAtrw/ax6TlziwYgDsv4nSKWpT5Hij23Inmf/6TZ1xw6Fxgc2afOqdxkmdCFEzjT4iDctnmFEUhyuRAOezJmNkmBRqalBMO4RNxntUO61e/rhg/rUcOg3PcT4UHX1AFuBEnVAk5P24MtURYWN4p3DaPbJ+KKY/WhPZeLJwOR9eF7LRrZBH4U9Ur1mke2aD9q0z3uA8hZcTiWVjwJLovshUgIlOf3nPK6+EEpIu9xgy5EXZRBdRzPp2ZDZdAd4/r81YilJs0CXyOC9iCouoC5zrluu3gl9yX2bmAO0rvscYkVpkoO2/Byb5BFzqvs4KO+iSgstQ7vbKtbFvkYiT5Yytf7Ucz4L8Y7a2Y8JP4qL5pDji/+0Q/TbDH03B36MgBFk2xgfgH72DQScvt8OqaA6lx+OPbOOLh/5spYMNTJvElRoAvF7jlBgwYJF+Baz86A8ijMhb8DeFqVvQkqbrHDl6G0JFQuU2YNK6v0bGMa45POCHKF2MLElYFEgecgck/9LrEmeEJ7+kBTwkuTQpzF6pFDy/i5pdjP1Q5+uxzsZVwi/4brVfMdFdsdHFiTB44V/0x4hOHRVK2/TQSWltroZKH2I4Awy4PLLxnL7mpqME3cl1hX+xfCmqSxs+VcuN0YaEaN28UR8LyFd2Xt8ZcQVZDuoxW19uCTZKPr22Ow28JXN9UfQkOTZo9dGIFS3Uc+Bkif9xCfarSARaDDtzvG4CgqMiPHc5OH4wGsop4eCTU1Hqcia5/xxTL5KSPCLm5d/VZhn+4a7D47f4EQ+ur1zssJABKIIn0O+LWIY/OY3y8mPub+DrRr2932Fi1t6vJIClie1HWmOeNzJJdH9E2lJML4OOmqnQC2gesCGe++eOZJs5ObZmRYnmcpU18OAwOjVGlQAsgExMI0LFpSuc1OLBYA6lCf1Gp07rfTvpyZ90ZzwmTFZTjDULKx42kgpno2QlCGkLEtEq6xKjnqLGaWzbd5Mpc1j1B034fjcU5pRlvN9dBEjJGleE9tpoHFDmHj8nPKgEok68uSOX6qHoy/Xnxu/xPvkLTNppjzAPDVAKG2RmSgNNErouNdHd1n1jqy5YZTU8u6Ayqli6KYVYN6CMk9kllJTAIHe7OKqGYZgHDA5vTgbxThfJgCy24" Version="1.3"> <License Key="PeQezZrFLTMrIgEAK1BoHk0gh6gdmwDKMvN6ITlC5j6D/r6sSq/TXAl5H/H/P/NvV74UnH1KUt0Cy0ef1LzPpvmqxVTsiTYA2eB3CX21oTggkxa3qP/UOJ42Kk8rwgVqchV9RJj9SlZb/zzhfN3nB4NR9rfoiwRDoE45ECcmsCO948+auxqRrc1ikuFDIM2j2YpwzoFxw3QCtLNAjhWhA8Ly7HUCNbtibu6rOnuePVThtmVNfQeTuagFSCDovxIJzlvFggZaQXI7zh3PEChu65zP7VZoJyxzfagJv5JItQCrX8BP+5YgKe6B7NBzUFGl1RqcucKn+MAQypgXrRXQY4UAWfQ4g9QTN2JTpaHZfgg22sGGV+cccDJmekfUPGfBOzlnzedJelMNWDVNBw7prh8vTdNRsOTJoFYDbh82UwRNkXethAElaJ9apMQaEg2G7cDaQzVdmY9N6oMVZ+dDZ9Vet12GAvrD5akRHviXNhXis0W/WaaifHmbgfIO7zx35qNxRQ5mwouVh/byBw7sXBjtKwpJxulpVy0FNWSeSC4sskGn9+GO+inUrurRxX8EBEDBK0ev/558sYBQ4HloBvmWDX58ni7F0xv/1BdsvW2M+viIP4DATVUVoGh+lskcoBt2Z8g/Fxib/mBpQLmvg1fasZjscdfIyZBFJ57AtcNr9cT4oC2zn+ZodXXHYACD6+AFL3d0P1v/P3Bw5giOZpdeRmnlm9mD+OEXFWOgi+lfwF2S9IYcB+LrdckNiaRhserlEE6crn6HRquPQoqzo7J+nR63anp/HfJ3+n3RWVdSg+cJ13yPyMUhgQebsvcm+/bDCWaXc9+5THRJ6aAVoBE4hZ1eHdl1ukzuXiEJJ7GG2vk2MMcy9adKZyVATxSKuBeK1FYLF/62lZC0aoh4WV70Bth9MVWbLLKmZe3KttBYOtRpXvj1zk36RBubnLuSXp3aW7lJGwrHzMvaMGlYHmq1PUwgTLmL0d2p4FP9qSXHlAtRH8/O0AMsLHrLDe/4sNHkHqy+A8YM09t1adSnxOhoDyOb41zyvjsQ635gWYvOBimN0iEyVg3dEC7g5PZkAhIahBDz1qa4+GkluYvtmrafKZc/55KbYBZ23k+In8Qfabym0v7YWSpZ+/vwE2jNRupmL/6M0YnZUQolyFzBVqCdt40NYnnMD9o9I49XjB/8dWicpD2G60vIN4XvRc9/LG0elTqFiZkD9JLMGw+1fb0EwBb5XdGy68IHPoOFpXMcVFPHeBX45r7gZnaGAB11LhJiflSKnDd8unLrHUJJJvkPHyN5HWLrSAvcmJFS4JaHM7tHQorHF3xRYWHbGLWvGRtjfO43UlGhwklrH5rs4bop5R6m0eT/5eS/rbIoofUYQMEYexzGZwXAgNA6Sal7luN7Iqx7l4ykVrIwUAeLspfvsGT/aFDKBo77VQfPubHg/N7zd+wacmagI/7HznVCGkTApEcTrkade2cpsWGQa0sIrEDqt7s/1ZrwdqIQwgJ3rMnNGZ6ljV/FOT9OdVkkCKHkJrAwDlf2ssBbOvlHqxVz5x30mMkIQPZvSVFxSL2IKfx+FJ1VoQ==" Version="1.3">
<SerialNumber>B081D0F5-EF94-42F2-B287-4812D84164CE</SerialNumber>
<Type>Runtime</Type> <Type>Runtime</Type>
<Username>VERAG Spedition AG</Username> <Username>VERAG Spedition AG</Username>
<Email>al@verag.ag</Email> <Email>al@verag.ag</Email>
<Organization>VERAG Spedition AG</Organization> <Organization>VERAG Spedition AG</Organization>
<LicensedDate>2022-07-12T00:00:00Z</LicensedDate> <LicensedDate>2024-08-31T00:00:00Z</LicensedDate>
<ExpiredDate>2023-07-12T00:00:00Z</ExpiredDate> <ExpiredDate>2025-08-31T00:00:00Z</ExpiredDate>
<Products> <Products>
<Product> <Product>
<Name>Spire.PDFViewer for Forms</Name> <Name>Spire.PDF Pro Edition</Name>
<Version>7.1</Version> <Version>10.7</Version>
<Subscription> <Subscription>
<Name>Developer Subscription</Name>
<NumberOfPermittedDeveloper>1</NumberOfPermittedDeveloper> <NumberOfPermittedDeveloper>1</NumberOfPermittedDeveloper>
<NumberOfPermittedSite>1</NumberOfPermittedSite> <NumberOfPermittedSite>1</NumberOfPermittedSite>
</Subscription> </Subscription>
</Product> </Product>
<Product> <Product>
<Name>Spire.PDF Pro Edition</Name> <Name>Spire.PDFViewer for Forms</Name>
<Version>8.7</Version> <Version>7.12</Version>
<Subscription> <Subscription>
<Name>Developer Subscription</Name>
<NumberOfPermittedDeveloper>1</NumberOfPermittedDeveloper> <NumberOfPermittedDeveloper>1</NumberOfPermittedDeveloper>
<NumberOfPermittedSite>1</NumberOfPermittedSite> <NumberOfPermittedSite>1</NumberOfPermittedSite>
</Subscription> </Subscription>
@@ -29,4 +32,4 @@
<Email>sales@e-iceblue.com</Email> <Email>sales@e-iceblue.com</Email>
<Url>http://www.e-iceblue.com</Url> <Url>http://www.e-iceblue.com</Url>
</Issuer> </Issuer>
</License> </License>

2
Aviso/frmLogin.vb
View File

@@ -62,6 +62,8 @@ Public Class frmLogin
lblVersion.ContextMenuStrip = ctxUpdate lblVersion.ContextMenuStrip = ctxUpdate
If Application.ProductVersion.StartsWith("0") Then lblVersion.Text += " BETA" If Application.ProductVersion.StartsWith("0") Then lblVersion.Text += " BETA"
VERAG_PROG_ALLGEMEIN.cProgramFunctions.spireLoadLicense()
Dim pfadDatei As String = Application.StartupPath & "\Standort.txt" Dim pfadDatei As String = Application.StartupPath & "\Standort.txt"
firma = "VERAG" firma = "VERAG"

4
Aviso/packages.config
View File

@@ -7,7 +7,7 @@
<package id="Common.Logging" version="3.4.1" targetFramework="net47" /> <package id="Common.Logging" version="3.4.1" targetFramework="net47" />
<package id="Common.Logging.Core" version="3.4.1" targetFramework="net47" /> <package id="Common.Logging.Core" version="3.4.1" targetFramework="net47" />
<package id="DocumentFormat.OpenXml" version="2.7.2" targetFramework="net47" /> <package id="DocumentFormat.OpenXml" version="2.7.2" targetFramework="net47" />
<package id="EAGetMail" version="5.3.5" targetFramework="net47" /> <package id="EAGetMail" version="5.3.5" targetFramework="net47" requireReinstallation="true" />
<package id="esendex-dotnet-sdk" version="3.8.0" targetFramework="net47" /> <package id="esendex-dotnet-sdk" version="3.8.0" targetFramework="net47" />
<package id="GrapeCity.Documents.Common" version="2.2.0.315" targetFramework="net461" /> <package id="GrapeCity.Documents.Common" version="2.2.0.315" targetFramework="net461" />
<package id="GrapeCity.Documents.Imaging" version="2.2.0.315" targetFramework="net461" /> <package id="GrapeCity.Documents.Imaging" version="2.2.0.315" targetFramework="net461" />
@@ -28,5 +28,5 @@
<package id="System.Security.Cryptography.Pkcs" version="8.0.0" targetFramework="net47" /> <package id="System.Security.Cryptography.Pkcs" version="8.0.0" targetFramework="net47" />
<package id="System.Text.Encoding.CodePages" version="8.0.0" targetFramework="net47" /> <package id="System.Text.Encoding.CodePages" version="8.0.0" targetFramework="net47" />
<package id="System.Threading.Tasks.Extensions" version="4.5.2" targetFramework="net47" /> <package id="System.Threading.Tasks.Extensions" version="4.5.2" targetFramework="net47" />
<package id="System.ValueTuple" version="4.5.0" targetFramework="net461" /> <package id="System.ValueTuple" version="4.5.0" targetFramework="net461" requireReinstallation="true" />
</packages> </packages>

2
Gemeinsames/App.config
View File

@@ -1,6 +1,6 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<configuration> <configuration>
<startup> <startup>
<supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.7"/> <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.8"/>
</startup> </startup>
</configuration> </configuration>

3
Gemeinsames/Gemeinsames.vbproj
View File

@@ -14,7 +14,7 @@
<AssemblyName>Gemeinsames</AssemblyName> <AssemblyName>Gemeinsames</AssemblyName>
<FileAlignment>512</FileAlignment> <FileAlignment>512</FileAlignment>
<MyType>Windows</MyType> <MyType>Windows</MyType>
<TargetFrameworkVersion>v4.7</TargetFrameworkVersion> <TargetFrameworkVersion>v4.8</TargetFrameworkVersion>
<TargetFrameworkProfile> <TargetFrameworkProfile>
</TargetFrameworkProfile> </TargetFrameworkProfile>
<IsWebBootstrapper>false</IsWebBootstrapper> <IsWebBootstrapper>false</IsWebBootstrapper>
@@ -160,6 +160,7 @@
<Compile Include="My Project\Application.Designer.vb"> <Compile Include="My Project\Application.Designer.vb">
<AutoGen>True</AutoGen> <AutoGen>True</AutoGen>
<DependentUpon>Application.myapp</DependentUpon> <DependentUpon>Application.myapp</DependentUpon>
<DesignTime>True</DesignTime>
</Compile> </Compile>
<Compile Include="My Project\Resources.Designer.vb"> <Compile Include="My Project\Resources.Designer.vb">
<AutoGen>True</AutoGen> <AutoGen>True</AutoGen>

2
Gemeinsames/My Project/Settings.Designer.vb generated
View File

@@ -15,7 +15,7 @@ Option Explicit On
Namespace My Namespace My
<Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _ <Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "15.9.0.0"), _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "17.8.0.0"), _
Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _ Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Partial Friend NotInheritable Class MySettings Partial Friend NotInheritable Class MySettings
Inherits Global.System.Configuration.ApplicationSettingsBase Inherits Global.System.Configuration.ApplicationSettingsBase