今日最简单最实用问题(散分):去除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兼容模式,该如何写代码。

谢谢回答。
...全文
53 4 打赏 收藏 举报
写回复
4 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
2066 2003-12-20
已解决,我的方法是,先在csdn全文搜索,得到vb6的代码,然后升级到.net,再手工适当修改,得到代码如下:测试通过
Private Sub mnuTest_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuTest.Click
Dim i As Short

Dim newList() As String

Dim CurId As Short
' List1.Sorted = True

With list1

ReDim Preserve newList(0)

newList(0) = .Items(0)

For i = 1 To .Items.Count - 1

CurId = UBound(newList)

If .Items(i) <> newList(CurId) Then

ReDim Preserve newList(CurId + 1)

newList(CurId + 1) = .Items(i)

End If

Next i

.Items.Clear()

For i = 0 To UBound(newList)

.Items.Add(newList(i))

Next i

End With
End Sub
  • 打赏
  • 举报
回复
2066 2003-12-20
具体点呢
  • 打赏
  • 举报
回复
wubin264 2003-12-20
对啊,可以用一个数组或者是集合什么的,先转存一次,思路比较清晰
  • 打赏
  • 举报
回复
待接入自我 2003-12-19
说真的,还是弄个字符串数组暂存一下唯一的项,然后把list清空,再把数组中的项添回去.
这样来的实在,算法简单,效率很高
而且以后别人也好看懂啊~~
  • 打赏
  • 举报
回复
相关推荐
课程设计-基于C++的mfc框架的学生社团管理系统源码+数据库+报告.zip 本系统实现的功能 本程序为单文档应用程序,主程序界面能实现查询社团信息、修改社团信息、删除社团信息、添加社团信息、入团、退团、用户登录、和用户管理功能其修改社团信息、删除社团信息、添加社团信息和用户管理需要用户登录后才能使用,未登录就点击使用的会会弹出对话框显示您还没有登录,点击登录按钮会弹出用户登录对话框输入正确的用户名称和密码若验证成功则会显示登录成功并显示出您用有的权限高级管理员或者是普通管理员,高级管理员则可以对社团信息进行修改、删除、添加。点击入团按钮会弹出加入社团对话框,在对话框内填上相应的信息后点击确定成功加入后会有相关提示,若没有成功则有可能您输入的社团不存在,点击退团按钮弹出退出社团对话框,输入您要退出的社团名称和学号点击确定如果成功退出会显示成功的标志,否则的话就是您没有假如该社团活着您填的信息不完全。在主程序对话框可以直接在控件内输入要修改的社团信息,然后点击修改按钮,分别输入控件的内容然后点击添加按钮,若要添加的社团当前没有的话则添加成功,否则会失败。登录了以后点击用户管理按钮则会弹出用户管理对话框,在该对话框内可以修改用户密码,高级管理员还能注册新用户。
发帖
VB
加入

1.6w+

社区成员

VB技术相关讨论,主要为经典vb,即VB6.0
社区管理员
  • VB.NET
  • 水哥阿乐
  • 无·法
申请成为版主
帖子事件
创建了帖子
2003-12-19 08:45
社区公告
暂无公告