如何在面板上获取滚动条

Question

我有一个Panel的Form。在这个Panel，我想在需要时使用垂直scrollbar。

我该怎么做？我尝试将autoscroll设置为 true 并设置最小滚动高度，但滚动条从未出现。

我也试过这个：

my_panel.ScrollBars = ScrollBars.Vertical

但随后我收到滚动条不是my_panel成员的错误？

谢谢。

Answer 1

自动滚动属性实际上足以满足您的需求。基本上，具有属性 true autoscroll面板仅在该panel内部的contents/components超出其边界时才会显示scroll bar。换句话说，当特定控件的内容大于其visible区域时，autoscroll属性设置为 true 的控件将显示Scroll bar。我认为您的面板具有一些适合该面板边界的最小内容/控件。

Answer 2

我知道你在一年前问过这个问题，但是...... ;)

最近，我

遇到了同样的问题（面板内的标签，我只需要垂直滚动条）。

如果您只想在内部带有标签的面板的垂直滚动条，请使用下面的代码：

Dim pnl As New Panel
pnl.Size = New Size(300, 200)
pnl.AutoSize = True
Dim lbl As New Label
lbl.Location = New Point(0, 0)
lbl.AutoSize = True
lbl.MaximumSize = New Size(pnl.Width - 18, 0)
'18 is approx. width of scroller, and height must be zero.
'even if Label is set to AutoSize, MaximumSize will not allow him to
'expand more then set width. 
'Height of zero px will allow Label to expand as much as he need
pnl.Controls.Add(lbl)
Me.Controls.Add(pnl)

我希望这段代码对您有所帮助。

对不起，我的英语很弱，我希望你能理解;) :)