VB中位图旋转的实现

在VISUALBASIC中没有什么命令或函数能够实现将一个位图旋转一个角度后显示出来，但我们可以用画点的方式，将一个图画盒中的位图中的像素点旋转一个角度后画入另一个图画盒中，当源图画盒中的像素都被画到目标图画盒中时，也就完成了位图的旋转。这里主要用到了VISUALBASIC中的两个方法：POINT方法和PSET方法。POINT方法的作用是从源图画盒中提取一个像素点的颜色值；而PSET方法的作用是按照旋转后的坐标和相应像素点的颜色值在目标图画盒中画点。显然这个方法的速度不会太快，因而适用于较小的图片。
　　
　　下面介绍一下实现方法：进入VISUALBASIC中，建立一个新的窗体。在窗体中加入两个图画盒控件（Picture1和Picture2），设置它们的Name属性为PicSource和PicTarget，并为PicSource图画盒的Picture属性设置一幅位图。再在窗体中加入一个按钮（CommandRotorate），设置它的Caption属性为“旋转”。然后加入以下代码：
　　OptionExplicit
　　ConstPi=3.14
　　PrivateSubCommandRototate_Click()
　　DimxAsInteger,yAsInteger
　　DimX1AsInteger,Y1AsInteger
　　DimX2AsDouble,Y2AsDouble
　　DimX3AsDouble,Y3AsDouble
　　DimJiaoDuAsDouble
　　DimHuDuAsDouble
　　JiaoDu=45'角度
　　HuDu=JiaoDu*Pi/180'弧度
　　PicSource.ScaleMode=vbPixels
　　PicTarget.ScaleMode=vbPixels
　　Forx=0ToPicTarget.ScaleWidth
　　X1=x-PicTarget.ScaleWidth2
　　Fory=0ToPicTarget.ScaleHeight
　　Y1=y-PicTarget.ScaleHeight2
　　X2=X1*Cos(-HuDu) Y1*Sin(-HuDu)
　　Y2=Y1*Cos(-HuDu)-X1*Sin(-HuDu)
　　X3=X2 PicSource.ScaleWidth2
　　Y3=Y2 PicSource.ScaleHeight2
　　IfX3>0AndX3<PicSource.ScaleWidth-1AndY3>0AndY3<
　　PicSource.ScaleHeight-1Then
　　PicTarget.PSet(x,y),PicSource.Point(X3,Y3)
　　EndIf
　　Nexty
　　Nextx
　　EndSub
　　运行后，按下“旋转”按钮，可以见到源图画盒中的位图旋转45度后进入到目标图画盒中。如果要改变旋转的角度，只需将JiaoDu变量设置为相应值即可。->