首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

文件名按系统的"列表显示,该如何处理

2013-12-06 
文件名按系统的列表显示今天碰到这样一个问题:查看D:\123\下的*.txt文件,并且像操作系统的查看方式里的

文件名按系统的"列表显示
今天碰到这样一个问题:
查看"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

热点排行