| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 2460 人关注过本帖
标题:请教文件排序问题
取消只看楼主 加入收藏
ictest
Rank: 3Rank: 3
等 级:论坛游侠
帖 子:333
专家分:114
注 册:2010-2-17
结帖率:70%
收藏
已结贴  问题点数:20 回复次数:3 
请教文件排序问题
一个目录内含文件如下(按文件名排序):
图片附件: 游客没有浏览图片的权限,请 登录注册

现希望能在filelistbox里或者listbox里显示如下(按修改时间排序):
图片附件: 游客没有浏览图片的权限,请 登录注册

请教如何编写?


[此贴子已经被作者于2017-4-28 22:32编辑过]

搜索更多相关主题的帖子: 如何 
2017-04-28 22:29
ictest
Rank: 3Rank: 3
等 级:论坛游侠
帖 子:333
专家分:114
注 册:2010-2-17
收藏
得分:0 
记得VB的filelistbox里只能是按文件名排序,不知道有什么办法目录下的文件按时间排序后显示在旁边的listbox里。
2017-04-28 23:18
ictest
Rank: 3Rank: 3
等 级:论坛游侠
帖 子:333
专家分:114
注 册:2010-2-17
收藏
得分:0 
已自己解决,在新的list1中已可以排序,且可以用鼠标以拉的方式多选文件。
程序如下:
程序代码:
Private Sub Command1_Click()
'List1的MultiSelect属性选择2-********则为多选
'list1的Sorted属性选择TRUE的话就是排序
For i = 0 To File1.ListCount - 1
List1.AddItem FileDateTime(Dir1.Path & "\" & File1.List(i)) & "      " & File1.List(i)
Next i
End Sub

Private Sub Dir1_Change()
    File1.Path = Dir1.Path
File1.Refresh
List1.Clear
    Call Command1_Click
End Sub
Private Sub Drive1_Change()
    Dir1.Path = Drive1.Drive
End Sub

图片附件: 游客没有浏览图片的权限,请 登录注册


现请教一个问题,如果想点击command2就把list1中选中的复制到list2中,command2怎么编写?
2017-04-29 12:38
ictest
Rank: 3Rank: 3
等 级:论坛游侠
帖 子:333
专家分:114
注 册:2010-2-17
收藏
得分:0 
问题我自己已解决。

List2.Clear
Dim z As Integer
For z = 0 To List1.ListCount - 1
If List1.Selected(z) Then List2.AddItem List1.List(z)
Next
2017-04-29 22:11
快速回复:请教文件排序问题
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.025613 second(s), 10 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved