You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
37 lines
1.4 KiB
37 lines
1.4 KiB
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 |