ErrorMeldung -> Screenshot und SystemEnviroment wird mitgeschickt.

2023-11-23 15:40:46 +01:00
parent 59add26515
commit a6f262304e
4 changed files with 204 additions and 24 deletions
--- a/VERAG_PROG_ALLGEMEIN/frmErrorMeldung.Designer.vb
+++ b/VERAG_PROG_ALLGEMEIN/frmErrorMeldung.Designer.vb
@@ -29,14 +29,16 @@ Partial Class frmErrorMeldung
        Me.Label2 = New System.Windows.Forms.Label()
        Me.Panel1 = New System.Windows.Forms.Panel()
        Me.Panel2 = New System.Windows.Forms.Panel()
+        Me.lblErr_Nachricht = New System.Windows.Forms.Label()
        Me.Button2 = New System.Windows.Forms.Button()
        Me.txtNachricht = New System.Windows.Forms.TextBox()
        Me.Label3 = New System.Windows.Forms.Label()
-        Me.lblErr_Nachricht = New System.Windows.Forms.Label()
        Me.MyPanel2 = New VERAG_PROG_ALLGEMEIN.MyPanel(Me.components)
        Me.MyPanel1 = New VERAG_PROG_ALLGEMEIN.MyPanel(Me.components)
        Me.btnClose = New System.Windows.Forms.Button()
        Me.TextBox2 = New System.Windows.Forms.TextBox()
+        Me.cbxEnviromentVariables = New System.Windows.Forms.CheckBox()
+        Me.cbxScreenshot = New System.Windows.Forms.CheckBox()
        CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.Panel1.SuspendLayout()
        Me.Panel2.SuspendLayout()
@@ -85,22 +87,35 @@ Partial Class frmErrorMeldung
        Me.Panel1.Dock = System.Windows.Forms.DockStyle.Fill
        Me.Panel1.Location = New System.Drawing.Point(0, 0)
        Me.Panel1.Name = "Panel1"
-        Me.Panel1.Size = New System.Drawing.Size(500, 449)
+        Me.Panel1.Size = New System.Drawing.Size(500, 463)
        Me.Panel1.TabIndex = 8
        '
        'Panel2
        '
        Me.Panel2.BackColor = System.Drawing.Color.WhiteSmoke
+        Me.Panel2.Controls.Add(Me.cbxScreenshot)
+        Me.Panel2.Controls.Add(Me.cbxEnviromentVariables)
        Me.Panel2.Controls.Add(Me.lblErr_Nachricht)
        Me.Panel2.Controls.Add(Me.Button2)
        Me.Panel2.Controls.Add(Me.txtNachricht)
        Me.Panel2.Controls.Add(Me.Label3)
        Me.Panel2.Dock = System.Windows.Forms.DockStyle.Bottom
-        Me.Panel2.Location = New System.Drawing.Point(0, 114)
+        Me.Panel2.Location = New System.Drawing.Point(0, 128)
        Me.Panel2.Name = "Panel2"
        Me.Panel2.Size = New System.Drawing.Size(498, 138)
        Me.Panel2.TabIndex = 8
        '
+        'lblErr_Nachricht
+        '
+        Me.lblErr_Nachricht.AutoSize = True
+        Me.lblErr_Nachricht.ForeColor = System.Drawing.Color.Red
+        Me.lblErr_Nachricht.Location = New System.Drawing.Point(341, 8)
+        Me.lblErr_Nachricht.Name = "lblErr_Nachricht"
+        Me.lblErr_Nachricht.Size = New System.Drawing.Size(151, 13)
+        Me.lblErr_Nachricht.TabIndex = 10
+        Me.lblErr_Nachricht.Text = "Bitte Nachricht-Text eingeben!"
+        Me.lblErr_Nachricht.Visible = False
+        '
        'Button2
        '
        Me.Button2.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
@@ -122,7 +137,7 @@ Partial Class frmErrorMeldung
        Me.txtNachricht.Location = New System.Drawing.Point(3, 24)
        Me.txtNachricht.Multiline = True
        Me.txtNachricht.Name = "txtNachricht"
