请教：如何将picture控件中的.bmp或.jpg等图片向右旋转90度

[perseverance]

我想用vb编程实现：将picture控件中的.bmp或.jpg等图片向右旋转90度，如何实现，请高手之点。

[IsMe]

我以前也找过，在一个英文网站找到一个方法，也不过是逐点旋转复制
使用VB作大的循环，速度比较慢，有明显的延迟，不过想来也没有好的方法了

如果谁有不用逐点循环的方法（就像类似bitblt的方法），我出200分

[wqb]

http://www.china-askpro.com/msg8/qa36.shtml
问专家中的回答

[孙小雄]

我不能做到快速旋转90

但我能快速 水平旋转 垂直旋转

Private Sub Command1_Click()
With Picture1
.AutoRedraw = True
.Cls
.PaintPicture .Picture, .ScaleWidth, .ScaleTop, -1 * (.ScaleWidth), .ScaleHeight, .ScaleLeft, .ScaleTop, .ScaleWidth, .ScaleHeight, vbSrcCopy
.Picture = .Image
.AutoRedraw = False
End With
End Sub

Private Sub Command2_Click()
With Picture1
.AutoRedraw = True
.Cls
.PaintPicture .Picture, .ScaleLeft, .ScaleHeight, .ScaleWidth, -(.ScaleHeight), .ScaleLeft, .ScaleTop, .ScaleWidth, .ScaleHeight, vbSrcCopy
.Picture = .Image
.AutoRedraw = False
End With
End Sub
Private Sub Form_Load()
Picture1.Picture = LoadPicture("c:\1.jpg")
Picture1.AutoSize = True
End Sub

[DownFree]

你可以搜索"旋转"
然后可以找到好多,就可以节省你的分数了!