请教如何在VB中旋转图片?

Question

最好是去找找相关的OCX控件，这是我的建议，但我没有类似控件。
找到后，烦您发送给我一份。

Answer 1

使用API函数中的StretchBlt，可以实现图片的水平翻转、放大和缩小。但不能进行自由旋转。

Answer 2

自由旋转需要自己编写代码,用API函数把图象读入一个二进制数组,然后找一本详细的数字图象处理书找算法吧.

Answer 3

我最近在中国计算机日报www.computer.com.cn网站上看到一篇介绍如何在VB中旋转图片的文章，去看看吧。

Answer 4

image2.Picture :=image15.Picture ;
  for i:=0 to image1.Height do
  for j:=0 to image1.Width do
  image1.Canvas.Pixels[(-i+image2.height),j]:=image2.Canvas.Pixels[j,i];
这是Delphi的简单方法，该一下便可。

Answer 5

要实现任意旋转，参看
http://expert.csdn.net/Topic/28600.shtm

Answer 6

请参考解析几何公式：
    x'=x*cosA+y*sinA
    y'=y*cosA-x*sinA
A为逆时针旋转的角度

Answer 7

请参考解析几何公式
    x'=xcosA+ysinA
    y'=ycosA-xsinA
A为逆时针旋转角度

Answer 8

请看此页下端的“程序员大本营”的“Visual Basic”的“VB源码集合”的“图形处理”的“转动图形的例子”例程！