-        Me.txtNachricht.Size = New System.Drawing.Size(400, 110)
+        Me.txtNachricht.Size = New System.Drawing.Size(400, 86)
        Me.txtNachricht.TabIndex = 3
        '
        'Label3
@@ -134,17 +149,6 @@ Partial Class frmErrorMeldung
        Me.Label3.TabIndex = 7
        Me.Label3.Text = "Nachricht (Bitte um kurze Schilderung, was den Fehler ausgelöst hat):"
        '
-        'lblErr_Nachricht
-        '
-        Me.lblErr_Nachricht.AutoSize = True
-        Me.lblErr_Nachricht.ForeColor = System.Drawing.Color.Red
-        Me.lblErr_Nachricht.Location = New System.Drawing.Point(341, 8)
-        Me.lblErr_Nachricht.Name = "lblErr_Nachricht"
-        Me.lblErr_Nachricht.Size = New System.Drawing.Size(151, 13)
-        Me.lblErr_Nachricht.TabIndex = 10
-        Me.lblErr_Nachricht.Text = "Bitte Nachricht-Text eingeben!"
-        Me.lblErr_Nachricht.Visible = False
-        '
        'MyPanel2
        '
        Me.MyPanel2.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
@@ -159,7 +163,7 @@ Partial Class frmErrorMeldung
        Me.MyPanel1.Controls.Add(Me.btnClose)
        Me.MyPanel1.Controls.Add(Me.TextBox2)
        Me.MyPanel1.Dock = System.Windows.Forms.DockStyle.Bottom
-        Me.MyPanel1.Location = New System.Drawing.Point(0, 252)
+        Me.MyPanel1.Location = New System.Drawing.Point(0, 266)
        Me.MyPanel1.Name = "MyPanel1"
        Me.MyPanel1.Size = New System.Drawing.Size(498, 195)
        Me.MyPanel1.TabIndex = 6
@@ -191,12 +195,34 @@ Partial Class frmErrorMeldung
        Me.TextBox2.Size = New System.Drawing.Size(492, 135)
        Me.TextBox2.TabIndex = 4
        '
+        'cbxEnviromentVariables
+        '
+        Me.cbxEnviromentVariables.AutoSize = True
+        Me.cbxEnviromentVariables.Enabled = False
+        Me.cbxEnviromentVariables.Location = New System.Drawing.Point(11, 115)
+        Me.cbxEnviromentVariables.Name = "cbxEnviromentVariables"
+        Me.cbxEnviromentVariables.Size = New System.Drawing.Size(133, 17)
+        Me.cbxEnviromentVariables.TabIndex = 11
+        Me.cbxEnviromentVariables.Text = "Systemdaten schicken"
+        Me.cbxEnviromentVariables.UseVisualStyleBackColor = True
+        '
+        'cbxScreenshot
+        '
+        Me.cbxScreenshot.AutoSize = True
+        Me.cbxScreenshot.Enabled = False
+        Me.cbxScreenshot.Location = New System.Drawing.Point(150, 115)
+        Me.cbxScreenshot.Name = "cbxScreenshot"
+        Me.cbxScreenshot.Size = New System.Drawing.Size(139, 17)
+        Me.cbxScreenshot.TabIndex = 12
+        Me.cbxScreenshot.Text = "Screenshot mitschicken"
+        Me.cbxScreenshot.UseVisualStyleBackColor = True
+        '
        'frmErrorMeldung
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
        Me.BackColor = System.Drawing.Color.White
-        Me.ClientSize = New System.Drawing.Size(500, 449)
+        Me.ClientSize = New System.Drawing.Size(500, 463)
        Me.Controls.Add(Me.Panel1)
        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
@@ -228,4 +254,6 @@ Partial Class frmErrorMeldung
    Friend WithEvents MyPanel1 As MyPanel
    Friend WithEvents btnClose As Windows.Forms.Button
    Friend WithEvents lblErr_Nachricht As Windows.Forms.Label
+    Friend WithEvents cbxScreenshot As Windows.Forms.CheckBox
+    Friend WithEvents cbxEnviromentVariables As Windows.Forms.CheckBox
 End Class