无法更改动态添加的列表框的维度

Question

我现在一直在找几个小时，我希望有人可以帮助我。

我在vba中创建一个表单，我想动态添加Listbox。列表框已添加，因此按计划进行。但是，我似乎无法改变列表框的宽度和高度。所有其他事情都在改变。这是我的代码：

Dim lb As MSForms.ListBox
Set lb = Me.controls.add("Forms.Listbox.1")
With lb
    .ColumnCount = 4
    .Left = 180
    .Top = 16
    .MultiSelect = 1
    .Height = 270
    .Width = 665
End with

我注意到的另一件事是Heigth和Width不在ListBox的属性列表中。可能是我使用了错误的ListBox类型吗？

编辑：这更奇怪了。当我逐行浏览代码时，它正常运行，ListBox大小就是我想要的。

Answer 1

尝试这可能是

Me.Controls（＆＃34; Forms.Listbox.1＆＃34;）。IntegralHeight = False 要么 lb.IntegralHeight = False