Listview 的运用

一指禅62

lsh888 发表于 2016-11-25 23:54
电脑里有  MSCOMCTL.OCX  这个文件啊，

第一步，打开 VBA 工程窗口，依次打开菜单【工具】、【引用】，若有打勾的“出错”提示，不勾选，关闭对话框；
第二部，在窗体的相应位置，重画Listview控件。


若以上办法无效，则在坛子里搜搜相应错误的解决办法。Listview控件在VBA窗体列表的应用很普遍，熟练运用他很有必要。

补充内容 (2017-10-20 20:46):
选择部分字段、部分记录输出  77楼          http://club.excelhome.net/thread-703775-8-1.html

tacomomo

谢谢分享，收藏ing……

jsgj2023

感谢分享，占位学习。

13825719951

一指禅62 发表于 2014-8-6 17:33
增加了借助 ImageList 控件调整行高

感谢，今天又学了一招，设置行高。
以前的数据挤在一起，象是没住房一样。。。

lzqmsy

再次留个记号!!!

一指禅62

Win7 64位 注册控件失败的解决办法 参考

http://www.accessoft.com/article-show.asp?id=7165



该例解决的是 MSCOMCT2.OCX (日历控件)，不是 MSCOMCTL.OCX (ListView控件），注意区别。
注册方法一样一样。

一指禅62

选择字段、部分记录输出输出



ListView记录选择性导出.zip (39.7 KB, 下载次数: 780)

2017-10-20 20:42 上传

点击文件名下载附件

老鬼公公_31

一指禅62 发表于 2017-10-20 20:42
选择字段、部分记录输出输出

可以实现全选功能吗，点下一个键可以全选listview里面的内容

一指禅62

老鬼公公_31 发表于 2017-10-21 23:05
可以实现全选功能吗，点下一个键可以全选listview里面的内容

对 ListBox ，代码如下：

1. Private Sub cmd选中_Click()
   
2.     Dim Flag As Boolean
   
3.     If ListBox1.ListCount = 0 Then Exit Sub
   
4.     If cmd选中.Caption = "全选" Then
   
5.         Flag = True
   
6.         cmd选中.Caption = "全不选"
   
7.     ElseIf cmd选中.Caption = "全不选" Then
   
8.         Flag = False
   
9.         cmd选中.Caption = "全选"
   
10.     End If
    
11.     For i = 0 To ListBox1.ListCount - 1
    
12.         ListBox1.Selected(i) = Flag
    
13.     Next
    
14. End Sub

复制代码

一指禅62

老鬼公公_31 发表于 2017-10-21 23:05
可以实现全选功能吗，点下一个键可以全选listview里面的内容

对ListView1,代码如下：

1. Private Sub cmd选中_Click()
   
2.     Dim Flag As Boolean
   
3.     If ListView1.ListItems.Count = 0 Then Exit Sub
   
4.     If cmd选中.Caption = "全选" Then
   
5.         Flag = True
   
6.         cmd选中.Caption = "全不选"
   
7.     ElseIf cmd选中.Caption = "全不选" Then
   
8.         Flag = False
   
9.         cmd选中.Caption = "全选"
   
10.     End If
    
11.     For i = 1 To ListView1.ListItems.Count
    
12.         ListView1.ListItems(i).Checked = Flag
    
13.     Next
    
14. End Sub

复制代码