当前位置: 首页 > 最新文章 > 正文

控件Listview电脑按顺序排列按键(按键值排序)

大家好,我们今日继续讲解VBA代码解决方案的第104讲内容:在Listview控件中排序。在讲控件的时候我首先详细的讲解了TEXTBOX控件,再次详细讲解的就是这个Listview控件了,这些都是常用的控件,熟练的掌握这些对于自己非常的有好处,今天讲的是Listview控件如何进行排序。1 Listview控件的Sorted属性返回或设置确定ListView控件中的ListItem对象是否排序,设

admin

大家好,我们今日继续讲解VBA代码解决方案的第104讲内容:在Listview控件中排序。在讲控件的时候我首先详细的讲解了TEXTBOX控件,再次详细讲解的就是这个Listview控件了,这些都是常用的控件,熟练的掌握这些对于自己非常的有好处,今天讲的是Listview控件如何进行排序。1 Listview控件的Sorted属性返回或设置确定ListView控件中的ListItem对象是否排序,设置为False则不进行排序。设置为大于0的整数则使用子项目的集合索引排序。即表明允许排序。第5行代码设置Listview控件排序关键字的整数,即指定Listview控件以当前选定的列数据进排序。运行窗体,Listview控件显示工作表中的内容,单击列标题对列表数据进行升序或降序排序。

大家好,我们今日继续讲解VBA代码解决方案的第104讲内容:在Listview控件中排序。在讲控件的时候我首先详细的讲解了TEXTBOX控件,再次详细讲解的就是这个Listview控件了,这些都是常用的控件,熟练的掌握这些对于自己非常的有好处,今天讲的是Listview控件如何进行排序。

在使用Listview控件显示报表型的数据时,可能通过单击Listview控件的列标题对列表数据进行排序,真的非常的方便,代码如下:

Private Sub ListView1_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader)

With me.ListView1

.Sorted = True

.SortOrder = (.SortOrder + 1) Mod 2

.SortKey = ColumnHeader.Index - 1

End With

End Sub

代码截图:

Listview控件,鼠标点击就可以轻松实现排序功能,真的非常简单

在讲解上述几个代码之前,我们先看看几个必要的属性设置的讲解。

1 Listview控件的Sorted属性返回或设置确定ListView控件中的ListItem对象是否排序,设置为False则不进行排序。

2 SortOrder属性返回或设置一个值,决定ListView控件中的ListItem对象以升序或降序排序,设置为0以升序排序,设置为1则以降序排序。

3 SortKey属性返回或设置一个值,此值决定ListView控件中的ListItem对象如何排序,语法如下:object.SortKey [=integer]

参数object是必须的,对象表达式,其值为ListView控件。

参数integer是必须的,指定排序关键字的整数,设置为0使用ListItem对象的Text属性排序,即第一列的数据进行排序。设置为大于0的整数则使用子项目的集合索引排序。

有了上面的属性的知识,我们来看下面的代码讲解就容易多了。

代码解析:Listview控件的ColumnClick事件过程,单击列标题时触发,对列表数据进行升序或降序排序。

第3行代码将Listview控件的Sorted属性设置为True。即表明允许排序。

第4行代码设置Listview控件的排序方式。这里是按照MOD运算来设置的,在设置SortOrder属性值时使用Mod运算符的目的是,到第一次排序以降序排序,再次排序时以升序排序,交替进行的效果。这样可以设置可以给操作带来方便。

第5行代码设置Listview控件排序关键字的整数,即指定Listview控件以当前选定的列数据进排序。

运行窗体,Listview控件显示工作表中的内容,单击列标题对列表数据进行升序或降序排序。

运行截图:

Listview控件,鼠标点击就可以轻松实现排序功能,真的非常简单

单击一下名称:

Listview控件,鼠标点击就可以轻松实现排序功能,真的非常简单

再次单击:

Listview控件,鼠标点击就可以轻松实现排序功能,真的非常简单

今日内容回向:

1 如何实现Listview控件的排序呢?

2 上述方法排序有个最大弊端,你是否意识到了呢?如何解决


上一篇: 公共API服务网关日志系统 下一篇:奇葩的英文单词怎么写(奇葩的英文单词怎么写)
返回顶部