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.ScaleWidth\2
Fory=0ToPicTarget.ScaleHeight
Y1=y-PicTarget.ScaleHeight\2
X2=X1*Cos(-HuDu)+Y1*Sin(-HuDu)
Y2=Y1*Cos(-HuDu)-X1*Sin(-HuDu)
X3=X2+PicSource.ScaleWidth\2
Y3=Y2+PicSource.ScaleHeight\2
IfX3>0AndX30AndY3

　　运行后，按下“旋转”按钮，可以见到源图画盒中的 位图旋转45度后进入到目标图画盒中。如果要改变旋转的角度，只需将JiaoDu变量设置为 相应值即可。

文章来源于领测软件测试网 https://www.ltesting.net/