VBA：动态自适应滚动条

Question

我有一个包含框架的用户表单。在运行时，用户可以向该框架添加控件。最终，添加的控件可能会超过框架的大小。在这种情况下，我想增加框架的 insideheight。所以我的垂直滚动条确实覆盖了整个区域。

frm.ScrollHeight = .InsideHeight

我该怎么做？

Answer 1

.InsideHeight不负责滚动条。但是，.ScrollHeight 是。添加新控件时，必须增加此高度。

添加一组新控件时，执行以下命令：将 50 换成你控件的高度。

Dim scrHeight As Integer
With frm
    scrHeight = .ScrollHeight
    .ScrollHeight = scrHeight + 50
End With

VBA: Dynamic Adapting Scrollbar