vb image 旋转 90 180 270 的方法

先告知：VB的图片处理本身就不是很强，你要做的效果可以实现，但是旋转时会很慢，而且旋转后图片可能会失真，所以建议用PS或者Firework来做这些东西，但是针对你的问题，我还是把题目答案告诉你先：

'百度群飞度编程学社&1195277 希望可以帮到你!
'你只要在Text1中输入角度就可以了，如90、180、270等
Option Explicit
Const Pi = 3.14

Private Sub Command1_Click()
Dim x As Integer, y As Integer '点在Picture1中的坐标
Dim X1 As Integer, Y1 As Integer '过渡坐标
Dim X2 As Double, Y2 As Double '过渡坐标
Dim X3 As Double, Y3 As Double '点经过旋转后在Picture2中的坐标
Dim angle As Double '旋转的角度
Dim radian As Double '旋转的弧度

angle = Text1.Text
'获得旋转的角度
radian = angle * Pi / 180
'获得旋转的弧度
Picture2.Cls
For x = 0 To Picture1.Width
For y = 0 To Picture1.Height
X1 = x - Picture1.Width \ 2
Y1 = y - Picture1.Height \ 2
'将坐标轴原点移动到Picture1的中心后原来坐标为(x,y)
'的点的