Как восстановить изображения, загруженные для управления имиджей в VB 6.0

Question

У меня есть приложение VB 6.0, которое содержит некоторые изображения внутри элемента управления с изображением. Я хочу знать, где эти изображения будут храниться в системе. (Потому что я хочу использовать эти изображения в другом приложении, и у меня нет изображений отдельно в системе) Итак, единственный способ - взять изображения из Visusal basic 6.0 проект. У нас есть что-то вроде папки с ресурсами, похожей на .Net?

Пожалуйста, дайте мне знать в ближайшее время.

Благодаря Рупа

Answer 1

• Запустите пустой проект.
• Добавить ссылку (Ctrl + T), чтобы Microsoft Windows Common Controls 5.0 or 6.0
• Copy/Paste контроль список изображений в Form1
• Rename управления списком изображение 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