-
I'm trying to flip a picture, and then copy it into another picture after it is flipped. However, the copy procedure always gives me the original unflipped picture. Any thoughts? Code is below:
'gets the picture
Private Sub Picture1_Click()
Picture1.Picture = LoadPicture("c:/picture.jpg")
End Sub
'flips it:this seems to work fine
Private Sub Command1_Click()
Picture1.PaintPicture Picture1.Picture, 0, 0, _
Picture1.Width, Picture1.Height, 0, Picture1.Height, _
Picture1.Width, -Picture1.Height, vbSrcCopy
End Sub
'always gives me original picture - not the flippped one I want
Private Sub Picture2_Click()
Picture2.Picture = Picture1.Picture
End Sub
-
While flippig you don't change the picture... if you draw / copy to a picturebox you change it's image property. You have to copy the image from Picture1 to Picture2:
Code:
Picture2.Picture = Picture1.Image
(And don't forget to set AutoRedraw of picture1 to true)
