Multiple Image Format On UserForm

[kelly mort]

Hello All,

Me.Image1.Picture = LoadPicture(fPath & "/" & Me.ListBox1.Column (0 , i) & ".jpg")

How do I get other formats to work in addition to the jpg files?
Thanks
Kelly

 

[Domenic]

For a list of supported graphics format, have a look at the following article...

https://msdn.microsoft.com/en-us/library/aa264946(v=vs.60).aspx

Note that .png is not supported.

Hope this helps!

 

[kelly mort]

Oh okay. I have looked at the article. Thanks. But I don't know how to code multiple formats. So that if any of those files is found it will show on the control.
Thanks

 

[kelly mort]

Me.Image1.Picture = LoadPicture(fPath & "/" & Me.ListBox1.Column (0 , i) & ".jpg"

I mean how do I add multiple formats. Gif, .bmp, .jpg etc. What I have here can take only one format.
Thanks
Kelly

 

[RoryA]

Assuming you would only have image files with those names, you could use Dir:

Dim sFile as string
sfile = Dir(fPath & "/" & Me.ListBox1.Column (0 , i) & ".*"
if sfile <> vbnullstring then Me.Image1.Picture = LoadPicture(fPath & "/" & sfile)

 

[kelly mort]

Assuming you would only have image files with those names, you could use Dir:

Dim sFile as string
sfile = Dir(fPath & "/" & Me.ListBox1.Column (0 , i) & ".*"
if sfile <> vbnullstring then Me.Image1.Picture = LoadPicture(fPath & "/" & sfile)

Yes this worked just perfect!!!!
Thanks
Kelly