怎样判断listbox框中的所有选项没被选中?

[fsroger]

怎样判断listbox框中的所有选项没被选中?

[sinopec_fjnp]

i=list1.listindex
如果i=-1表示没有选中
记得结帖啊

[blueer]

If listbox1.selcount=0 then
msgbox "None Item selected"
End if

[griefforyou]

Option Explicit

Private Sub Command1_Click()
Dim i As Integer
For i = 0 To List1.ListCount - 1
If List1.Selected(i) = False Then
Exit For
End If
Next

If i < List1.ListCount Then
MsgBox "没有全选"
Else
MsgBox "全选"
End If
End Sub

Private Sub Form_Load()
Dim i As Integer
For i = 0 To 10
List1.AddItem "text" & i
Next
End Sub

[ccbl]

同意楼上的

[Bird_L]

if list.lsitindex=-1 then
msgbox"没有选中"
end if

[fsroger]

终于搞定了，不过我说的是listbox