Showing image in a userform from another userform

[TheBams]

In a userform, I will select one product (of 300+), and a image appear... and I have all pictures put in another userform and multipages (can't use a folder as this have to be shipped to and from different computers and people).
In my userform I can make the correct path to the image visible (chained together by the selections made) in a textbox, but can't make this a working path. can anywone point out the obvious errors I making ?

The code/example:


Private Sub TextBox1_Change()
'TextBox2.Value = ("MultiPage1." & "Page2." & "Image3" & ".Picture")


'The value in textbox2, is based on some selections in the userform and/or cells in sheet, so the page/image names
'changes due to different selections, but for the short version this will be the same principle....wouldn't it?


'WORKS - - - But have to make 350 if's ;-(
'If TextBox1 = 1 Then
'Image2.Picture = MultiPage1.Page1.Image1.Picture '(from userform1)
'Else
'Image2.Picture = UserForm2.MultiPage1.Page2.Image3.Picture


'End If


End Sub

Or are there any better ways?

 

[John_w]

VBA can refer to any control (including images) on a userform directly by its name. You don't have to specify its 'path', e.g. UserForm1.MultiPage1.Page1.Image1.

So if the images on UserForm1 are named "Image1", "Image2", "Image3", etc. the code can reference any image directly according to the value in TextBox1 and show it on the other userform like this:

Private Sub TextBox1_Change()

    Dim img As Image
    
    On Error Resume Next
    Set img = UserForm1.Controls("Image" & TextBox1.Value)
    On Error GoTo 0
    
    If Not img Is Nothing Then
        Me.Image1.Picture = img.Picture
    Else
        MsgBox "Image named ""Image" & TextBox1.Value & """ not found in UserForm1", vbExclamation
    End If

End Sub

Does that help?

 

[TheBams]

VBA can refer to any control (including images) on a userform directly by its name. You don't have to specify its 'path', e.g. UserForm1.MultiPage1.Page1.Image1.

So if the images on UserForm1 are named "Image1", "Image2", "Image3", etc. the code can reference any image directly according to the value in TextBox1 and show it on the other userform like this:

Private Sub TextBox1_Change()

    Dim img As Image
   
    On Error Resume Next
    Set img = UserForm1.Controls("Image" & TextBox1.Value)
    On Error GoTo 0
   
    If Not img Is Nothing Then
        Me.Image1.Picture = img.Picture
    Else
        MsgBox "Image named ""Image" & TextBox1.Value & """ not found in UserForm1", vbExclamation
    End If

End Sub

Does that help?

Great!
just some tweaking and it was just want I needed, Thank you soooo mutch John!!

Dim img As Image

On Error Resume Next
Set img = UserForm2.Controls("Image" & TextBox1.Value)
On Error GoTo 0

If Not img Is Nothing Then
Me.Image2.Picture = img.Picture
Else
MsgBox "Image named ""Image" & TextBox1.Value & """ not found in UserForm1", vbExclamation
End If
End Sub

 

[John_w]

Glad it's what you want. It wasn't clear from your post which userform contained all the images.

Please update your cross-post on the other forum(s) by linking to this thread.