SDL Jetzt erst recht!

2019-08-08 12:34:08 +02:00
parent f336f214e9
commit 5cbb13561f
1496 changed files with 522451 additions and 0 deletions
--- a/SDL/kassenbuch/frmPreis.vb
+++ b/SDL/kassenbuch/frmPreis.vb
@@ -0,0 +1,14 @@
+Public Class frmPreis
+    Private Sub txt_KeyDown(sender As Object, e As KeyEventArgs) Handles txt.KeyDown
+        If e.KeyCode = Keys.Return Then
+            btnOK.PerformClick()
+        End If
+        If e.KeyCode = Keys.Escape Then
+            FlatButton1.PerformClick()
+        End If
+    End Sub
+
+    Private Sub frmPreisText_Shown(sender As Object, e As EventArgs) Handles Me.Shown
+        txt.Focus()
+    End Sub
+End Class