neu

VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/MyDatagridview.vb

@@ -28,6 +28,7 @@ Public Class MyDatagridview
     Dim SortDirection As Windows.Forms.SortOrder
     Dim ScrollPos_X = Nothing
     Dim ScrollPos_Y = Nothing
+    'Dim ScrollPos_Y2 = Nothing
     Dim SQL As New SQL
 
     Public Sub GetOrder()
@@ -41,6 +42,8 @@ Public Class MyDatagridview
             End If
             ScrollPos_X = Me.HorizontalScrollingOffset
             ScrollPos_Y = Me.FirstDisplayedScrollingRowIndex  'Me.VerticalScrollingOffset
+
+            'ScrollPos_Y2 = Me.VerticalScrollingOffset
             If Me.SelectedRows.Count > 0 Then
                 sel_row_index = Me.SelectedRows(0).Index
 
@@ -86,8 +89,10 @@ Public Class MyDatagridview
             End If
             If ScrollPos_X IsNot Nothing Then Me.HorizontalScrollingOffset = ScrollPos_X
             Try
+                '  Me.DataBind
                 Me.FirstDisplayedScrollingRowIndex = ScrollPos_Y
             Catch ex As Exception
+                'If ScrollPos_Y IsNot Nothing Then Me.HorizontalScrollBar.Value = ScrollPos_Y2
 
             End Try
 

VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/frmPDFScanList.Designer.vb

@@ -22,9 +22,8 @@ Partial Class frmPDFScanList
     'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
     <System.Diagnostics.DebuggerStepThrough()> _
     Private Sub InitializeComponent()
-        Me.components = New System.ComponentModel.Container()
         Me.FlowLayoutPanel = New System.Windows.Forms.FlowLayoutPanel()
-        Me.cntxtMulti = New System.Windows.Forms.ContextMenuStrip(Me.components)
+        Me.cntxtMulti = New System.Windows.Forms.ContextMenuStrip()
         Me.DateiScannenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.DateiHochladenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator()