急，listbox对相同的项只显示一次

2007-12-10 04:03:30 136 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

black205 墨衍会员 · AI 创作全网分发关注 + 加入社区

VBA提高篇_26 Textbox多行_ListBox_ComboBox ☆ Rowsource属性与List属性冲突,不能混合使用。阅读详情

在VB中listbox对相同的项只显示一次應該怎么樣做呢？哪位大俠告知一下，謝謝

...全文

BIM模型轻量化避坑指南：Revit导出GLTF常见问题及解决方案本文深入探讨了BIM模型轻量化过程中，从Revit导出GLTF格式时遇到的常见问题与解决方案。针对文件体积膨胀、材质丢失、属性信息缺失等核心痛点，提供了从数据预处理、Draco几何压缩、纹理优化到Web端性能调优的全流程实战指南，帮助工程师高效实现BIM模型在WebGL环境中的流畅展示与交互。阅读详情

black205

VB基础类 7,788 成员 197,583 内容

+ 关注 + 加入社区

切换为时间正序

YuLv 2007-12-11

打赏
举报

SendMessage 的方法是最好的选择，楼上正确。

Sandrer 2007-12-11

打赏
举报

嘿嘿,来个API版,速度更快，不用循环



Const LB_ADDSTRING = &H180

Const LB_FINDSTRING = &H18F



Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long



Dim lngIndex As Long

Dim strItem As String

strItem = "这个变量等于你要插入到ListBox中的值"

lngIndex = SendMessage(List1.hWnd, LB_FINDSTRING, -1, ByVal strItem) '这里设置-1,是表示从头开始查找

If lngIndex = -1 Then '等于-1则表示没有找到匹配项目

    SendMessage List1.hWnd, LB_ADDSTRING, 0, ByVal strItem '增加项目到ListBox中

End If

of123 2007-12-11

打赏
举报

用这个参数：



Const LB_FINDSTRINGEXACT = &H1A2

black205 2007-12-10

打赏
举报

謝謝樓上的兄弟，在參考你給的程序下問題解決了，謝謝

ZOU_SEAFARER 2007-12-10

打赏
举报

Private Sub Command1_Click()
On Error Resume Next
Dim vntA As Variant
Dim colX As New Collection
Dim intILoop As Integer
vntA = Array("abc", "abd", "abc", "abe") '//there are two "abc"
For intILoop = 0 To UBound(vntA)
Call colX.Add(vntA(intILoop), vntA(intILoop))
Next

For intILoop = 1 To colX.Count
Me.List1.AddItem colX.Item(intILoop)
Next

End Sub

东方之珠 2007-12-10

打赏
举报

dim i as Long,j as long
For i=0 to File1.ListCount-1
if File1.Selected(i)=True then "凡是选中的就添加（不能重复）
for j=0 to List1.ListCount-1
if trim(List1.List(j)) < >trim(File1.List(i)) then
List1.AddItem File1.List(i)
List1.refresh
endif
next
endif
next

急，listbox对相同的项只显示一次

相关推荐