Ư ִ ϸ ̹ ͼ Ž ó ִ ڵε
ھ ϳ ؼ 1000 ̻ ִ° εϴµ ̻ ɸϴ.
Ƽھ ϰ ϸ Ƽ ãƺôµ ȵdz Ф
Ȥ Ƽھ ó Ұ ڵΰ? ƴϸ ʺ α Ƽھ ó ҰѰ?
Dim path As String
Public path1 As String
Public Function Getthumbnail()
path = BOXPATH.Text
Dim dir = path
For Each path In IO.Directory.GetFiles(path)
Using shFile = Microsoft.WindowsAPICodePack.Shell.ShellFile.FromFilePath(path)
Dim name = IO.Path.GetFileName(path)
PreloadInIconCache(dir, name, 256)
Me.TheListView.BeginUpdate()
Me.TheListView.Items.Add(name, name)
Me.TheListView.EndUpdate()
End Using
Next
End Function
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
path1 = BOXPATH.Text
Getthumbnail()
End Sub
Public Shared Sub PreloadInIconCache(path As String, name1 As String, Optional iconSize As Integer = 256)
Try
Using folder As ShellFile = DirectCast(ShellObject.FromParsingName(path + "\" + name1), ShellFile)
Using thumbnail As Bitmap = folder.Thumbnail.Bitmap
Form1.TheImageList.Images.Add(name1, thumbnail)
End Using
End Using
Catch
End Try
End Sub |
vb.net Ƽ
۸ Ͻø Ͻ ̴ϴ