neu

Aviso/Anhänge/frmSendungAnhangImport.vb

@@ -1231,6 +1231,13 @@ Public Class frmSendungAnhangImport
                     btnSndEdit.PerformClick()
                     e.IsInputKey = True ' Damit Event abgefangen ist, sonst steht "+" im Feld
                 End If
+            ElseIf e.Modifiers = Keys.Shift Then ' PDFs durchlaufen
+                If e.KeyCode = Keys.PageDown Then
+                    nextART()
+                End If
+                If e.KeyCode = Keys.PageUp Then
+                    prevART()
+                End If
             Else
                 If e.KeyCode = Keys.PageDown Then
                     PdfViewer.GoToPage(PdfViewer.CurrentPageNumber + 1)
@@ -1269,6 +1276,28 @@ Public Class frmSendungAnhangImport
             ctmp = c
         Next
     End Sub
+    Sub nextART()
+        If cboArt.Items Is Nothing Or cboArt.Items.Count = 0 Then Exit Sub
+        Dim bool_next = False
+        If cboArt.SelectedItem Is Nothing Then cboArt.SelectedItem = cboArt.Items(0) : Exit Sub
+
+        If cboArt.Items.Count > cboArt.SelectedIndex + 1 Then
+            cboArt.SelectedItem = cboArt.Items(cboArt.SelectedIndex + 1)
+        End If
+
+    End Sub
+
+    Sub prevART()
+        If cboArt.Items Is Nothing Or cboArt.Items.Count = 0 Then Exit Sub
+
+        If cboArt.SelectedItem Is Nothing Then cboArt.SelectedItem = cboArt.Items(cboArt.Items.Count - 1) : Exit Sub
+
+        If cboArt.SelectedIndex - 1 > 0 Then
+            cboArt.SelectedItem = cboArt.Items(cboArt.SelectedIndex - 1)
+        End If
+
+    End Sub
+
 
     Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
         If txtSeiten.Text = "" Then Exit Sub