Question

我正在编写一个简单的Windows应用程序来显示通过ffmpeg分割视频并在listview控件中显示。我能够将视频存储在一个文件夹中。如何在列表视图中显示缩略图？任何建议..

enter code here
ListView1.Items.Clear()
Dim di As New IO.DirectoryInfo(SPath & "\" & FolderName & "\")
Dim aryFi As IO.FileInfo() = di.GetFiles("*.*")
Dim fi As IO.FileInfo
For Each fi In aryFi
''ListView1.Items.Add(fi.FullName)
''ListBox1.Items.Add(fi)
Next

Answer 1

添加一个新的ImageList组件，并将listview的ImageList属性设置为新的ImageList。这里ImageList被命名为ImageList1。然后，修改For循环：

For Each fi In aryFi
    Dim ico As Icon = Icon.ExtractAssociatedIcon(fi.FullName)
    ImageList1.Images.Add(ico)
    ListView1.Items.Add(fi.FullName, ImageList1.Images.Count - 1)
    ListBox1.Items.Add(fi)
Next

如何在vb中的listview中添加视频缩略图

1 个答案: