Rotate a Picture 90, 180 or 270 degrees. (Clockwise)

by Jim the best (3 Submissions)
Category: Graphics
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Sat 21^st June 2003
Date Added: Mon 8^th February 2021
Rating: (1 Votes)

API Declarations
'This works but it would be better if i could get it to work with paintpicture.

Rate Rotate a Picture 90, 180 or 270 degrees. (Clockwise)



For X = 0 To Picture1.ScaleWidth
For Y = 0 To Picture1.ScaleHeight
Picture2.PSet (Picture2.ScaleHeight - Y, X), Picture1.Point(X, Y)
Next Y
Next X

'270 Degrees (Clockwise)
For X = 0 To Picture1.ScaleWidth
For Y = 0 To Picture1.ScaleHeight
Picture3.PSet (Y, Picture2.ScaleWidth - X), Picture1.Point(X, Y)
Next Y
Next X

'180 Degrees (Clockwise)
For X = 0 To Picture1.ScaleWidth
For Y = 0 To Picture1.ScaleHeight
Picture4.PSet (Picture2.ScaleWidth - X, Picture1.ScaleHeight - Y), Picture1.Point(X, Y)
Next Y
Next X

Download this snippet Add to My Saved Code

Rotate a Picture 90, 180 or 270 degrees. (Clockwise) Comments

No comments have been posted about Rotate a Picture 90, 180 or 270 degrees. (Clockwise). Why not be the first to post a comment about Rotate a Picture 90, 180 or 270 degrees. (Clockwise).

Rotate a Picture 90, 180 or 270 degrees. (Clockwise)

Rotate a Picture 90, 180 or 270 degrees. (Clockwise) Comments

Post your comment

Difficulty