如何添加視頻縮略圖列表視圖vb

Question

我正在寫一個簡單的Windows應用程序來顯示通過ffmpeg拆分視頻和顯示在列表視圖控件。我可以將視頻存儲在一個文件夾中。我怎樣才能在列表視圖中顯示縮略圖？任何建議..

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