hi
It loses this value due to the lack of horizontal scrolling (dgv.ScrollBars =ScrollBars.Vertical). How can I prevent this? It causes noise. (noise \flicker). thank
Public Class frmHScroll
'Objects dgv,dgvTotal As DataGridView
Private Sub dgv_ColumnWidthChanged(sender As Object, e As DataGridViewColumnEventArgs) Handles dgv.ColumnWidthChanged
WidthsChange()
End Sub
Private Sub dgv_RowHeadersWidthChanged(sender As Object, e As EventArgs) Handles dgv.RowHeadersWidthChanged
WidthsChange()
End Sub
Private Sub WidthsChange()
dgvTotal.RowHeadersWidth = dgv.RowHeadersWidth
dgv.Columns.Cast(Of DataGridViewColumn).ToList().ForEach(Sub(h) dgvTotal.Columns(h.Index).Width = h.Width)
dgv.Columns.Cast(Of DataGridViewColumn).ToList().ForEach(Sub(h) dgvTotal.Columns(h.Index).Visible = h.Visible)
dgv_Resize(Nothing, Nothing)
End Sub
Private Sub dgv_Resize(sender As Object, e As EventArgs) Handles dgv.Resize
dgv.HorizontalScrollingOffset = dgvTotal.HorizontalScrollingOffset 'is Line Problem
' dgvTotal.Columns("ColOffset").Visible = dgv.Rows.Count > dgv.DisplayedRowCount(False)
End Sub
Private Sub dgv_ColumnAdded(sender As Object, e As DataGridViewColumnEventArgs) Handles dgv.ColumnAdded
dgv.ScrollBars = ScrollBars.Vertical 'to Horizontal Scroll Hide Of Main dgv
End Sub
Private Sub dgvTotal_Scroll(sender As Object, e As ScrollEventArgs) Handles dgvTotal.Scroll
dgv.HorizontalScrollingOffset = e.NewValue
End Sub
End Class
![20230718_133008](https://learn-attachment.microsoft.com/api/attachments/15102d90-7ef0-4826-96b5-b8f23caa771b?platform=QnA)
![20230718_214529](https://learn-attachment.microsoft.com/api/attachments/2936e316-56a8-4c03-808c-46981f02d057?platform=QnA)
Problem
dgv.HorizontalScrollingOffset = dgvTotal.HorizontalScrollingOffset 'is Line Problem