VB.net阻止列表框删除错误捕获

时间:2014-09-02 23:30:10

标签: vb.net

我有2个列表框并使用按钮删除列表框中的每个项目。使用第一个列表框的索引删除第二个列表框。问题是当没有选择项目时会发生错误。

If ListBox1.SelectedItem = -1 Then
Exit Sub
Else
ListBox2.Items.RemoveAt(ListBox1.SelectedIndex)
ListBox1.Items.Remove(ListBox1.SelectedItem)
Calculate()
End If

如果所选项目为-1(未选择任何项目),它应该停止。停止操作。

1 个答案:

答案 0 :(得分:0)

如果未选择任何项目,那么您正在测试的SelectedItem将为NothingSelectedIndex为-1。

此外,如果您只想在一个案例中执行某些操作,请不要使用If...Else。只是颠倒条件:

If ListBox1.SelectedIndex <> -1 Then
    ListBox2.Items.RemoveAt(ListBox1.SelectedIndex)
    ListBox1.Items.Remove(ListBox1.SelectedItem)
    Calculate()
End If