چگونه می شود Scroll های چند کنترل را باهم همراه کرد؟

[mrb1748]

با سلام به همه دوستان می خواستم بدانم چطور میشه اسکرول یک دیتاگرید را به یک دیتاگرید دیگر مرتبط کرد تا همزمان حرکت کنند؟

[mrb1748]

با سلام خدمت دوستان کد هایی که خودم نوشتم و یکم کار می کند را برایتان می نویسم .

Private Sub DGVM_ColumnWidthChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewColumnEventArgs) Handles DGVM.ColumnWidthChanged
Try
Dim J As Integer
For J = 0 To DGVM.ColumnCount - 1
DGVH.Columns(J).Width = DGVM.Columns(J).Width
Next
Call SetScrollWithMaster()
Catch ex As Exception

End Try


Private Sub DGVH_ColumnWidthChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewColumnEventArgs) Handles DGVH.ColumnWidthChanged
Try
Dim J As Integer
For J = 0 To DGVH.ColumnCount - 1
DGVM.Columns(J).Width = DGVH.Columns(J).Width
Next
Call SetScrollWithMaster()
Catch ex As Exception

End Try

End Sub

Private Sub DGVM_Scroll(ByVal sender As Object, ByVal e As System.Windows.Forms.ScrollEventArgs) Handles DGVM.Scroll
Call SetScrollWithMaster()
End Sub
End Sub

و کد اصلی :
Private Sub SetScrollWithMaster()
DGVH.HorizontalScrollingOffset = DGVM.HorizontalScrollingOffset
End Sub