一个小但很烦的问题：vb中如何实现图象旋转？（速度要快哟！）

Question

 任意的旋转？
找个图形库去如果是九十度什么的，用API去，嘻嘻

Answer 1

如果是FORM或PICTUREBOX对象，可以试试printpicture方法，具体说明可以参考 帮助文件。

Answer 2

http://www.efg2.com/lab/ImageProcessing/RotateScanline.htm

Answer 3

Declare Function BitBlt Lib "gdi32" Alias "BitBlt" (ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long 
说明 
将一幅位图从一个设备场景复制到另一个。源和目标DC相互间必须兼容 
返回值 
Long，非零表示成功，零表示失败。会设置GetLastError 
参数表 
参数 类型及说明 
hDestDC Long，目标设备场景 
x,y Long，对目标DC中目标矩形左上角位置进行描述的那个点。用目标DC的逻辑坐标表示 
nWidth,nHeight Long，欲传输图象的宽度和高度 
hSrcDC Long，源设备场景。如光栅运算未指定源，则应设为0 
xSrc,ySrc Long，对源DC中源矩形左上角位置进行描述的那个点。用源DC的逻辑坐标表示 
dwRop Long，传输过程要执行的光栅运算 
注解 
在NT环境下，如在一次世界传输中要求在源设备场景中进行剪切或旋转处理，这个函数的执行会失败
如目标和源DC的映射关系要求矩形中像素的大小必须在传输过程中改变，那么这个函数会根据需要自动伸缩、旋转、折叠、或切断，以便完成最终的传输过程
 

Answer 4

搞错了
应该是STRETCHBLTDeclare Function StretchBlt Lib "gdi32" Alias "StretchBlt" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal nSrcWidth As Long, ByVal nSrcHeight As Long, ByVal dwRop As Long) As Long 
说明 
将一幅位图从一个设备场景复制到另一个。源和目标DC相互间必须兼容。这个函数会在设备场景中定义一个目标矩形，并在位图中定义一个源图象。源矩形会根据需要进行伸缩，以便与目标矩形的大小相符 
返回值 
Long，非零表示成功，零表示失败。会设置GetLastError 
参数表 
参数 类型及说明 
hdc Long，目标设备场景 
x,y Long，目标矩形左上角的x,y坐标，以逻辑坐标表示 
nWidth,nHeight Long，目标矩形的宽度和高度，以逻辑坐标表示 
hSrcDC Long，源设备场景。如光栅运算未指定一个源，则这个参数应为零 
xSrc,ySrc Long，用源DC的逻辑坐标表示的源矩形左上角位置 
nSrcWidth,nSrcHeight Long，分别指定用逻辑单位（以源DC为基础）传输的一幅图象的宽度和高度。如其中有一个参数的符号（指正负号）与对应的目标参数不符，位图就会在对应的轴上作镜像转换处理 
dwRop Long，传输过程中进行的光栅运算。如刷子属于光栅运算的一部分，就使用选入目标DC的刷子 
注解 
可用GetDeviceCaps函数判断特定的设备场景是否支持此函数
不可选择对源位图进行剪切或旋转处理，源位图也不能是一个图元文件设备场景
 将picturebox1的图片翻转后放大picture2:
strectchblt picture1.hdc,w,h,-w,-h,picture2.hdc,0,0,w,h,vbscrcopy

Answer 5

前段时间在很多地方问过这个问题，得到的答复都是说VB做图形旋转（任意角度）是很慢的，也找到几个旋转的例程序，速度真是很慢，MSDN里面都有一篇"How to rotate a Bitmap Image in 90-Degree Increments的文章，用里面的算法速度也很慢。