请问如何遍历ListBox里的所有项目？

Question

这样为什么提示错误：
For ii = 1 To RDept.ListCountmsgbox  RDept.ListIndex(ii)next错误的参数号或无效的属性赋值？
谢谢了！！

Answer 1

index是从0开始到ListCount-1，所以你的操作越界了

Answer 2

已改成：For ii = 0 To RDept.ListCount-1msgbox  RDept.ListIndex(ii)next但还是出错，错误跟原来是一样的。

Answer 3

For ii = 0 To RDept.ListCount-1
     msgbox  RDept.List(ii)//你这一行的方法错了
next

Answer 4

对这个语句有问题：     msgbox  RDept.List(ii)//你这一行的方法错了

Answer 5

For ii = 0 To RDept.ListCount-1
     msgbox  RDept.List(ii)
next

Answer 6

For ii = 0 To RDept.ListCount-1   msgbox  RDept.List(ii)next可以查帮助看一下，ListIndex 属性 返回一个数字，后面没有参数

Answer 7

For ii = 0 To RDept.ListCount-1   msgbox  RDept.List(ii).textnext

Answer 8

For ii = 1To RDept.ListCount
   msgbox  RDept.List(ii-1).textnext