1,216
社区成员
发帖
与我相关
我的任务
分享请问如何遍历ListBox里的所有项目？
这样为什么提示错误：
For ii = 1 To RDept.ListCount
msgbox RDept.ListIndex(ii)
next
错误的参数号或无效的属性赋值？
谢谢了！！
For ii = 1 To RDept.ListCount
msgbox RDept.ListIndex(ii)
next
错误的参数号或无效的属性赋值？
谢谢了！！
...全文
请发表友善的回复…
发表回复
mouseanAnya 2003-09-02
- 打赏
- 举报
For ii = 0 To RDept.ListCount-1
msgbox RDept.List(ii)
next
可以查帮助看一下，ListIndex 属性 返回一个数字，后面没有参数
msgbox RDept.List(ii)
next
可以查帮助看一下，ListIndex 属性 返回一个数字，后面没有参数
lxqlogo0 2003-09-02
- 打赏
- 举报
For ii = 0 To RDept.ListCount-1
msgbox RDept.List(ii)
next
msgbox RDept.List(ii)
next
dengyiwolf 2003-09-02
- 打赏
- 举报
msgbox RDept.list(ii)
zxlkxy 2003-09-02
- 打赏
- 举报
对这个语句有问题： msgbox RDept.List(ii)//你这一行的方法错了
sysmaster 2003-09-02
- 打赏
- 举报
For ii = 0 To RDept.ListCount-1
msgbox RDept.List(ii)//你这一行的方法错了
next
msgbox RDept.List(ii)//你这一行的方法错了
next
skywen 2003-09-02
- 打赏
- 举报
已改成：
For ii = 0 To RDept.ListCount-1
msgbox RDept.ListIndex(ii)
next
但还是出错，错误跟原来是一样的。
For ii = 0 To RDept.ListCount-1
msgbox RDept.ListIndex(ii)
next
但还是出错，错误跟原来是一样的。
superxmz 2003-09-02
- 打赏
- 举报
index是从0开始到ListCount-1，所以你的操作越界了
yijiansong 2003-09-02
- 打赏
- 举报
For ii = 1To RDept.ListCount
msgbox RDept.List(ii-1).text
next
msgbox RDept.List(ii-1).text
next
lxcc 2003-09-02
- 打赏
- 举报
list(ii)后面有text属性吗？
cansum396 2003-09-02
- 打赏
- 举报
For ii = 0 To RDept.ListCount-1
msgbox RDept.List(ii).text
next
msgbox RDept.List(ii).text
next
lihonggen0 2003-09-02
- 打赏
- 举报
msgbox RDept.list(ii)
