如何在VB 6.0中恢复为imagelist控件上传的图像

Question

我有一个 VB 6.0 应用程序，其中包含图像列表控件内的一些图像。我想知道这些图像存储在系统中的位置（因为我想在另一个应用程序中使用这些图像，并且系统中没有单独的图像）。

因此，唯一的方法是从 Visual Basic 6.0 项目中获取图像。 我们有类似 .Net 的资源文件夹吗？

Answer 1

• 启动一个空项目。
• 添加对 Microsoft Windows Common Controls 5.0 或 6.0 的引用 (Ctrl+T)
• 将图像列表控件复制/粘贴到 Form1
• 将图像列表控件重命名为 ImageList1

使用此代码

Dim lIdx As Long

For lIdx = 1 To ImageList1.ListImages.Count
    SavePicture ImageList1.ListImages(lIdx).Picture, "C:\TEMP\img" & lIdx & ".bmp"
Next

Answer 2

我前段时间遇到过同样的问题。我最终以图像列表的形式编写了一个小函数，“手动”将图像列表中的每个图像保存到磁盘。

Answer 3

' utility to save images from a VB6 imagelist - example ExtractVB6ImageListImages(ImageListModes,"ImageListModes")
Function ExtractVB6ImageListImages(myimagelist As ImageList, listname As String)
    Dim nCount As Integer
    Dim nIndex As Integer
    Dim sKey As String

    Dim temp As Image

    nCount = myimagelist.ListImages.count()
    For nIndex = 1 To nCount
        If nIndex < 10 Then
            SavePicture myimagelist.ListImages(nIndex).Picture, listname + "00" + Mid(Str(nIndex), 2) + ".bmp"
        ElseIf nIndex < 100 Then
            SavePicture myimagelist.ListImages(nIndex).Picture, listname + "0" + Mid(Str(nIndex), 2) + ".bmp"
        Else
            SavePicture myimagelist.ListImages(nIndex).Picture, listname + Mid(Str(nIndex), 2) + ".bmp"
        End If

    Next

End Function