7,763
社区成员
发帖
与我相关
我的任务
分享listbox数组的使用
使用下面的语句
Dim te(100) As ListBox
te(0).AddItem "kkkk"
发现在添加列表项的时候总出错
Dim te(100) As ListBox
te(0).AddItem "kkkk"
发现在添加列表项的时候总出错
...全文
请发表友善的回复…
发表回复
射天狼 2004-04-14
- 打赏
- 举报
'首先在窗口中加一个LISTBOX控件,将其INDEX属性设置为0
Dim intIndex As Long
intIndex = List1.Count + 1
Load List1(intIndex)
List1(intIndex).Visible = True
Dim intIndex As Long
intIndex = List1.Count + 1
Load List1(intIndex)
List1(intIndex).Visible = True
weaest 2004-04-14
- 打赏
- 举报
还要在界面上先创建一个list,命名为te,index=0
victorycyz 2004-04-14
- 打赏
- 举报
控件数组要先load, 不用dim声明:
dim i as integer
for i=1 to 100
load te(i)
with te(i)
.top=...
.left=...
.visible=true
.additem ...
end with
next i
