Initial commit

BEA - Kopie/Excel/frmDatenverarbeitung.vb

@@ -0,0 +1,37 @@
+Public Class frmDatenverarbeitung
+
+    Private Sub TSBtnQuit_Click(sender As Object, e As EventArgs) Handles TSBtnQuit.Click
+        Me.Close()
+    End Sub
+
+    Public Sub ShowMessage(ByVal ErrorsExist As Boolean)
+        If ErrorsExist = True Then
+            MsgBox("Verarbeitung mit Fehlern durchgeführt.", MsgBoxStyle.Exclamation)
+        Else
+            MsgBox("Verarbeitung fehlerfrei druchgeführt.", MsgBoxStyle.Information)
+        End If
+    End Sub
+
+    Private Sub frmDatenverarbeitung_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+
+    End Sub
+
+    Private Sub txtResult_KeyDown(sender As Object, e As KeyEventArgs) Handles txtResult.KeyDown
+        Select Case e.KeyCode
+            Case Keys.A : If e.Control Then Me.txtResult.SelectAll()
+            Case Keys.C : If e.Control Then
+                    Me.txtResult.Copy()
+
+                End If
+                '            Case 65 : If e.Control Then e.SuppressKeyPress = False Else e.SuppressKeyPress = True 'STRG+S
+                '            Case 67 : If e.Control Then e.SuppressKeyPress = False Else e.SuppressKeyPress = True 'STRG+C
+                '           Case 86 : If e.Control Then e.SuppressKeyPress = False Else e.SuppressKeyPress = True 'STRG+V
+                '          Case Else : e.SuppressKeyPress = True
+        End Select
+
+    End Sub
+
+    Private Sub txtResult_TextChanged(sender As Object, e As EventArgs) Handles txtResult.TextChanged
+
+    End Sub
+End Class