By using this site, you agree to our updated Privacy Policy and our Terms of Use. Manage your Cookies Settings.
449,002 Members | 1,290 Online
Bytes IT Community
+ Ask a Question
Need help? Post your question and get tips & solutions from a community of 449,002 IT Pros & Developers. It's quick & easy.

help: can't save picture with pset on it

P: n/a
help!!!!!!!!

i did a

for i=1 to picture1.scaleheight/2
picture1.pset (i,i)
next i

and the pset is shown on the picture

but when i use

savepicture picture1.picture,"c:\testing2.bmp"

the testing2.bmp doesn't show the pset line on the picture.......

daimler

Jul 17 '05 #1
Share this Question
Share on Google+
6 Replies


P: n/a
try setting autoredraw to true

- or saving Picture1.Image

On Tue, 9 Sep 2003 11:50:44 +0800, "daimler" <da*******@yahoo.com.sg>
wrote:
help!!!!!!!!

i did a

for i=1 to picture1.scaleheight/2
picture1.pset (i,i)
next i

and the pset is shown on the picture

but when i use

savepicture picture1.picture,"c:\testing2.bmp"

the testing2.bmp doesn't show the pset line on the picture.......

daimler


Jul 17 '05 #2

P: n/a
daimler <da*******@yahoo.com.sg> schreef in berichtnieuws
3f******@news.starhub.net.sg...

Hello Daimler,
help!!!!!!!!
[Snip]
but when i use
savepicture picture1.picture,"c:\testing2.bmp"
the testing2.bmp doesn't show the pset line on the picture.......


J. French gave you the solution, and I'm going to tell you why.

Start your app, so it shows the drawing. Now open-up any other app (I
suggest notepad), and place it ontop of your drawing. Close notepad.

Now where has your drawing gone ?

Answer : Your drawing was *only present on the desktop*, and was/is not
stored into the picture-box. As such a save of the picture-boxes contents
does not store the drawing ...

Setting "AutoRedraw" to true means that your drawing is copied/stored in the
picture-boxes memory, and as such can be saved into the BMP.

I hope the above clarifies it somewhat.

Regards,
Rudy Wieser

P.s.
Maybe you could allso take a look at (the difference between) the "picture"
and "image" properties of the picturebox.

Jul 17 '05 #3

P: n/a
already did the autodraw to true and saving picture1.image

but the pset on the picture still can't be save.

J French <er*****@nowhere.com> wrote in message
news:3f**************@news.btclick.com...
try setting autoredraw to true

- or saving Picture1.Image

On Tue, 9 Sep 2003 11:50:44 +0800, "daimler" <da*******@yahoo.com.sg>
wrote:
help!!!!!!!!

i did a

for i=1 to picture1.scaleheight/2
picture1.pset (i,i)
next i

and the pset is shown on the picture

but when i use

savepicture picture1.picture,"c:\testing2.bmp"

the testing2.bmp doesn't show the pset line on the picture.......

daimler

Jul 17 '05 #4

P: n/a
As others have pointed out, this code does work:

Picture1.AutoRedraw = True

For i = 1 To Picture1.ScaleHeight / 2
Picture1.PSet (i, i)
Next i

SavePicture Picture1.Image, "c:\testing2.bmp"

"daimler" <da*******@yahoo.com.sg> wrote in message
news:3f******@news.starhub.net.sg...
help!!!!!!!!

i did a

for i=1 to picture1.scaleheight/2
picture1.pset (i,i)
next i

and the pset is shown on the picture

but when i use

savepicture picture1.picture,"c:\testing2.bmp"

the testing2.bmp doesn't show the pset line on the picture.......

daimler

Jul 17 '05 #5

P: n/a
On Tue, 9 Sep 2003 23:53:45 +0800, "daimler" <da*******@yahoo.com.sg>
wrote:
already did the autodraw to true and saving picture1.image

but the pset on the picture still can't be save.


Private Sub Command1_Click()
Const Fle$ = "c:\tt\test.bmp"

Picture1.AutoRedraw = True
Picture1.ScaleMode = vbPixels
Picture1.DrawWidth = 5
Picture1.PSet (10, 10), vbBlue
' ---
SavePicture Picture1.Image, Fle$

Picture2.Picture = LoadPicture(Fle$)
End Sub

Jul 17 '05 #6

P: n/a
now seem to work based on the codes below :)

thank you!!! ^_^

J French <er*****@nowhere.com> wrote in message
news:3f***************@news.btclick.com...
On Tue, 9 Sep 2003 23:53:45 +0800, "daimler" <da*******@yahoo.com.sg>
wrote:
already did the autodraw to true and saving picture1.image

but the pset on the picture still can't be save.


Private Sub Command1_Click()
Const Fle$ = "c:\tt\test.bmp"

Picture1.AutoRedraw = True
Picture1.ScaleMode = vbPixels
Picture1.DrawWidth = 5
Picture1.PSet (10, 10), vbBlue
' ---
SavePicture Picture1.Image, Fle$

Picture2.Picture = LoadPicture(Fle$)
End Sub

Jul 17 '05 #7

This discussion thread is closed

Replies have been disabled for this discussion.