关于Panel中选择子控件时使其滚动条焦点失效的处理

      问题 : Panel中放有三个DataGridView控件,根据功能需要,要将这三个同时滚动,想到的方法是用Panel的VScroll来操作.但是编辑Cell的同时,点击其他Cell后,Panel的滚动条就会自动返回到顶端.

      解决方法 : 重写Panel控件,设置VScroll的位置为最后滚动到的位置.在使用时要将Panel的autoScroll设置为True.

代码 : [VB.NET 2005]

Public Class InPanel Inherits Panel Private _autoScrollControlIntoView as Boolean Public Property AutoScrollControlIntoView() as Boolean Get Return Me._autoScrollControlIntoView End Get Set(ByVal value As Boolean) Me._autoScrollControlIntoView = value End Set End Property Protected Overrides Function ScrollToControl(ByVal activeControl As Control) As Point If Me._autoScrollControlIntoView Then Return MyBase.ScrollToControl(activeControl) Else Return New Point(-Me.HorizontalScroll.Value, -Me.VerticalScroll.Value) End If End FunctionEnd Class