我有一个表单，我可以在其中动态实例化来自自定义类模块的对象。结果对象被定义为公共对象，然后我可以通过以下方式在模块中访问Forms("Formname").objName1.Property
我也想动态访问对象，就像在控件集合中一样：Forms("Formname").Controls("objName" & ID).Property但是没有对象集合。
有人有建议吗？
您可以为此使用可公开访问的集合，例如
Dim myObjects As Collection
Private Sub Form_Load()
Set MyObjects = New Collection
MyObjects.Add Obj1, "First Object"
MyObjects.Add Obj2, "Second Object"
End Sub
然后，在全局范围内：
Forms("MyForm").MyObjects("First Object").Property
当然，如果你真的想做一些花哨的事情，你可以使用自定义集合类，这将允许你更好地控制类并对其成员进行智能感知。
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
我来说两句