已自己解决,在新的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怎么编写?