Question

关于动态创建控件组的问题

我已经创建成功了一个控件组 名称为 lab，现在我要通过controls的方法引用这个控件组或它的成员，但是程序提示出错，不支持这种引用
Private Sub Command1_Click()
Dim lab() As Label
ReDim lab(10) As Label
Dim i%
For i = 0 To 10
Set lab(i) = Controls.Add("vb.label", "lab" & i)
lab(i).Visible = True
Next i

MsgBox lab.Count '出错

Call my1("lab")
End Sub

Function my1(s_lab)
MsgBox Controls(s_lab).Count '出错
MsgBox Controls(s_lab)(1).Caption '出错
上面三个出错，请帮忙解决

Answer 1

private sub command1_click()
Dim lab(10) As Label
Dim i%
For i = 0 To 10
Set lab(i) = Controls.Add("vb.label", "lab" & i)
lab(i).caption=i+1
lab(i).Visible = True
Next i
MsgBox UBound(lab) + 1
Call my1(lab)
End Sub

Function my1(s_lab() As Label)
MsgBox UBound(s_lab) + 1
MsgBox s_lab(1).Caption
End Function

追问

基本解决我的问题了
如果必需要用到动态控件组的count属性应该怎么写呢（因为如果我删除其中某一个控件后，ubound(s_lab)值就不等于控件总数了"

追答

你先在窗体放一个lab控件，index属性=0
然后在代码里加载控件数组

追问

你说是另一种创建动态控件组的方法，我用的这种创建动态控件组方法，count属性怎么办解决呢

追答

你这种方法创建的不是控件数组

追问

这种方法肯定是控件数组，否则后面怎么可以用ubound()这个函数
还有s_lab(1).caption也可以用
谢谢你回答

追答

呵呵，用下面的语句就可以测试真假:
msgbox lab(3).index

追问

我认为是介乎控件组和非控件组之间，只是控件组有的属性支持，有的不支持罢了

Answer 2

lab是一个树组,需要使用UBOUND方法获取其上限,另外,你创建的并不是控件数组,而是一个个的控件,名称分别为"lab0","lab1"等等.
创建控件数组应该使用load方法了

追问

你说的load 是创建动态控件组的方法之一
我用的是另一种方法，不需要手动画一个控件，再创建

追答

en!