div. Änderungen

2024-09-19 13:14:44 +02:00
parent add7ac39a9
commit 3789fdec0e
44 changed files with 1181 additions and 878 deletions
--- a/UID/frmAPI.Designer.vb
+++ b/UID/frmAPI.Designer.vb
@@ -22,7 +22,7 @@ Partial Class frmAPI
    'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
    <System.Diagnostics.DebuggerStepThrough()>
    Private Sub InitializeComponent()
-        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmERS))
+        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmAPI))
        Me.Label4 = New System.Windows.Forms.Label()
        Me.rtferrStack = New System.Windows.Forms.RichTextBox()
        Me.txtDatetime = New System.Windows.Forms.TextBox()
@@ -40,12 +40,20 @@ Partial Class frmAPI
        Me.lblFirma = New System.Windows.Forms.Label()
        Me.txtMail = New System.Windows.Forms.TextBox()
        Me.Label1 = New System.Windows.Forms.Label()
+        Me.txtMailCC = New System.Windows.Forms.TextBox()
+        Me.Label3 = New System.Windows.Forms.Label()
+        Me.txtMailBCC = New System.Windows.Forms.TextBox()
+        Me.Label5 = New System.Windows.Forms.Label()
+        Me.txtSubject = New System.Windows.Forms.TextBox()
+        Me.Label6 = New System.Windows.Forms.Label()
+        Me.txtAnhCount = New System.Windows.Forms.TextBox()
+        Me.Label7 = New System.Windows.Forms.Label()
        Me.SuspendLayout()
        '
        'Label4
        '
        Me.Label4.AutoSize = True
-        Me.Label4.Location = New System.Drawing.Point(9, 462)
+        Me.Label4.Location = New System.Drawing.Point(9, 508)
        Me.Label4.Name = "Label4"
        Me.Label4.Size = New System.Drawing.Size(63, 13)
        Me.Label4.TabIndex = 114
@@ -53,9 +61,11 @@ Partial Class frmAPI
        '
        'rtferrStack
        '
-        Me.rtferrStack.Location = New System.Drawing.Point(12, 478)
+        Me.rtferrStack.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.rtferrStack.Location = New System.Drawing.Point(12, 524)
        Me.rtferrStack.Name = "rtferrStack"
-        Me.rtferrStack.Size = New System.Drawing.Size(358, 305)
+        Me.rtferrStack.Size = New System.Drawing.Size(796, 305)
        Me.rtferrStack.TabIndex = 113
        Me.rtferrStack.Text = ""
        '
@@ -101,15 +111,17 @@ Partial Class frmAPI
        Me.lblErrMsg.AutoSize = True
        Me.lblErrMsg.Location = New System.Drawing.Point(12, 210)
        Me.lblErrMsg.Name = "lblErrMsg"
-        Me.lblErrMsg.Size = New System.Drawing.Size(78, 13)
+        Me.lblErrMsg.Size = New System.Drawing.Size(102, 13)
        Me.lblErrMsg.TabIndex = 120
-        Me.lblErrMsg.Text = "Error Message:"
+        Me.lblErrMsg.Text = "Error Message/Mail:"
        '
        'rtferrMsg
        '
+        Me.rtferrMsg.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.rtferrMsg.Location = New System.Drawing.Point(12, 226)
        Me.rtferrMsg.Name = "rtferrMsg"
-        Me.rtferrMsg.Size = New System.Drawing.Size(361, 209)
+        Me.rtferrMsg.Size = New System.Drawing.Size(796, 279)
        Me.rtferrMsg.TabIndex = 119
        Me.rtferrMsg.Text = ""
        '
@@ -146,7 +158,7 @@ Partial Class frmAPI
        Me.txtType.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.txtType.Location = New System.Drawing.Point(188, 82)
        Me.txtType.Name = "txtType"
-        Me.txtType.Size = New System.Drawing.Size(108, 20)
+        Me.txtType.Size = New System.Drawing.Size(185, 20)
        Me.txtType.TabIndex = 126
        '
        'Label2
@@ -197,11 +209,91 @@ Partial Class frmAPI
        Me.Label1.TabIndex = 131
        Me.Label1.Text = "EMail:"
        '
