在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变量设置为 相应值即可。
Copyright ＠ 2007-2012 敏韬网(敏而好学，文韬武略--MinTao.Net)（学习笔记） Inc All Rights Reserved. 闵涛 E_mail:admin@mintao.net(欢迎提供学习资源)
鄂公网安备 42011102001154号
站长：MinTao ICP备案号：鄂ICP备11006601号-18
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
