Hallo liebe VB-Community,
ich bin gerade dabei einen eigenen FTP Client zu erstellen. Um den eigenen Computer zu durchsuchen hab ich eine ListView erstellt, die ich mit folgender Funktion fülle:
Das Problem ist das die Icons nicht angezeigt werden, wenn ich sie in der For-Schleife hinzufüge .
Und noch eine Problem undzwar wenn ich über die erste For-Schleife WinExplorer.Clear() schreibe, wird überhauptnichts angezeigt.
Vielen Dank schonmal, Sleepersword
ich bin gerade dabei einen eigenen FTP Client zu erstellen. Um den eigenen Computer zu durchsuchen hab ich eine ListView erstellt, die ich mit folgender Funktion fülle:
VB.NET-Quellcode
- 'WinExplorer = ListView
- Private Sub WinDirLoad(ByVal Path As String)
- Dim di As New System.IO.DirectoryInfo(Path)
- If di.Exists = True Then
- ilist.Images.Add("diricon", My.Resources.FolderIcon)
- ilist.Images.Clear()
- For Each fi As System.IO.DirectoryInfo In di.GetDirectories
- WinExplorer.Items.Add(New ListViewItem() With {.Text = fi.Name, .Tag = fi.FullName, .ImageKey = "diricon"})
- Next
- For Each fi As System.IO.FileInfo In di.GetFiles()
- ilist.Images.Add(CStr(ilist.Images.Count), Icon.ExtractAssociatedIcon(fi.FullName))
- WinExplorer.Items.Add(New ListViewItem() With {.Text = fi.Name, .Tag = fi.FullName, .ImageKey = CStr(ilist.Images.Count)})
- Next
- End If
- End Sub
Das Problem ist das die Icons nicht angezeigt werden, wenn ich sie in der For-Schleife hinzufüge .
Und noch eine Problem undzwar wenn ich über die erste For-Schleife WinExplorer.Clear() schreibe, wird überhauptnichts angezeigt.
Vielen Dank schonmal, Sleepersword