有一些问题的问题旨在向列表框添加电子邮件别名.我有一个内置的检查,以确保您尝试添加的项目不在列表中,但检查是区分大小写,当我不希望它.我不知道如何让它忽略这个案例……这是我的代码:
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),但由于参数太多,它只会占用一个,因此对此不满意.
有什么想法吗?
解决方法
如果这是一个标准的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
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。