Getting listbox files to show as image

[Wicked_]

Hi.

I have a Listbox and a Image (imagebox) in my userform.
I then have a code in the listbox that gather images from a folder to the listbox.
Example, if i have 3 images called "image1, image2, image3" (in a folder), they pop-up in the listbox correctly.

But now, i would like to show those pictures in the imagebox which i have next to the listbox. So like, if i press the Image1 file from the listbox, i would like it to show the image on the imagebox.

I have searched for this alot, but havent found a relevant code that fulfills what i need.

Is there anyone that could help me with this?

Thanks in advance!

 

[My Aswer Is This]

You said:

I then have a code in the listbox that gather images from a folder to the listbox.​

Show us this code please:

 

[Wicked_]

Hi. here is the code i use for that:

Private Sub UserForm_Initialize()
Filename = Dir("O:\Mask\Measure\1156" & "\*.jpg", vbNormal)




Do While Len(Filename) > 0


UserForm4.ListBox1.AddItem Filename




Filename = Dir()
Loop




End Sub

With this code, all the images i got on that folder shows correctly in the ListBox, but im stuck how to show the actual image on the image"box" when i click on a image from the listbox

 

[My Aswer Is This]

From my understanding you cannot add images to a UserForm Listbox

Maybe your referring to a Listview control that you have named ListBox1.

Or am I wrong?

 

[Wicked_]

Hi again.

"From my understanding you cannot add images to a UserForm Listbox"

Hmm, i'll try to show a picture of what i mean (Even tho you might be thinking of what i am thinking)

https://imgur.com/a/4wZhwZ7

(there i would click the "Test.jpg" and on the right (in a "image" box) the image would show.)

Not sure about the Listview (trying to learn the best i can)

 

[My Aswer Is This]

I see now. You do not have a image in your listbox. You have a image name in your listbox.

 

[Wicked_]

Precisely. The images itself is stored in the folder. So everytime i add a new image there, the filename shows up on the listbox, but cant get it to show the actual image in the imagebox when i click the imagename.

 

[My Aswer Is This]

Interesting question.
So all that shows up in your list box is:
Test.Jpg

So I would think the script would also need the path to the image.

This is beyond my knowledgebase.
I will continue to monitor this thread to see what I can learn.

 

[RoryA]

Assuming your Image control is named Image1, you could use the change event of the listbox to populate it using Loadpicture

Me.Image1.Picture = Loadpicture("O:\Mask\Measure\1156\" & Listbox1.Value)

 

[Wicked_]

Assuming your Image control is named Image1, you could use the change event of the listbox to populate it using Loadpicture

Me.Image1.Picture = Loadpicture("O:\Mask\Measure\1156\" & Listbox1.Value)

Worked like a charm!
Thank you alot!