-        'frmERS
+        'txtMailCC
+        '
+        Me.txtMailCC.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.txtMailCC.Location = New System.Drawing.Point(396, 121)
+        Me.txtMailCC.Name = "txtMailCC"
+        Me.txtMailCC.Size = New System.Drawing.Size(185, 20)
+        Me.txtMailCC.TabIndex = 132
+        '
+        'Label3
+        '
+        Me.Label3.AutoSize = True
+        Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label3.Location = New System.Drawing.Point(393, 105)
+        Me.Label3.Name = "Label3"
+        Me.Label3.Size = New System.Drawing.Size(53, 13)
+        Me.Label3.TabIndex = 133
+        Me.Label3.Text = "EMail CC:"
+        '
+        'txtMailBCC
+        '
+        Me.txtMailBCC.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.txtMailBCC.Location = New System.Drawing.Point(623, 121)
+        Me.txtMailBCC.Name = "txtMailBCC"
+        Me.txtMailBCC.Size = New System.Drawing.Size(185, 20)
+        Me.txtMailBCC.TabIndex = 134
+        '
+        'Label5
+        '
+        Me.Label5.AutoSize = True
+        Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label5.Location = New System.Drawing.Point(620, 105)
+        Me.Label5.Name = "Label5"
+        Me.Label5.Size = New System.Drawing.Size(60, 13)
+        Me.Label5.TabIndex = 135
+        Me.Label5.Text = "EMail BCC:"
+        '
+        'txtSubject
+        '
+        Me.txtSubject.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.txtSubject.Location = New System.Drawing.Point(396, 82)
+        Me.txtSubject.Name = "txtSubject"
+        Me.txtSubject.Size = New System.Drawing.Size(412, 20)
+        Me.txtSubject.TabIndex = 136
+        '
+        'Label6
+        '
+        Me.Label6.AutoSize = True
+        Me.Label6.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label6.Location = New System.Drawing.Point(393, 66)
+        Me.Label6.Name = "Label6"
+        Me.Label6.Size = New System.Drawing.Size(41, 13)
+        Me.Label6.TabIndex = 137
+        Me.Label6.Text = "Betreff:"
+        '
+        'txtAnhCount
+        '
+        Me.txtAnhCount.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.txtAnhCount.Location = New System.Drawing.Point(396, 169)
+        Me.txtAnhCount.Name = "txtAnhCount"
+        Me.txtAnhCount.Size = New System.Drawing.Size(38, 20)
+        Me.txtAnhCount.TabIndex = 138
+        '
+        'Label7
+        '
+        Me.Label7.AutoSize = True
+        Me.Label7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label7.Location = New System.Drawing.Point(393, 153)
+        Me.Label7.Name = "Label7"
+        Me.Label7.Size = New System.Drawing.Size(29, 13)
+        Me.Label7.TabIndex = 139
+        Me.Label7.Text = "Anh:"
+        '
+        'frmAPI
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.ClientSize = New System.Drawing.Size(391, 841)
+        Me.ClientSize = New System.Drawing.Size(820, 841)
+        Me.Controls.Add(Me.txtAnhCount)
+        Me.Controls.Add(Me.Label7)
+        Me.Controls.Add(Me.txtSubject)
+        Me.Controls.Add(Me.Label6)
+        Me.Controls.Add(Me.txtMailBCC)
+        Me.Controls.Add(Me.Label5)
+        Me.Controls.Add(Me.txtMailCC)
+        Me.Controls.Add(Me.Label3)
        Me.Controls.Add(Me.txtMail)
        Me.Controls.Add(Me.Label1)
        Me.Controls.Add(Me.lblFirma)
@@ -220,7 +312,7 @@ Partial Class frmAPI
        Me.Controls.Add(Me.txtMethode)
        Me.Controls.Add(Me.lblProgramm)
        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
-        Me.Name = "frmERS"
+        Me.Name = "frmAPI"
        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
        Me.Text = "Error"
        Me.ResumeLayout(False)
@@ -245,4 +337,12 @@ Partial Class frmAPI
    Friend WithEvents lblFirma As Label
    Friend WithEvents txtMail As TextBox
    Friend WithEvents Label1 As Label
+    Friend WithEvents txtMailCC As TextBox
+    Friend WithEvents Label3 As Label
+    Friend WithEvents txtMailBCC As TextBox
+    Friend WithEvents Label5 As Label
+    Friend WithEvents txtSubject As TextBox
+    Friend WithEvents Label6 As Label
+    Friend WithEvents txtAnhCount As TextBox
+    Friend WithEvents Label7 As Label
 End Class