Question

当我运行此代码时，它会给出一个错误，表示值不能为空

If (A >= 1) Then
    Item1 = fish
    ListBox1.Items.Add(Item1)
Else
    If (A = 0) Then
        If ListBox1.Items.Contains(Item1) = True Then
            While ListBox1.Items.Contains(Item1) = True
                ListBox1.Items.Remove(Item1)
            End While
        End If
    End If
End If

错误来自此行

If ListBox1.Items.Contains(Item1) = True Then

所有整数都已经暗淡

我要做的是如果列表框中包含项目1应该被删除

如果我将A值设为1然后将其更改为0

，则代码可以正常工作

但如果我从一开始就给A值0，那么代码就会崩溃

请帮助

谢谢

Answer 1

更改

If ListBox1.Items.Contains(Item1) = True Then

到

If Item1 IsNot Nothing AndAlso ListBox1.Items.Contains(Item1) Then

VB.net listBox删除项目

1 个答案: