Saving Images

[Arrow_Raider]

Lets say I have a picturebox. I created a line in the picturebox useing: line(0,0)-(400,300) or something like that. How would i then save what the picturebox is showing to a bitmap file?

[da_silvy]

i think it is


picture1.savepicture?

[da_silvy]

sorry

savepicture picture1, "c:\hello.jpg"

[da_silvy]

e.g.

Private Sub Command1_Click()
SavePicture Picture1, "c:\hello.jpg"
End Sub
Private Sub Form_Load()
Picture1.Picture = LoadPicture("c:\avatar.gif")
End Sub

[Arrow_Raider]

Thanks, I know a lot of Visual Basic, but i don't know some of the really easy stuff for some reason.

[da_silvy]

np

Well you know what they say:
The more you know, the more u know u don't know

[Arrow_Raider]

That worked but it only saved the picture that was loaded! I need it to save what is showing on the picturebox.

Private Sub mdiffuse_Click()
Form2.Caption = "VB Effect App-Working..."
    For i = 1 To Picture1.ScaleHeight
        For j = 1 To Picture1.ScaleWidth
        pixval = Picture1.Point(j + Int(Rnd * 3), i + Int(Rnd * 3))
        Picture1.PSet (j, i), pixval
        Next j
    Next i
Form2.Caption = "VB Effect App"
End Sub 

That is some of my code. When it does that it just covers the picture with points, which aren't saved.

[da_silvy]

picture1.picture = picture1.image
savepicture picture1, "c:\myfile.jpg"

[Arrow_Raider]

That still didn't work!! Is this even Possible?

[da_silvy]

yeah, that should work

i'm off to bed, tell me if it's not fixed (tomorrow)

[da_silvy]

perhaps i'll just handball this q on, post it in the games and graphics forum, those guys will surely know how to do it

[abdul]

Try this:

SavePicture Picture1.Image, "C:\mypic.bmp"

[Arrow_Raider]

I already tried that. picture1.image is only the picture source and not all of what the picturebox is showing.
picture1.image is same as picture1.picture

[DaoK]

For i = 1 To Picture1.ScaleHeight
For j = 1 To Picture1.ScaleWidth
pixval = Picture1.Point(j + Int(Rnd * 3), i + Int(Rnd * 3))
Picture1.PSet (j, i), pixval
Next j
Next i

It show nothing in the picture box .... ?

[Arrow_Raider]

I've already got this problem fixed about saving. And for that code above, load a picture first

[da_silvy]

how did u do it in the end?

[DaoK]

What is the answer because I want to know.

[da_silvy]

I've already asked him DaoK, so there is no point for you to ask as well

[DaoK]

Your noyt my father so keep your suggestion to yourself

[da_silvy]

you're posting crap so why don't u shutup

[DaoK]

You post crap so shh

[da_silvy]

No i don't

I post more answers than you!

[JungleMan]

I dont post nearly as many answers as you!

[rjlohan]

For an actual answer to this q:

You can save Form.Image using the X,Y coords (Left, Top) of the picturebox you want, and the .Width, .Height of the PictureBox.

This should work - I have tried it successfully.

[abdul]

Originally posted by Arrow_Raider
I already tried that. picture1.image is only the picture source and not all of what the picturebox is showing.
picture1.image is same as picture1.picture

I am just curious why it's not working. That code will save whatever is drawn on the picture box(not only the image loaded in it).
I have tried it myself and it works fine.

[NotLKH]

This works for me:

Private Sub Command1_Click()
    Picture1.AutoRedraw = True
    Picture1.Line (0, 0)-(1000, 1000), vbBlack
    SavePicture Picture1.Image, "c:\tt.bmp"
    Picture2.Picture = LoadPicture("c:\tt.bmp")
End Sub

-Lou