Imports System.Windows.Forms Partial Class Form1 Inherits System.Windows.Forms.Form 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. Protected Overrides Sub Dispose(ByVal disposing As Boolean) Try If disposing AndAlso components IsNot Nothing Then components.Dispose() End If Finally MyBase.Dispose(disposing) End Try End Sub 'Wird vom Windows Form-Designer benötigt. Private components As System.ComponentModel.IContainer 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. 'Das Bearbeiten ist mit dem Windows Form-Designer möglich. 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. Private Sub InitializeComponent() OpenFileDialog1 = New OpenFileDialog() btRunJob = New Button() ListBox1 = New ListBox() btValidateSerializePDF = New Button() btValidateSerializeParseProps = New Button() btCreateMD5Checksum = New Button() GroupBox1 = New GroupBox() ButtonValidateXMLOnly = New Button() GroupBox2 = New GroupBox() btExtractPDFAttachments = New Button() GroupBox3 = New GroupBox() txtMD5Checksum = New TextBox() txtPropName = New TextBox() GroupBox4 = New GroupBox() btFindExtractXMLValue = New Button() FolderBrowserDialog1 = New FolderBrowserDialog() GroupBox5 = New GroupBox() btWriteBinary = New Button() OpenFileDialog2 = New OpenFileDialog() Button1 = New Button() Button2 = New Button() GroupBox1.SuspendLayout() GroupBox2.SuspendLayout() GroupBox3.SuspendLayout() GroupBox4.SuspendLayout() GroupBox5.SuspendLayout() SuspendLayout() ' ' OpenFileDialog1 ' OpenFileDialog1.FileName = "OpenFileDialog1" ' ' btRunJob ' btRunJob.Location = New System.Drawing.Point(8, 29) btRunJob.Margin = New Padding(4, 5, 4, 5) btRunJob.Name = "btRunJob" btRunJob.Size = New System.Drawing.Size(295, 35) btRunJob.TabIndex = 0 btRunJob.Text = "Run Job" btRunJob.UseVisualStyleBackColor = True ' ' ListBox1 ' ListBox1.Anchor = AnchorStyles.Top Or AnchorStyles.Bottom Or AnchorStyles.Left Or AnchorStyles.Right ListBox1.FormattingEnabled = True ListBox1.Location = New System.Drawing.Point(504, 12) ListBox1.Margin = New Padding(4, 5, 4, 5) ListBox1.Name = "ListBox1" ListBox1.Size = New System.Drawing.Size(362, 664) ListBox1.TabIndex = 1 ' ' btValidateSerializePDF ' btValidateSerializePDF.Location = New System.Drawing.Point(8, 29) btValidateSerializePDF.Margin = New Padding(4, 5, 4, 5) btValidateSerializePDF.Name = "btValidateSerializePDF" btValidateSerializePDF.Size = New System.Drawing.Size(328, 35) btValidateSerializePDF.TabIndex = 2 btValidateSerializePDF.Text = "Validate and Serialize PDF" btValidateSerializePDF.UseVisualStyleBackColor = True ' ' btValidateSerializeParseProps ' btValidateSerializeParseProps.Location = New System.Drawing.Point(8, 74) btValidateSerializeParseProps.Margin = New Padding(4, 5, 4, 5) btValidateSerializeParseProps.Name = "btValidateSerializeParseProps" btValidateSerializeParseProps.Size = New System.Drawing.Size(328, 35) btValidateSerializeParseProps.TabIndex = 3 btValidateSerializeParseProps.Text = "Validate and Serialize PDF and Parse Props" btValidateSerializeParseProps.UseVisualStyleBackColor = True ' ' btCreateMD5Checksum ' btCreateMD5Checksum.Location = New System.Drawing.Point(8, 29) btCreateMD5Checksum.Margin = New Padding(4, 5, 4, 5) btCreateMD5Checksum.Name = "btCreateMD5Checksum" btCreateMD5Checksum.Size = New System.Drawing.Size(295, 35) btCreateMD5Checksum.TabIndex = 4 btCreateMD5Checksum.Text = "Create MD5 Checksum for PDF" btCreateMD5Checksum.UseVisualStyleBackColor = True ' ' GroupBox1 ' GroupBox1.Controls.Add(ButtonValidateXMLOnly) GroupBox1.Controls.Add(btRunJob) GroupBox1.Location = New System.Drawing.Point(16, 18) GroupBox1.Margin = New Padding(4, 5, 4, 5) GroupBox1.Name = "GroupBox1" GroupBox1.Padding = New Padding(4, 5, 4, 5) GroupBox1.Size = New System.Drawing.Size(319, 116) GroupBox1.TabIndex = 7 GroupBox1.TabStop = False GroupBox1.Text = "Run Job like in eInvoice Service" ' ' ButtonValidateXMLOnly ' ButtonValidateXMLOnly.Location = New System.Drawing.Point(8, 74) ButtonValidateXMLOnly.Margin = New Padding(4, 5, 4, 5) ButtonValidateXMLOnly.Name = "ButtonValidateXMLOnly" ButtonValidateXMLOnly.Size = New System.Drawing.Size(295, 35) ButtonValidateXMLOnly.TabIndex = 4 ButtonValidateXMLOnly.Text = "Run XML Job (spez. Configuration)" ButtonValidateXMLOnly.UseVisualStyleBackColor = True ' ' GroupBox2 ' GroupBox2.Controls.Add(btValidateSerializePDF) GroupBox2.Controls.Add(btExtractPDFAttachments) GroupBox2.Controls.Add(btValidateSerializeParseProps) GroupBox2.Location = New System.Drawing.Point(16, 144) GroupBox2.Margin = New Padding(4, 5, 4, 5) GroupBox2.Name = "GroupBox2" GroupBox2.Padding = New Padding(4, 5, 4, 5) GroupBox2.Size = New System.Drawing.Size(480, 167) GroupBox2.TabIndex = 8 GroupBox2.TabStop = False GroupBox2.Text = "Run Functions on a single file (needs Breakpoint)" ' ' btExtractPDFAttachments ' btExtractPDFAttachments.Location = New System.Drawing.Point(8, 118) btExtractPDFAttachments.Margin = New Padding(4, 5, 4, 5) btExtractPDFAttachments.Name = "btExtractPDFAttachments" btExtractPDFAttachments.Size = New System.Drawing.Size(328, 35) btExtractPDFAttachments.TabIndex = 3 btExtractPDFAttachments.Text = "Extract PDF Attachments" btExtractPDFAttachments.UseVisualStyleBackColor = True ' ' GroupBox3 ' GroupBox3.Controls.Add(btCreateMD5Checksum) GroupBox3.Controls.Add(txtMD5Checksum) GroupBox3.Location = New System.Drawing.Point(16, 321) GroupBox3.Margin = New Padding(4, 5, 4, 5) GroupBox3.Name = "GroupBox3" GroupBox3.Padding = New Padding(4, 5, 4, 5) GroupBox3.Size = New System.Drawing.Size(480, 131) GroupBox3.TabIndex = 9 GroupBox3.TabStop = False GroupBox3.Text = "Open PDF and calculate Checksum" ' ' txtMD5Checksum ' txtMD5Checksum.Location = New System.Drawing.Point(8, 75) txtMD5Checksum.Margin = New Padding(4, 5, 4, 5) txtMD5Checksum.Name = "txtMD5Checksum" txtMD5Checksum.Size = New System.Drawing.Size(463, 27) txtMD5Checksum.TabIndex = 5 ' ' txtPropName ' txtPropName.Location = New System.Drawing.Point(8, 74) txtPropName.Margin = New Padding(4, 5, 4, 5) txtPropName.Name = "txtPropName" txtPropName.Size = New System.Drawing.Size(463, 27) txtPropName.TabIndex = 10 ' ' GroupBox4 ' GroupBox4.Controls.Add(btFindExtractXMLValue) GroupBox4.Controls.Add(txtPropName) GroupBox4.Location = New System.Drawing.Point(16, 462) GroupBox4.Margin = New Padding(4, 5, 4, 5) GroupBox4.Name = "GroupBox4" GroupBox4.Padding = New Padding(4, 5, 4, 5) GroupBox4.Size = New System.Drawing.Size(480, 117) GroupBox4.TabIndex = 11 GroupBox4.TabStop = False GroupBox4.Text = "GroupBox4" ' ' btFindExtractXMLValue ' btFindExtractXMLValue.Location = New System.Drawing.Point(8, 29) btFindExtractXMLValue.Margin = New Padding(4, 5, 4, 5) btFindExtractXMLValue.Name = "btFindExtractXMLValue" btFindExtractXMLValue.Size = New System.Drawing.Size(295, 35) btFindExtractXMLValue.TabIndex = 11 btFindExtractXMLValue.Text = "Find and Extract XML Path Value" btFindExtractXMLValue.UseVisualStyleBackColor = True ' ' GroupBox5 ' GroupBox5.Controls.Add(btWriteBinary) GroupBox5.Location = New System.Drawing.Point(13, 589) GroupBox5.Margin = New Padding(4, 5, 4, 5) GroupBox5.Name = "GroupBox5" GroupBox5.Padding = New Padding(4, 5, 4, 5) GroupBox5.Size = New System.Drawing.Size(480, 87) GroupBox5.TabIndex = 12 GroupBox5.TabStop = False GroupBox5.Text = "GroupBox5" ' ' btWriteBinary ' btWriteBinary.Location = New System.Drawing.Point(8, 29) btWriteBinary.Margin = New Padding(4, 5, 4, 5) btWriteBinary.Name = "btWriteBinary" btWriteBinary.Size = New System.Drawing.Size(295, 35) btWriteBinary.TabIndex = 11 btWriteBinary.Text = "Write Binary to PDF" btWriteBinary.UseVisualStyleBackColor = True ' ' OpenFileDialog2 ' OpenFileDialog2.FileName = "OpenFileDialog2" OpenFileDialog2.Filter = "XML files (*.xml)|*.xml" ' ' Button1 ' Button1.Location = New System.Drawing.Point(361, 47) Button1.Name = "Button1" Button1.Size = New System.Drawing.Size(94, 29) Button1.TabIndex = 5 Button1.Text = "Log Folder" Button1.UseVisualStyleBackColor = True ' ' Button2 ' Button2.Location = New System.Drawing.Point(361, 82) Button2.Name = "Button2" Button2.Size = New System.Drawing.Size(94, 29) Button2.TabIndex = 13 Button2.Text = "AppFolder" Button2.UseVisualStyleBackColor = True ' ' Form1 ' AutoScaleDimensions = New System.Drawing.SizeF(8F, 20F) AutoScaleMode = AutoScaleMode.Font ClientSize = New System.Drawing.Size(879, 690) Controls.Add(Button2) Controls.Add(Button1) Controls.Add(GroupBox5) Controls.Add(GroupBox4) Controls.Add(GroupBox3) Controls.Add(GroupBox2) Controls.Add(GroupBox1) Controls.Add(ListBox1) Margin = New Padding(4, 5, 4, 5) Name = "Form1" Text = "E-Invoice-TEST-Tool" GroupBox1.ResumeLayout(False) GroupBox2.ResumeLayout(False) GroupBox3.ResumeLayout(False) GroupBox3.PerformLayout() GroupBox4.ResumeLayout(False) GroupBox4.PerformLayout() GroupBox5.ResumeLayout(False) ResumeLayout(False) End Sub Friend WithEvents OpenFileDialog1 As OpenFileDialog Friend WithEvents btRunJob As Button Friend WithEvents ListBox1 As ListBox Friend WithEvents btValidateSerializePDF As Button Friend WithEvents btValidateSerializeParseProps As Button Friend WithEvents btCreateMD5Checksum As Button Friend WithEvents txtMD5Checksum As TextBox Friend WithEvents GroupBox1 As GroupBox Friend WithEvents GroupBox2 As GroupBox Friend WithEvents GroupBox3 As GroupBox Friend WithEvents txtPropName As TextBox Friend WithEvents GroupBox4 As GroupBox Friend WithEvents btFindExtractXMLValue As Button Friend WithEvents btExtractPDFAttachments As Button Friend WithEvents FolderBrowserDialog1 As FolderBrowserDialog Friend WithEvents GroupBox5 As GroupBox Friend WithEvents btWriteBinary As Button Friend WithEvents ButtonValidateXMLOnly As Button Friend WithEvents OpenFileDialog2 As OpenFileDialog Friend WithEvents Button1 As Button Friend WithEvents Button2 As Button End Class