Question

VB listbox中selected问题

Private Sub cmdDelete_Click()
Dim i As Integer
For i = 0 To lstSelect.ListCount - 1
If lstSelect.Selected(i) = True Then
lstSelect.RemoveItem (i)
'Form2.List1.RemoveItem (i)
End If
Next i
End Sub

为什么会出错啊？
说是If lstSelect.Selected(i) = True Then
index有错

Answer 1

删除一个选项后 index就发生了改变
Private Sub cmdDelete_Click()
Dim i As Integer
For i = lstSelect.ListCount - 1 To 0 Step -1
If lstSelect.Selected(i) = True Then
lstSelect.RemoveItem (i)
'Form2.List1.RemoveItem (i)
End If
Next i
End Sub

Answer 2

改为：
Private Sub cmdDelete_Click()
Dim i As Integer
For i = 0 To lstSelect.ListCount - 1
If lstSelect.Selected(i) = True Then
lstSelect.RemoveItem i
Form2.List1.RemoveItem i
End If
Next i
End Sub
你试试