Listview 的运用

碣石山人 · 发表于 2019-3-3 14:42

谢谢楼主分享，受益匪浅！

xjyltysy11 · 发表于 2019-3-21 16:49

谢谢楼主无私分享

10307951261 · 发表于 2019-4-7 20:35

谢谢分享！！

warton01 · 发表于 2019-4-18 12:39

谢谢楼主的无私分享

1249994139 · 发表于 2019-5-3 21:15

谢谢楼主的无私分享，留印学习

10307951261 · 发表于 2019-5-13 22:17

大虾 Private Sub cmd查询_Click()
Dim Item As MSComctlLib.ListItem, k%
ListView1.ListItems.Clear
Erase ListRows: Erase ListCols  '清空数组
For i = 2 To UBound(arr)
      If arr(i, 2) Like "*" & ComboBox1.Text And arr(i, 3) Like "*" & ComboBox2.Text And _
         arr(i, 7) Like "*" & ComboBox3.Text Then
         For j = 4 To 7 '依次检索责任者、文件字号、文件题名、文件日期
            If arr(i, j) Like "*" & TextBox1.Text & "*" Then
                  Set Item = ListView1.ListItems.Add
                  Item.Text = arr(i, 1)
                  For k = 2 To UBound(arr, 2)
                     Item.SubItems(k - 1) = arr(i, k)
                  Next
                  Exit For
            End If
         Next
      End If
Next
k = ListView1.ListItems.Count
Label10.Caption = "检索结果：" & IIf(k > 0, "从 " & UBound(arr) - 1 & " 条记录中匹配出 " & k & " 条记录。", "无匹配的记录。")
End Sub，套用你的代码出现类型不匹配，麻烦你看一下是什么原因

一指禅62 · 发表于 2019-5-14 10:42

10307951261 发表于 2019-5-13 22:17
大虾 Private Sub cmd查询_Click()
Dim Item As MSComctlLib.ListItem, k%
ListView1.ListItems. ...

已跟帖回复

http://club.excelhome.net/forum. ... id=1477036#lastpost

xijun0312 · 发表于 2019-8-16 21:54

感谢分享。

cui26896 · 发表于 2019-10-13 17:20

对建立 Listview，在WIN10,excel2013下可以这样来做，我已经试过。在编辑栏中点开发工具，点插入，直接选择ActiveX中最后一项，其他控件，在出现的选框下中就可以找到Microsoft ListView Control, version 6.0（还有Microsoft TreeView Control, version 6.0），选中后，在表中就可以画出 ListView框了。

一指禅62 · 发表于 2019-11-3 21:54

本帖最后由一指禅62 于 2019-12-2 09:10 编辑

出现 “类未注册。查找具有以下clsid的对象:{7ebdaae2-8120-11cf-899f-00aa00688b10}” （如图）的解决方案：
类注册.png

将

MSSTKPRP.zip (36.37 KB, 下载次数: 123) 该文件复制到【System32 】文件夹中，运行命令： Regsvr32 C:\Windows\System\Msstkprp.dll，完成 Msstkprp.dll 档案注册即可。

详见 http://club.excelhome.net/thread-1071241-1-1.html

		自动登录	找回密码
密码			免费注册

[推荐] Listview 的运用