wallpaper for an app

How can I take a gif,jpg or bmp and use it as a wallpaper for my app.  Ild like it to stretch to the full isze of my app and allow to have buttons and control on top.  AKA just like the windows wallpaper can have icons on top of it.  any code or tips is great thanks scott
ocsscottAsked:
Who is Participating?
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

vettrangerCommented:
Just set the picture property of your form to the filename of the picture you want.

Is this what you are after, or did you have something more in mind?
0
JuiletteCommented:
'tile an image on a form

'1) Place an image control on a form and give it a picture
'2) Set the forms AutoRedraw to False
'3) Place this code in the Form Paint Event

      Dim intX As Integer
      Dim intY As Integer

      For intX = 0 To Me.Width Step Image1.Width
                For intY = 0 To Me.Height Step Image1.Height
                    PaintPicture Image1, intX, intY
          Next intY
            Next intX
0
ocsscottAuthor Commented:
I do not want a tiled effect I want 1 picture expanded to fill the whole form.  Using the picture property of the form added a picture but did not expand it to the size of the form.  Im thinking just like windows wallpaper stretched to fit the screen
0
The Ultimate Tool Kit for Technolgy Solution Provi

Broken down into practical pointers and step-by-step instructions, the IT Service Excellence Tool Kit delivers expert advice for technology solution providers. Get your free copy for valuable how-to assets including sample agreements, checklists, flowcharts, and more!

polygonCommented:
Try placing an image on your form and resize it with your window

Private Sub Form_Resize(...)
Image.Width = Form.Width
Wimage.Height = Form.Height
End Sub
0
ocsscottAuthor Commented:
Private Sub Form_Resize()
   frmMain.Picture.Width = frmMain.Width
   frmMain.Picture.Height = frmMain.Height
End Sub

i tried this code and it gets an error.

run time error 438.  "object does not support this property or method."


any other ideas
0
ocsscottAuthor Commented:
please see my last comment
0
Bob LearnedCommented:
The Picture property of a form does not allow for resizing.  You would have to use another control like a Picture Box or Image control that has AutoResizing properties.  

I don't understand why the answer from polygon was rejected.
0
ggilmanCommented:
Look at the render method for the picture object such as form1.picture.render(...). You might be able to use this in the resize event of the form to resize your picture to the form size. I have gotten it to resize the form picture but cannot seem to get the parameters just right.
0
ocsscottAuthor Commented:
i miss understood the answer I wanted the picture property of the form to be able to resize so all controls can go above it like true wallpaper.
0
ggilmanCommented:
Create an image box with the picture you want and make the image box not visible. Then use the code below. Unfortunately it flickers a little when resizing but works. You can use controls above the "wallpaper" with this method. If this isn't good enough, I'd have to agree with theLearnedOne and Polygon: You cannot make the picture property of the form change size.

Private Sub Form_Resize()
    Me.Cls
    PaintPicture Image1.Picture, 0, 0, Me.Width, Me.Height
End Sub
0

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
ocsscottAuthor Commented:
thanks that looks like I wanted.
0
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Visual Basic Classic

From novice to tech pro — start learning today.