Vba 列表框。高度不小于';t在1台电脑上更新,但在所有其他电脑上更新';她在办公室
我遇到了一个无法解决的问题。。 我在Autodesk Inventor 2017中使用VBA 7.1。 在执行宏期间,将调用Userform。 我使用“UserForm_Initialize()”将一些数据填入UserForm: 我填充一个列表框,更改一些标签标题,定位和调整一些控件的大小。 UserForm的大小根据表单上列表框的高度调整,代码如下:Vba 列表框。高度不小于';t在1台电脑上更新,但在所有其他电脑上更新';她在办公室,vba,listbox,userform,autodesk-inventor,Vba,Listbox,Userform,Autodesk Inventor,我遇到了一个无法解决的问题。。 我在Autodesk Inventor 2017中使用VBA 7.1。 在执行宏期间,将调用Userform。 我使用“UserForm_Initialize()”将一些数据填入UserForm: 我填充一个列表框,更改一些标签标题,定位和调整一些控件的大小。 UserForm的大小根据表单上列表框的高度调整,代码如下: HeightListbox = 12.7 + MaxRows * 12.7 ListBoxSelectiParts.Height = Heig
HeightListbox = 12.7 + MaxRows * 12.7
ListBoxSelectiParts.Height = HeightListbox
UserFormSelectiParts.Height = HeightListbox + 80
CommandButtonOK.Top = HeightListbox + 22
CommandButtonCancel.Top = HeightListbox + 22
奇怪的是,我已经在大约5台电脑上测试过了,除了1台电脑之外,它工作得很好。。
在这台电脑上,所有的数据都将被填充,除了listbox.height外,调整重新定位大小的控件也将完成!
当我创建一个不同的按钮并用它硬编码时
ListBoxSelectiParts.Height = 300
它可以工作,但在初始化过程中不起作用。。
这同样适用于我办公室的所有其他电脑。。
所有电脑均为64位Windows 7。我注意到一些电脑的内置版本有所不同,但2台电脑的内置版本与问题电脑的版本相同,代码在这些电脑上也能正常工作
有人有线索吗
提前感谢我已将列表框(使列表框足够高)包含在一个框架中。然后,只需更改框架的高度。我将框架的BorderStyle属性放在0=fmBorderStyleNone中是否尝试重新启动?听起来AutoDesk中存在禁止初始化调用的设置。这可能是一个安全设置。谢谢你的反应。我已经进行了多次重新启动(我已经为此挣扎了一周:))。如果它可以是一个安全设置,那么在初始化调用中所有其他控件都会被调整大小和移动,这不是很奇怪吗?