如何把List1换成ListView1显示

Question

本帖最后由 bcrun 于 2012-02-29 21:45:09 编辑

Answer 1

Private Sub Form_Load()
ListView1.View = lvwReport
ListView1.ColumnHeaders.Add , , "list"
ListView1.ColumnHeaders.Item(1).Width = 5000End SubFunction SearchFiles(Path As String, FileType As String)
Dim Files() As String '文件路径
Dim Folder() As String '文件夹路径
Dim a, b, c As Long
Dim sPath As StringsPath = Dir(Path & FileType) '查找第一个文件Do While Len(sPath) '循环到没有文件为止
  a = a + 1
  ReDim Preserve Files(1 To a)
  Files(a) = Path & sPath '将文件目录和文件名组合,并存放到数组中
  'List1.AddItem Files(a) '加入list控件中
  ListView1.ListItems.Add , , Files(a)
  sPath = Dir '查找下一个文件
  DoEvents '让出控制权
LoopsPath = Dir(Path & "\", vbDirectory) '查找第一个文件夹Do While Len(sPath) '循环到没有文件夹为止
  If Left(sPath, 1) <> "." Then '为了防止重复查找
  If GetAttr(Path & "\" & sPath) And vbDirectory Then '如果是文件夹则
  b = b + 1
  ReDim Preserve Folder(1 To b)
  Folder(b) = Path & sPath & "\" '将目录和文件夹名称组合形成新的目录,并存放到数组中
  End If
  End If
 sPath = Dir '查找下一个文件夹
 DoEvents '让出控制权
LoopFor c = 1 To b '使用递归方法，遍历所有目录
  SearchFiles Folder(c), FileType
NextEnd FunctionPrivate Sub Command1_Click() '调用
SearchFiles "h:\", "*.mp4"
End Sub'Private Sub List1_Click()
'Shell "cmd /c start " & List1.Text
'End SubPrivate Sub ListView1_Click()
Shell "cmd /c start " & ListView1.ListItems(ListView1.SelectedItem.Index).TextEnd Sub