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