0

我正在开发一个应用程序来查找、播放和显示所有媒体，但主要是音乐。我在 vb.net 中使用 Visual Studio 2012。在我的表单上，我有一个 Windows Media Player (WMP) 和两个列表视图。第一个列表视图 (lvFolders) 显示驱动器位置的所有文件夹。当我选择一个文件夹时，它会自动将所有文件（媒体曲目）加载到第二个列表视图（lvPlaylist）中，并开始使用 WMP 播放第一个曲目。这一切都很好。

在这些文件夹中的每一个（500+）中，我都有一个名为“front.bmp”的相应专辑的封面。我一生都无法弄清楚我做错了什么。由于列表视图正在填充文件夹，因此我正在尝试将位于该文件夹中的每个图像文件加载到图像列表中，并使用该图像将文件夹显示为大图标。结果将是 500 多个大文件夹，每个文件夹都显示图像列表中各自的专辑封面。

我特别不想使用文件夹浏览器对话框或打开文件对话框。这个应用程序是我个人使用的基于触摸的应用程序。

我附上了我的代码，以防它有助于理解我的困境。

    Private Sub LoadFolders_Click(sender As Object, e As EventArgs) Handles btnLoadFolders.Click

    For Each strDir As String In My.Computer.FileSystem.GetDirectories("E:\Music\TEST")


        Dim imageListLarge As New ImageList()
        Dim strAlbumArt As String = strDir & "\" & (My.Computer.FileSystem.GetName(strDir)) & ".bmp"        'URL of the image
        imageListLarge.ColorDepth = ColorDepth.Depth32Bit                                                   'Set the colour
        imageListLarge.ImageSize = New Size(128, 128)                                                       'Set image size
        imageListLarge.Images.Add(strAlbumArt, Image.FromFile(strAlbumArt))                                 'Add image to image list
        lvFolders.LargeImageList = imageListLarge                                                           'Assign the imagelist to the listview

        Dim NewItem As New ListViewItem(My.Computer.FileSystem.GetName(strDir), strAlbumArt)                'Create Column 1 data
        NewItem.SubItems.Add(My.Computer.FileSystem.GetFileInfo(strDir).FullName)                           'Create Column 2 data

        lvFolders.Items.Add(NewItem)                                                                        'Load into listview

    Next

End Sub
4

1 回答 1

0 
Dim strAlbumArt As String = strDir & "\" & (My.Computer.FileSystem.GetName(strDir)) & ".bmp"

里面没有“front.bmp”。你确定你的意思不是像这样的Dim strAlbumArt As String = strDir & "\front.bmp吗？

于 2013-08-19T15:08:57.553 回答