Excel VBA Picture in UserForm by Value in TextBox

[MichelVBA]

Hi there, im looking for a code that shows a picture on my userform relatve to the value off the textbox thats also in the same userform.
Here below a screenshot of what i mean.

 

[hungtbatman1]

What does the textbox contain? If the textbox contains an image path, e.g. TextBox1.Value = "d:\hichic.jpg" then

Image1.PictureSizeMode = fmPictureSizeModeZoom
Image1.Picture = LoadPicture(TextBox1.Value) ' only BMP, GIF, JPG, WMF, EMF, ICO, CUR, Not PNG

 

[MichelVBA]

Dear @hungtbatman1 , i want the value in the textbox come from a datalist. See my other post (this one)for example
Therefor i used this code but its not correct.

Me.txtPict.Value = Me.lstPlanningslijst.List(Me.lstPlanningslijst.ListIndex, 33) 'in this row its says C:\Users\Images\Pict1.jpg
Me.Image1.PictureSizeMode = fmPictureSizeModeZoom
Me.Image1.Picture = LoadPicture(txtPict.Value)

 

[hungtbatman1]

Dear @hungtbatman1 , i want the value in the textbox come from a datalist. See my other post (this one)for example
Therefor i used this code but its not correct.

Me.txtPict.Value = Me.lstPlanningslijst.List(Me.lstPlanningslijst.ListIndex, 33) 'in this row its says C:\Users\Images\Pict1.jpg
Me.Image1.PictureSizeMode = fmPictureSizeModeZoom
Me.Image1.Picture = LoadPicture(txtPict.Value)

1. Does the file "Pict1.jpg" exist in the folder "C:\Users\Images"? Have you checked?
2. You see "C:\Users\Images\Pict1.jpg" but I don't know if the text contains any invisible characters, e.g. spaces at the end.
3. Let's check. Add the following code to the above code:

dim i as long, text as string
text = txtPict.value
Debug.Print Dir(text)
for i = 1 to len(text)
Debug.Print AscW(mid(text, i, 1))
next

Run the entire code -> copy the contents of the "Immediate" window -> paste it into the post so I can see what's there.

 

[NdNoviceHlp]

Also the file path has to be a string. Maybe...

Me.Image1.Picture = LoadPicture(CSTR(Me.txtPict.Value))

HTH. Dave

 

[MichelVBA]

Dear @hungtbatman1 and @NdNoviceHlp , after a couple of times to trying solving this problem it was the settings of the cell.
Now i have the next question....
I have the possibility to reset the form, only the picture remain to stay.
Maybe something like:
If there is no value in the textbox then load a picture (blanc)

 

[hungtbatman1]

Dear @hungtbatman1 and @NdNoviceHlp , after a couple of times to trying solving this problem it was the settings of the cell.
Now i have the next question....
I have the possibility to reset the form, only the picture remain to stay.
Maybe something like:
If there is no value in the textbox then load a picture (blanc)

Private Sub CommandButton1_Click()
    If txtPict.Value <> "" Then
        Image1.Picture = LoadPicture(txtPict.Value)
    Else
        Image1.Picture = Nothing         '   Image1.Picture = LoadPicture("C:\Users\Images\blanc.jpg")
    End If
End Sub

 

[MichelVBA]

Dear @hungtbatman1 , many thanxs.
Up to the next challange