string - 检查列表框中的项目忽略大小写

Question

一些旨在将电子邮件别名添加到列表框的代码存在问题。我有一个内置的检查，以确保您尝试添加的项目不在列表中，但是当我不希望它出现时，检查区分大小写。我不知道如何让它忽略这种情况......这是我的代码:

Dim ItemToAdd as String = ""

ItemtoAdd = tbxItemtoAdd.Text + "@emaildomain.co.uk"

If Not lbxEmailAliases.Items.Contains(ItemtoAdd) Then
    lbxEmailAliases.Items.Add(ItemtoAdd)
End If

目前，如果列表框包含 johnsmith24 @emaildomain.co.uk 并且您尝试添加 Johnsmith24 (大写 J)，它将成功添加，但我不希望它这样做。我如何让它忽略大小写？

我已经尝试将 lbxEmailAliases.Items.Contains(ItemtoAdd) 更改为 lbxEmailAliases.Items.Contains(ItemtoAdd, StringComparison.CurrentCultureIgnoreCase) 但它对此并不满意，因为有太多参数，它只需要一个。

请问有什么想法吗？

Answer 1

如果这是一个标准的 WinForm ListBox 控件，那么如果不循环遍历所有项目并单独检查每个项目，就无法做到这一点。例如:

Dim found As Boolean = False
For Each item As Object In ListBox1.Items
    found = item.ToString().Equals(ItemToAdd, StringComparison.CurrentCultureIgnoreCase)
    If found Then
        Exit For
    End If
Next
If found Then
    lbxEmailAliases.Items.Add(ItemtoAdd)
End If

但是，如果您对 LINQ 感到满意，则可以像这样更简洁地进行操作:

If ListBox1.Items.OfType(Of String).Any(Function(item) item.Equals(ItemToAdd, StringComparison.CurrentCultureIgnoreCase)) Then
    lbxEmailAliases.Items.Add(ItemtoAdd)
End If

或者，正如 Andy G 指出的那样，LINQ Contains 方法更容易，因为它接受 IEqualityComparer 和框架提供的支持不区分大小写字符串比较的股票:

If ListBox1.Items.OfType(Of String).Contains(ItemToAdd, StringComparer.CurrentCultureIgnoreCase) Then
    lbxEmailAliases.Items.Add(ItemtoAdd)
End If