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

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

2 голосов
/ 29 октября 2010

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

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

Спасибо, Рупа

Ответы [ 3 ]

6 голосов
/ 01 ноября 2010
  • Запустить пустой проект.
  • Добавить ссылку (Ctrl + T) к Microsoft Windows Common Controls 5.0 or 6.0
  • Копировать / Вставить элемент управления списком изображений в Form1
  • Переименовать элемент управления списком изображений в ImageList1

Используйте этот код 

Dim lIdx As Long

For lIdx = 1 To ImageList1.ListImages.Count
    SavePicture ImageList1.ListImages(lIdx).Picture, "C:\TEMP\img" & lIdx & ".bmp"
Next
1 голос
/ 31 октября 2010

Я столкнулся с той же проблемой некоторое время назад.В итоге я написал небольшую функцию в виде списка изображений, который «вручную» сохранял каждое изображение в списке изображений на диск.

0 голосов
/ 31 января 2012 
' 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
...