在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变量设置为 相应值即可。
编辑：　[发送给好友] [打印本页] [关闭窗口] [返回顶部]
上一篇：VB中随机图像的魅力
下一篇：VB使用编程技巧三则
转载请注明来源：www.iyit.net
特别声明： 本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作者。文章版权归文章原始作者所有。对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转载的文章有版权问题请联系编辑人员，我们尽快予以更正。