[RESOLVED] Image Viewer Unable to load Image

[clippitch]

Hi guys,

I am creating an Image viewer using some codes I got from the net. Originally you can only browse an Image per file and load it in the picture box, so what I did is create a listbox and modify the browse button to select a folder instead of per file and load the items in the list box. My problem is when I click items on the listbox it throws an error that its unable to load the image.

The problem reside here:

Sub LoadImage(Name As String)
    
    If Dir(Name) <> "" Then
        With Image1
            .AutoSize = True
            .Picture = LoadPicture(Name)
            m_sngHeight = .Height
            m_sngWidth = .Width
            .AutoSize = False
            .PictureSizeMode = fmPictureSizeModeStretch
            m_sngZoom = 1
            .Left = 1
            .Top = 1
        End With
        SetZoom m_sngZoom
    Else
        MsgBox "Unable to load image " & Chr(10) & Name, vbExclamation
    End If
End Sub

Upon loading it returns null thats why it goes directly to MsgBox. The code i used in listbox_click even is

Private Sub lstImages_Click()
    LoadImage lstImages.Value
End Sub

Hope someone code shed a light on this one. exp those who are experienced programming in vb.

Thanks

[westconn1]

as far as i can see the listimage box does not contain the path with the file name

[seenu_1st]

whats wrong with that? it works fine for me.

[clippitch]

as far as i can see the listimage box does not contain the path with the file name

So how do I resolved it? Using

LoadImage App.Path & "\" & lstImages.List(lstImages.ListIndex)

Also dont work it returns the same error.

@ seenu_1st
The first time I used it it does work, for unknown reason after trying it again the other day it doest work anymore.

If you add another command button and put this code:

    Dim vntFile
    Dim strFilters As String
    
    strFilters = "All Image files,*.bmp;*.gif;*.jpg;*.jpeg,Bitmap (*.bmp),*.bmp"
    vntFile = Application.GetOpenFilename(strFilters)
    If vntFile <> "" Then
        TextBox1.Text = vntFile
        LoadImage TextBox1.Text
    End If

Then browse the folder again, and try clicking on the listbox, it will now load the item. I dont know why.

[seenu_1st]

@clippitch, the above shown code was disabled in ur attached file.

[seenu_1st]

i tried that disabled code in a seperate button it works fine.

[clippitch]

Yes that's exactly Im pointing out it works fine and image load on the listbox after loading a single image using the code above. But what I want to do is just select the folder list all the images in the folder in the listbox and load the image click in the listbox in the picture box.

[seenu_1st]

thats also working here with the code u posted.

[clippitch]

Got It working Thanks so much guys
This is the code.

Private Sub lstImages_Click()
       LoadImage txtDir.Value & "\" & lstImages.List(lstImages.ListIndex)
End Sub

[westconn1]

ha! i had it right