[求助]VBA怎么实现类似控件数组功能？

simatyga

我要做一个对话框程序，里面有50个Label控件，其Caption属性在对话框初始化时

根据数据库中的值初始化，在VB中可以使用控件数组，即控件名称为Label[1]、

Label[2]....Label[50]，用类似下面语句实现初始化 for i=1 to 50 Label.caption=readdb(1) 'readdb为读取第i个数据库的函数 next i

但是在VBA中好像不支持控件数组，那么怎样才能方便的初始化这么多Label控件？

simatyga

基本已经解决，给有类似问题的兄弟一个方法，使用对话框的Controls属性，配合循环来处理，虽然不及控件数组，但是基本可以满足我现在的要求，部分代码如下：

For Each Control In fmWsjy.Controls If Control.Name Like "CheckBox*" Then Call InitCheckBox '初始化复选框 End If If Control.Name Like "Label*" Then Call InitLabel '初始化改标签 End If Next

哪位大侠有更好的方法，请赐教

[此贴子已经被作者于2005-9-25 8:56:56编辑过]