How to display an image in a Userform on setting the path

**ANSEL** · 26-10-2009

In a userform I want to display an image (jpg). On the other hand, I have some pictures in a directory. Until no problems. For instant I display as follows:

If my test = "mountain"
I display the image (mountain)
Image1.Picture = LoadPicture ( "c:\images\mountain.jpg)

That is my concern:

Now according to a result (variable) tests, I would like to view the image. As I have quite a picture and then test to write. Is it possible to pass the filename as a parameter? Like:

Image1.Picture = LoadPicture("c:\images\MyImage.jpg")

MyImage is the parameter to load depending on the test result

**!const** · 26-10-2009

Hello, anything goes as

Code:

Image1.Picture = LoadPicture("c:\images\" & MyImage &".jpg")

**ANSEL** · 26-10-2009

Thank you, it worked! I tried something in the genre but it lacked the separators " & xxxxxx & ". What is their role? Another question. How to adjust the size of a Userform to the size of the screen? Knowing that I like to use my applications on any PC.

**!const** · 26-10-2009

"&" is the concatenation operator.

For the later refer vb-helper codes:

A form that covers the entire screen including the taskbar area:

Code:

Private Sub Form_Load()
Dim wid As Long
Dim hgt As Long

    ' Get the screen's size including the task bar area.
    wid = GetSystemMetrics(SM_CXSCREEN)
    hgt = GetSystemMetrics(SM_CYSCREEN)

    ' Make the form of this size.
    Move 0, 0, _
        ScaleX(wid, v***xels, vbTwips), _
        ScaleY(hgt, v***xels, vbTwips)
End Sub

Fill the screen with your form :

set:

ControlBox = False
Caption = ""
WindowState = Maximized
BorderStyle = None

Code:

Private Sub Form_Resize()
    picCenter.BorderStyle = vbBSNone
    picCenter.Move _
        (ScaleWidth - picCenter.Width) / 2, _
        (ScaleHeight - picCenter.Height) / 2
End Sub

How to get the screen's current resolution

Code:

Private Sub Form_Load()
Dim wid As Integer
Dim hgt As Integer

    wid = Screen.Width \ Screen.TwipsPerPixelX
    hgt = Screen.Height \ Screen.TwipsPerPixelY

    Label1.Caption = Format$(wid) & " x " & Format$(hgt)
End Sub