Saya memiliki dua panel tata letak tabel yang berdampingan. Peristiwa gulir pada kedua panel ditautkan sehingga pengguna menggulir satu panel dan panel lainnya juga menggulir. Ini berfungsi dengan baik:
Private Sub Layout_SidePanel_Scroll(sender As Object, e As ScrollEventArgs) Handles Layout_SidePanel.Scroll
If e.ScrollOrientation = ScrollOrientation.VerticalScroll Then
'make the other panel scroll too
Layout_Main.VerticalScroll.Value = Layout_SidePanel.VerticalScroll.Value
End If
End Sub
Private Sub Layout_Main_Scroll(sender As Object, e As ScrollEventArgs) Handles Layout_Main.Scroll
If e.ScrollOrientation = ScrollOrientation.VerticalScroll Then
'make the other panel scroll too
Layout_SidePanel.VerticalScroll.Value = Layout_Main.VerticalScroll.Value
End If
End Sub
Namun, ketika pengguna menggunakan roda mouse untuk menggulir, hal itu tidak berfungsi sama sekali. Satu sisi akan bergulir dan bukan sisi lainnya. Atau yang satu akan menggulir lebih banyak daripada yang lain. Saya telah memeriksa nilai gulir vertikal kedua panel dan melihat keduanya tidak cocok. Saya perlu membuat pengguliran berfungsi secara konsisten atau menonaktifkan pengguliran roda mouse. Ini adalah kode saya untuk menyerahkan acara roda mouse:
Private Sub Layout_Main_MouseWheel(sender As Object, e As MouseEventArgs) Handles Layout_Main.MouseWheel
Layout_SidePanel.VerticalScroll.Value = Layout_Main.VerticalScroll.Value
End Sub
Private Sub Layout_Sidepanel_MouseWheel(sender As Object, e As MouseEventArgs) Handles Layout_SidePanel.MouseWheel
Layout_Main.VerticalScroll.Value = Layout_SidePanel.VerticalScroll.Value
End Sub