|
Prev: Can't get app name into taskbar
Next: Help Help$$ modifying the recorded (VBA) Macro with Excel manual Process
From: Mike Williams on 28 Jan 2008 18:01 On 28 Jan, 22:43, "Guy" <some...(a)somewhere.nb.ca> wrote: > ' In this example, just one form; three > command buttons; and three PictureBox > controls - all have AutoRedraw=True When you paint a picture into an Autoredraw Picture Box the resultant "drawn picture" becomes the Image propertry of the pciture box (not its Picture property). That is one reasonm why your code is not working. Also, when you draw a picture you usual;ly need to specify the size of the desired output as well as its position. Try the following to see what I mean. Post again if there is anything you do not understand: Mike Private Sub Command1_Click() Picture1.Picture = LoadPicture("c:\temp\tulips.jpg") End Sub Private Sub Command2_Click() Picture2.PaintPicture Picture1.Picture, 0, 0, _ Picture2.ScaleWidth, Picture2.ScaleHeight End Sub Private Sub Command3_Click() Picture3.PaintPicture Picture2.Image, 0, 0, _ Picture3.ScaleWidth, Picture3.ScaleHeight End Sub
From: Guy on 28 Jan 2008 19:02
> When you paint a picture into an Autoredraw Picture Box the resultant > "drawn picture" becomes the Image propertry of the pciture box (not > its Picture property). That is one reasonm why your code is not > working. Also, when you draw a picture you usual;ly need to specify > the size of the desired output as well as its position. Try the > following to see what I mean. Post again if there is anything you do > not understand: > > Mike > > Private Sub Command1_Click() > Picture1.Picture = LoadPicture("c:\temp\tulips.jpg") > End Sub > > Private Sub Command2_Click() > Picture2.PaintPicture Picture1.Picture, 0, 0, _ > Picture2.ScaleWidth, Picture2.ScaleHeight > End Sub > > Private Sub Command3_Click() > Picture3.PaintPicture Picture2.Image, 0, 0, _ > Picture3.ScaleWidth, Picture3.ScaleHeight > End Sub > Like David indicated, I used the image property and it appears to work.Thanks again to all : ) Guy |