c# - 如何防止垂直滚动条在控件中占用空间，导致水平滚动条？

Question

我有一个自定义控件，其中嵌入了一个 FlowLayoutPanel，我向其中添加了元素(其他自定义控件)。在 FlowLayoutPanel 的布局事件中，我将 FlowLayoutPanel 中的所有控件的大小调整为包含 FlowLayoutPanel 的大小。

在需要垂直滚动条 (AutoScroll = True) 之前一切正常，占用 FLpanel 内的空间，导致出现水平滚动条。

您看到的乱码是我在元素的构造函数中生成的一些随机占位符文本。

我想阻止这种情况:

我尝试向用户控件添加垂直滚动控件并在 Scroll 事件中执行 FlowLayoutPanel.VertScroll.Value=sender.value:它似乎有效，但移动滚动条控件时，实际的垂直和水平滚动条闪烁(出现和消失)很多。

我真的不知道是否有一些属性可以使滚动条在 FlowLayoutPanel 控件内容之外。

我在 VB.Net 中这样做，但 C# 答案很好(因为它基本上是相同的语法，至少在使用控件和 UI 时是这样)。

编辑

---

我忘了说我在 FlowLayoutPanel 中有 WrapContents=false 和 AutoScroll=true。

此外，如果您认为这种设计很眼熟:它是 Opera M2 邮件列表屏幕的像素完美副本。

更新1

---

在你的评论之后，我想到了这个:

Public Class FlowListPanel ' The user control

Private Sub Me_Load(sender As Object, e As EventArgs) Handles Me.Load
    FL_Panel.AutoScroll = True ' FL_Panel is the FlowLayoutPanel
    FL_Panel.WrapContents = False

    FL_Panel.Dock = System.Windows.Forms.DockStyle.Fill
    FL_Panel.FlowDirection = System.Windows.Forms.FlowDirection.TopDown
    FL_Panel.Margin = New System.Windows.Forms.Padding(0)
End Sub

Sub AddItem(c As Control)
    FL_Panel.Controls.Add(c)
    ReorderControls()
End Sub

Private Sub FLP_CSC(sender As Object, e As EventArgs) Handles FL_Panel.ClientSizeChanged
    ReorderControls()
End Sub

Sub ReorderControls()
    For Each ctrl In FL_Panel.Controls
        ctrl.Width = FL_Panel.ClientSize.Width
    Next
End Sub

Private Sub FL_Panel_L(sender As Object, e As LayoutEventArgs) Handles FL_Panel.Layout
    ReorderControls()
End Sub

End Class

好像是可以的，但是当到达垂直滚动条出现的临界点时，水平滚动条出现问题。

一旦添加了另一个项目，水平滚动条就会消失。

另外，我认为问题可能是 ReorderControls sub 没有被调用引起的，所以我做了一个按钮来调用它，但没有任何改变。

删除元素时不会出现此问题(但只会在添加时出现)。

当调整窗口大小时必须出现垂直滚动条时也会发生这种情况。

如下所示，添加新元素后它工作正常:

更新2

---

我听从了 Plutonix 的建议(修改代码 from his other answer )，因此我对 ReorderControls 子应用了一些修改，如下所示:

    Sub ReorderControls()

    Dim HScrollVis As Boolean = NativeMethods.IsHScrollVisible(FL_Panel)

    If HScrollVis Then ' HScroll visible -> kill it with fire!
        NativeMethods.ShowHideScrollBar(FL_Panel,
                                        NativeMethods.SBOrientation.SB_HORZ,
                                        False)
        Return ' as it works anyway...
    End If

    For Each ctrl In FL_Panel.Controls
        ctrl.Width = FL_Panel.ClientSize.Width
    Next
    End Sub

现在，当垂直滚动条出现时，水平滚动条会闪烁一次，而不是停留在那里。

我喜欢动图，所以这是目前的效果:

您可能看不到(由于 gif 的低帧率)，水平条可能只有正在寻找它的人会注意到几分之一秒。

我认为问题已解决 80%，并将继续前进。如果我或其他人得出明确的结论，我会立即接受答案。

Answer 1

这是一种替代方法，可以为您提供所需的结果。当然，它不会直接回答您的问题，但在我看来，如果您需要扰乱控件的工作方式以获得所需的解决方案，那么您就没有使用正确的控件。

不是将您的控件直接添加到 FowLayoutPanel 中，

使用包含 TableLayoutPanel 的标准 Panel 对象。

将面板属性设置为...

AutoScroll=True

将 TableLayoutPanel 属性设置为

Dock = 顶部

Autosize = True , GrowAndSHrink

从 TableLayoutPanel 中的一个单元格开始......

现在将您的控件添加到 TableLayoutPanel...

例如

Dim CTRL As New Your_User_Control
TableLayoutPanel1.Controls.Add(CTRL)
CTRL.Dock = DockStyle.Top

当出现滚动条时，TableLAyoutPanel会水平收缩适当的量，所有包含的控件也会自动收缩。