ListBox的问题？？？

Question

我将ListBox的样式设为check，但我想把列表项目多选或全选时出差：
   private sub cmdSelectAll()
     dim i as intger
     for i=0 to list1.listcount-1
     list1.selected(i)=true
     next
   end sub  报错：堆栈空间溢出。
  listbox有一个多重选择重属性不能在样式为check情况下设为多选。
  郁闷。。
  请教高手！！！！

Answer 1

这断代码是没有问题的：    Dim I  As Integer
    For I = 0 To List1.ListCount - 1
       List1.Selected(I) = True
    Next
“listbox有一个多重选择重属性不能在样式为check情况下设为多选”
当然不行
你可以通对Selected得到那些选择了

Answer 2

当<MultiSelect>设置为none才能把<style>设置为check.
因为check模式本身就是一个多选模式.

Answer 3

check模式本身就是一个多选模式同意

Answer 4

Private Sub List1_ItemCheck(Item As Integer)
Dim i
For i = 0 To List1.ListCount - 1
List1.Selected(i) = False
List1.Selected(List1.ListIndex) = True
Next
End Sub
这样不就可以把它变成只能单选啦，呵呵……

Answer 5

Dim i As Long
 For i = 0 To List1.ListCount - 1
 List1.Selected(i) = True
 Next我怎么试也没你说的错误。你还是看看别的地方有没错。
当把style设置为check的时候，MultiSelect会自动设置为none。

Answer 6

为什么楼主一个贴也不结？
http://community.csdn.net/Expert/ForumList_Search.asp?searchtype=1&bigclassid=51&smallclassid=5101&searchKeys=%25&author=hxfkof&tabletype=now