How can I change my form's icon during runtime?
Printable View
How can I change my form's icon during runtime?
Form1.Icon = [some StdPicture or lPictureDisp object]
Ex: Form1.Icon = LoadPicture("C:\MyPic.jpg") or
Form1.Icon = Picture1.Picture or
Form1.Icon = Image1.Picture
The LoadPicture method loads a picture from the harddrive.
Picture1 is a PictureBox.
Image1 is an ImageBox.
Hope that helps.
You can't use Form1.Icon = LoadPicture("C:\MyPic.jpg") it has to be an Icon(ico) or Cursor(cur). Plus if the file got deleted or renamed then this would cause an error.
The easiest thing to do is load a few icons in an imgIcon(6) array on the form and make them invisible. Then on Form Load sort the form icon randomly.
How ever many icons you load.
Form1.Icon = imgIcon(Int((6 * Rnd) + 1)).Picture