VBA：动态适应滚动条

Question

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

frm.ScrollHeight = .InsideHeight

我该怎么做？

Answer 1

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

添加一组新控件时执行以下操作： 与您的控件高度交换50。

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