今日最简单最实用问题(散分):去除listbox中重复地址
2066 2003-12-19 08:45:01 今日最简单最实用问题(散分):去除listbox中重复地址
设置名为list1的listbox中已有大量地址,下面要实现去除重复地址
Private Sub cmdRemove_Click(ByVal eventSender As System.Object, ByVal eventArgs As
System.EventArgs) Handles cmdRemove.Click
Dim lstcount2 As Object
Dim lstcount1 As Object
For lstcount1 = 0 To List1.Items.Count - 1
For lstcount2 = 0 To List1.Items.Count - 1
If LCase(VB6.GetItemString(List1, lstcount2)) = LCase
(VB6.GetItemString(List1, lstcount1)) Then
List1.Items.RemoveAt(lstcount2)
End If
Next lstcount2
Next lstcount1
End Sub
问题是:
1.上面的代码添加引用Microsoft.VisualBasic.Compatibility,如何添加。我用vb6升级到vb.net 2003,自动
添加了引用。手动添加则找不到该引用。
2.上面代码虽能去除重复,但把不该去掉的也去掉了。比如有不重复十个地址,去重处理后只剩8个。该如何改
进?
3.不用vb6兼容模式,该如何写代码。
谢谢回答。