• Home
 · 
• Graphics
 · 
• 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)

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)

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

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