Question

我遇到了一个我无法解决的问题.. 我在Autodesk Inventor 2017中使用VBA 7.1。在宏期间，正在调用Userform。我使用＆＃39; UserForm_Initialize（）＆＃39;将一些数据填入UserForm：我填写一个列表框，更改一些标签，并定位和调整一些控件的大小。 UserForm通过以下代码在表单上的列表框高度调整大小：

HeightListbox = 12.7 + MaxRows * 12.7

ListBoxSelectiParts.Height = HeightListbox
UserFormSelectiParts.Height = HeightListbox + 80
CommandButtonOK.Top = HeightListbox + 22
CommandButtonCancel.Top = HeightListbox + 22

奇怪的是，我已经在大约5台PC上进行了测试，除了1台电脑外，它的效果很好。在该PC上，所有数据都被填入，控件调整大小重新定位，除了listbox.height！当我创建一个不同的按钮并使用

进行硬编码时

ListBoxSelectiParts.Height = 300

它有效，但在初始化过程中它没有... 同样，这适用于我办公室的所有其他PC。所有PC都是Windows 7 64位。我注意到内置版本与某些PC有所不同，但是2台PC与问题PC具有相同的内置版本，并且代码可以在这些PC上运行..

有人有线索吗？

提前致谢

Answer 1

我已将列表框（使列表框足够高）包含在框架中。然后，只需更改框架的高度即可。我将框架的BorderStyle属性设置为0 = fmBorderStyleNone

Listbox.Height不会在1台PC上更新，但会在办公室的所有其他PC上更新

1 个答案: