鼠标按下时自动滚动问题

Question

我在自动滚动面板内有一个自定义控件。当用户控件超出面板宽度时，会出现滚动条。然后，当您滚动任意距离并在控件上按下鼠标时，滚动条会弹回到 0。有人知道为什么会这样吗？我很确定我不会尝试在任何地方更改滚动条的值...

谢谢

编辑：这似乎只发生一次，第一次单击它时，每次它都会按预期工作

编辑2：它也当您打开一个新窗口，然后返回到 C# 窗口时会发生这种情况

Answer 1

我为 VB.net 解决了这个问题。要尝试此操作，请创建一个 WinForms 项目并：

1. 在 Form1 上放置一个 Panel1，在 Panel1 内放置一个 TextBox1。
2. 使 TextBox1 比 Panel1 大，并用一堆文本填充它。
3. 将Panel1.AutoScroll 设置为true。
4. 将 Button1 添加到 Form1 并将其 TabIndex 设置为 0 以获取加载焦点。

运行该项目，移动 Panel1 滚动条，然后单击 TextBox1 中的某些文本。当 Panel1 尝试将 TextBox 的左上角滚动到视图中时，TextBox1 会令人烦恼地跳转。现在将下面的代码放入 Form1 中并重复测试。好多了！这在 VB 2010 Express 中有效。

Delegate Sub AutoScrollPositionDelegate(ByVal sender As ScrollableControl, ByVal p As Point)
Private Sub TextBox1_Enter(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.Enter

   Dim p As Point = Panel1.AutoScrollPosition
   Dim del As AutoScrollPositionDelegate = New AutoScrollPositionDelegate(AddressOf SetAutoScrollPosition)

   Panel1.BeginInvoke(del, {Panel1, p})

End Sub
Private Sub SetAutoScrollPosition(ByVal sender As ScrollableControl, ByVal p As Point)

   p.X = Math.Abs(p.X)
   p.Y = Math.Abs(p.Y)
   sender.AutoScrollPosition = p

End Sub

Answer 2

如果您有一个比其容器宽得多的控件（例如 TextBox），并且您滚动到它的末尾，然后单击该控件，您将滚动回到 Location 的控制。

单击的控件获得焦点并自动发生滚动，这是 winform 的标准行为。

如果您想否定这一点，则必须拦截容器 (ScrollableControl) 的 SetAutoScrollPosition 或使用其他机制恢复到原始位置。

如果控件已获得焦点，然后您滚动，则再次单击它不会更改容器的 AutoScrollPosition。