listbox数组的使用

Question

使用下面的语句
Dim te(100) As ListBox
te(0).AddItem "kkkk"
发现在添加列表项的时候总出错

Answer 1

控件数组要先load, 不用dim声明:dim i as integerfor i=1 to 100
    load te(i)
    with te(i)
        .top=...
        .left=...
        .visible=true        .additem ...    end with
next i

Answer 2

还要在界面上先创建一个list,命名为te,index=0

Answer 3

'首先在窗口中加一个LISTBOX控件,将其INDEX属性设置为0
    Dim intIndex As Long
    
    intIndex = List1.Count + 1
    Load List1(intIndex)
    List1(intIndex).Visible = True