neu

Aviso/frmAbfertigungTR_ExportAnz.vb

@@ -0,0 +1,39 @@
+Public Class frmAbfertigungTR_ExportAnz
+
+
+    Sub New()
+
+        ' Dieser Aufruf ist für den Designer erforderlich.
+        InitializeComponent()
+
+        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
+
+    End Sub
+
+
+    Private Sub frmAnkunftSetzen_Load(sender As Object, e As EventArgs) Handles Me.Load
+
+        txtAnz.Focus()
+
+
+    End Sub
+
+    Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click
+        If txtAnz._value = "" Then Me.DialogResult = DialogResult.None : Exit Sub
+        If txtAnzPos._value = "" Then Me.DialogResult = DialogResult.None : Exit Sub
+
+        Me.DialogResult = DialogResult.OK
+
+    End Sub
+
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
+        Me.DialogResult = DialogResult.Cancel
+    End Sub
+
+    Private Sub frmAnkunftSetzen_KeyDown(sender As Object, e As KeyEventArgs)
+        If e.KeyCode = Keys.Return Then
+            btn.PerformClick()
+        End If
+    End Sub
+
+End Class