VBA窗体Listview控件完全教程

潇戈

ivccav 发表于 2018-7-14 20:45
Remove的效率是比较低的，其实可以在For循环中再设置一个变量记录满足条件的行数，每次Change事件发生时 ...

ivccav老师，能否给个范例，将数据库内容通过ListView1显示，并选择性导出到excel中，谢谢。

ivccav

潇戈 发表于 2019-1-14 09:35
ivccav老师，能否给个范例，将数据库内容通过ListView1显示，并选择性导出到excel中，谢谢。

导出数据的功能也有提供啊，我为了减少复杂性，分开来讲了。下次可以自己添加进去的。
另外Listview初始化时增加多选和复选框属性就行了。附件上传错误，能上传的时候再传了。

更复杂的操作，可用其他控件了：http://club.excelhome.net/thread-1454440-1-1.html

潇戈

ivccav 发表于 2019-1-14 12:35
导出数据的功能也有提供啊，我为了减少复杂性，分开来讲了。下次可以自己添加进去的。
另外Listview初 ...

ivccav老师，可能是我没有清楚，*.ACCESS或*.mdb作为数据库将查询内容显示在ListView1中，并选择性导出到excel中，请给个范例，谢谢。

ivccav

潇戈 发表于 2019-1-14 13:16
ivccav老师，可能是我没有清楚，*.ACCESS或*.mdb作为数据库将查询内容显示在ListView1中，并选择性导出到 ...

2楼的附件本来就有Access版本，导出数据是简单的功能：

循环Listview控件的数据，哪个选中了就输出，这样就行了。

支持增删改查和数据导出功能.zip (50.01 KB, 下载次数: 372)

2019-1-14 16:04 上传

点击文件名下载附件

潇戈

ivccav 发表于 2019-1-14 16:05
2楼的附件本来就有Access版本，导出数据是简单的功能：

循环Listview控件的数据，哪个选中了就输 ...

ivccav老师太感谢了，您的教程是标准教科书，而且还比较具体，把我以前2步完成，通过学习您的教程一步就实现了，真心谢谢您

ivccav

潇戈 发表于 2019-1-14 16:16
ivccav老师太感谢了，您的教程是标准教科书，而且还比较具体，把我以前2步完成，通过学习您的教程一步就 ...

不客气。有空可以看看VSFlexgrid控件，那个更强大。

在窗体连接数据库时，用那个控件更简单，不需要处理跟数据库的交互

05050818

ivccav 发表于 2018-10-4 23:27
需要导出的内容已经放进数组中，无论导出到Sheet2或者新工作簿都只是几句话的事情了，不知道你的具体要 ...

你好，老师，请问一个问题。
   我想实现一个功能，就是Treeview与Listview相互作用的问题。
      当我在Treeview中选定数据时，把数据关联到LIstview，并高亮显示（即选中该行）
比如，TREEVIEW在节点关键字，“某某公司”当选中该关键字时，在LISTVIEW中查找到该关键字，并将光标定位到该有行？如何实现？？

ivccav

05050818 发表于 2019-1-15 11:30
你好，老师，请问一个问题。
   我想实现一个功能，就是Treeview与Listview相互作用的问题。
      当 ...

Listview只能从第一个字符开始匹配，不能从中间的字符匹配。比如：

Listview控件有“Adobe”字符，搜索“ob”是没有匹配项的，只能从第一个字符开始：Adob

最简单的办法是自己写一个循环，循环Listview指定的列即可，可能比原有方法还高效些。

1. 'lvwText ：值0，（缺省）将字符串与 ListItem 对象的 Text 属性相匹配。
   
2. 'lvwSubitem ：值1 ，将字符串与 ListItem 对象的 SubItems 属性相匹配。
   
3. 'lvwTag ：值2 ，将字符串与 ListItem 对象的 Tag 属性相匹配。
   
4. 
   
5. 'lvwWholeWord：值0（缺省，）一个整数或常数，它指定若项目的Text属性由所搜索的整字开始时匹配成功。搜索条件非文本时忽略此设置。
   
6. 'lvwPartial：值1，一个整数或常数，它指定若项目的Text属性由所搜索的字符串开始时匹配成功。搜索条件非字符串时忽略此设置。
   
7. With ListView1
   
8.     Dim lst As MSComctlLib.ListItem
   
9.     Set lst = .FindItem(TextBox1, lvwSubItem, , lvwWholeWord)
   
10.     If Not lst Is Nothing Then
    
11.         Set .SelectedItem = lst
    
12.         .SelectedItem.EnsureVisible
    
13.         .SetFocus
    
14.     End If
    
15. End With

复制代码

05050818

ivccav 发表于 2019-1-15 15:43
Listview只能从第一个字符开始匹配，不能从中间的字符匹配。比如：

Listview控件有“Adobe”字符， ...

非常感谢，又学到了。感谢大神。

10307951261

谢谢分享，收藏了