Geek asks and answers

How to recover images uploaded for image management in VB 6.0

I have a VB 6.0 application that contains some images inside an image control. I want to know where these images will be stored in the system. (Because I want to use these images in another application, and I do not have images separately in the system) Thus, the only way is to take images from the Visusal basic 6.0 project. Do we have something like a resource folder similar to .Net?

Please let me know soon.

Thanks Rupa

+2
source share
3 answers
  • Run an empty project.
  • Add the link (Ctrl + T) to Microsoft Windows Common Controls 5.0 or 6.0
  • Copy / Paste image list item in Form1
  • Rename the list of image list items to ImageList1

Dim lIdx As Long

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

. , , "" imagelist .

+1
' 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
0
source

More articles:


All Articles