文件名按系统的"列表显示
今天碰到这样一个问题:
查看"D:\123"下的*.txt文件,并且像操作系统的查看方式里的列表样式显示出来,现在不知使用什么控件完成,是listbox吗?
实现的显示效果如下:
01.txt 02.txt 03.txt
04.txt 05.txt 06.txt
07.txt 08.txt 09.txt
10.txt 11.txt 12.txt
13.txt
请各位码友帮忙,谢谢!
[解决办法]
'示例:
'增加一个 Dir控件,一个Drive控件,一个File控件,一个ListView控件.
Private Sub Dir1_Change()
File1.Path = Dir1.Path
ListView1.ListItems.Clear
For i = 1 To File1.ListCount
ListView1.ListItems.Add , , File1.List(i)
' Stop
Next
End Sub
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub
Private Sub Form_Load()
ListView1.View = lvwList
End Sub