For I=1 to List.Count
    Debug.Print I;",";List.Select(I)
    
Next I

解决方案 »

  1.   

    错了,是:For I=1 to List.Count
        Debug.Print I;",";List.Select(I-1)
        
    Next I
      

  2.   

    你要读取哪些被选中是要达到什么目的?可以用一个循环:
    for i=1 to list1.listcount
        If List1.Selected(i) = True Then
            Text1.Text = Val(Text1.Text) + 1    ‘记录被选中的记录数
        End If
    Next i
      

  3.   

    List1.Selected(i) =true 表示被选中
      

  4.   

    还是写错了:
    List.Selected(I-1)
      

  5.   

    for i=1 to list1.listcount
        If List1.Selected(i) = True Then
            msgbox "记录被选中的记录数"
        End If
    Next i 
      

  6.   

    注意允许多选的处理for i=1 to list1.listcount
        If List1.Selected(i) = True Then
            Text1.Text = Val(Text1.Text) + 1    ‘记录被选中的记录数
        End If
    Next i 
     
    对不起,打扰各位一下,一个难题http://www.csdn.net/expert/topic/485/485482.shtm 
      

  7.   

    to lihonggen0(用VB):listbox的记录索引是从0开始的
      

  8.   

    to vxhelp(我是第一万个BUG):
    你抄袭!
      

  9.   

    to vxhelp(我是第一万个BUG):
    你抄袭!