VBA常用技巧代码解析

zjl1934

太好啦！谢谢！

zjl1934

多谢共享！

zjl1934

多谢！多谢共享啊！

zjl1934

多谢您的共享！

zjl1934

非常高兴您的分享啊！

zjl1934

您辛苦啦，多谢分享！

kawayimao

谢谢LZ分享！

Collinexcel

静下心来，认真向版主学习！

yuanzhuping

技巧131         使用Listview控件
131-4        在Listview控件中排序
       在使用Listview控件显示报表型的数据时，可能通过单击Listview控件的列标题对列表数据进行排序，代码如下：

1. #001  Private Sub ListView1_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader)
   
2. #002      With ListView1
   
3. #003          .Sorted = True
   
4. #004          .SortOrder = (.SortOrder + 1) Mod 2
   
5. #005          .SortKey = ColumnHeader.Index - 1
   
6. #006      End With
   
7. #007  End Sub

复制代码

代码解析：
       Listview控件的ColumnClick事件过程，单击列标题时触发，对列表数据进行升序或降序排序。
       第3行代码将Listview控件的Sorted属性设置为True。Sorted属性返回或设置确定ListView控件中的ListItem对象是否排序，设置为False则不进行排序。
       第4行代码设置Listview控件的排序方式。SortOrder属性返回或设置一个值，决定ListView控件中的ListItem对象以升序或降序排序，设置为0以升序排序，设置为1则以降序排序。在设置SortOrder属性值时使用Mod运算符以达到第一次排序以降序排序，再次排序时以升序排序，交替进行的效果。
       第5行代码设置Listview控件排序关键字的整数，即指定Listview控件以当前选定的列数据进排序。SortKey属性返回或设置一个值，此值决定ListView控件中的ListItem对象如何排序，语法如下：
object.SortKey [=integer]
       参数object是必需的，对象表达式，其值为ListView控件。
       参数integer是必需的，指定排序关键字的整数，设置为0使用ListItem对象的Text属性排序，即第一列的数据进行排序。设置为大于0的整数则使用子项目的集合索引排序。
       运行窗体，Listview控件显示工作表中的内容，单击列标题对列表数据进行升序或降序排序，如图所示。

epnova

收藏学习了