listviews下标越界问题求助！

Question

本帖最后由 azhu1hao 于 2009-12-22 13:25:24 编辑

Answer 1

定义的时候
Dim bfile(List1.ListItems.Count-1) 

Answer 2

或者
Dim bfile()    
redim bfile(List1.ListItems.Count-1)

Answer 3

bfile(I-1) = List1.ListItems.Item(I).SubItems(1)

Answer 4

定义那地方还是dim bfile()吗
下面照你那样减1了，又提示下标越界

Answer 5

数组索引默认是0开始的
其实可以指定下标和上标Dim bfile(1 to List1.ListItems.Count) ,这样下面就不用-1了

Answer 6

兄弟，我真的很郁闷啊那个地方还是提示”要求常数表达式“
我选择了文件过 后list1.listitems.count是一个常数啊,怎么定义数组的时候就不行了

Answer 7

也不知道具体你那是什么情况
Dim bfile(1 to List1.ListItems.Count) as string 试试吧

Answer 8

.......我试了下，得用redim才行,用2楼方法可以了

Answer 9

For I = 1 To List1.ListItems.Count 改为 For I = 0 To List1.ListItems.Count -1 就好 缺省下标从0开始的 

Answer 10

Dim bfile()    
redim bfile(List1.ListItems.Count-1)
最好放到for循环外.14楼,错误的,Item(I)这个I也要对应的哦

Answer 11

lz加的位置有问题Private Sub Command1_Click()
    Dim bfile()
    redim bfile(List1.ListItems.Count-1)  For I = 1 To List1.ListItems.Count 
    
    bfile(I) = List1.ListItems.Item(I).SubItems(1) '就这里提示下标越界      
     Open bfile(I) For output As #1
    Get #1, , ftb '将选择的文件输入到ftb
    Close #1
    Open App.Path & "/test.txt" For output As #2
    Print #2,ftb
    Close #2
    Next I
  End Sub