旋转VB PICTUREBOX控件

[xtxd]

请问怎样实现PICTUREBOX控件的旋转，且度数可变。
它装载的图像（包括动态影像），也一起旋转。
不胜感激！

[DeityFox]

VB中任意旋转位图的实现
冰 天 雪 地 软 件
严 冬
---- 在VISUAL BASIC 中 没 有 什 么 命 令 或 函 数 能 够 实 现 将 一 个 位 图 旋 转 一 个 角 度 后 显 示 出 来， 但 我 们 可 以 用 画 点 的 方 式， 将 一 个 图 画 盒 中 的 位 图 中 的 像 素 点 旋 转 一 个 角 度 后 画 入 另 一 个 图 画 盒 中， 当 源 图 画 盒 中 的 像 素 都 被 画 到 目 标 图 画 盒 中 时， 也 就 完 成 了 位 图 的 旋 转。

---- 这 里 主 要 用 到 了VISUAL BASIC 中 的 两 个 方 法：POINT 方 法 和PSET 方 法。POINT 方 法 的 作 用 是 从 源 图 画 盒 中 提 取 一 个 像 素 点 的 颜 色 值； 而PSET 方 法 的 作 用 是 按 照 旋 转 后 的 坐 标 和 相 应 像 素 点 的 颜 色 值 在 目 标 图 画 盒 中 画 点。 显 然 这 个 方 法 的 速 度 不 会 太 快， 因 而 适 用 于 较 小 的 图 片。 下 面 介 绍 一 下 实 现 方 法：

---- 进 入VISUAL BASIC 中， 建 立 一 个 新 的 窗 体。 在 窗 体 中 加 入 两 个 图 画 盒 控 件（Picture1 和Picture2）， 设 置 它 们 的Name 属 性 为PicSource 和PicTarget， 并 为PicSource 图 画 盒 的 Picture 属 性 设 置 一 幅 位 图。 再 在 窗 体 中 加 入 一 个 按 钮（CommandRotorate）， 设 置 它 的 Caption 属 性 为“ 旋 转”。 然 后 加 入 以 下 代 码：

Option Explicit
Const Pi = 3.14
Private Sub CommandRototate_Click()
Dim x As Integer, y As Integer
Dim X1 As Integer, Y1 As Integer
Dim X2 As Double, Y2 As Double
Dim X3 As Double, Y3 As Double
Dim JiaoDu As Double
Dim HuDu As Double
JiaoDu = 45 注释： 角 度
HuDu = JiaoDu * Pi / 180 注释： 弧 度
PicSource.ScaleMode = vbPixels
PicTarget.ScaleMode = vbPixels
For x = 0 To PicTarget.ScaleWidth
X1 = x - PicTarget.ScaleWidth \ 2
For y = 0 To PicTarget.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
If X3 > 0 And X3 < PicSource.Scale
Width - 1 And Y3 > 0 And Y3
< PicSource.ScaleHeight - 1 Then
PicTarget.PSet (x, y), PicSource.Point(X3, Y3)
End If
Next y
Next x
End Sub

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

[DeityFox]

用VB6轻松实现图片旋转
新天


　　使用过ACDSEE的朋友一定对它的JPG图片旋转功能记忆犹新，其实我们利用VB6的先进功能，可以对任意格式的图片文件（包括JPG、GIF、BMP、ICO等）进行45度、180度旋转，确实可以和ACDSEE一较高下。
　　启动vb6建立一个标准exe工程，首先添加两个图片框（picture1和picture2），添加三个命令按钮command1（caption=“正常显示”）、command2（caption=“180度倒立”）、command3（caption=“45度旋转”），双击窗体，写入以下代码：
PrivateConstSRCCOPY=&HCC0020
PrivateConstPi=3.14

PrivateDeclareFunctionSetPixelLib"gdi32"(ByValhdcAsLong, ByValxAsLong,ByValyAsLong,ByValcrColorAsLong)AsLong
PrivateDeclareFunctionGetPixelLib"gdi32"(ByValhdcAsLong, ByValxAsLong,ByValyAsLong)AsLong

PrivateDeclareFunctionStretchBltLib"gdi32"(ByValhdcAsLong, ByValxAsLong,ByValyAsLong,ByValnWidthAsLong,ByValnHeightAsLong, ByValhSrcDCAsLong,ByValxSrcAsLong,ByValySrcAsLong,ByValnSrcWidth AsLong,ByValnSrcHeightAsLong,ByValdwRopAsLong)AsLong

privateSubbmp_rotate(pic1AsPictureBox,pic2AsPictureBox,ByValtheta)‘45度旋转
　　Dimc1xAsInteger,c1yAsInteger
　　Dimc2xAsInteger,c2yAsInteger
　　DimaAsSingle
　　Dimp1xAsInteger,p1yAsInteger
　　Dimp2xAsInteger,p2yAsInteger
　　DimnAsInteger,rAsInteger

　　c1x=pic1.ScaleWidth\2
　　c1y=pic1.ScaleHeight\2
　　c2x=pic2.ScaleWidth\2
　　c2y=pic2.ScaleHeight\2
　　Ifc2x<c2yThenn=c2yElsen=c2x
　　　n=n-1
　　　pic1hDC=pic1.hdc
　　　pic2hDC=pic2.hdc
　　　Forp2x=0Ton
　　　Forp2y=0Ton
　　Ifp2x=0Thena=Pi/2Elsea=Atn(p2y/p2x)
　　　r=Sqr(1&*p2x*p2x+1&*p2y*p2y)
　　　p1x=r*Cos(a+theta)
　　　p1y=r*Sin(a+theta)
　　　c0&=GetPixel(pic1hDC,c1x+p1x,c1y+p1y)
　　　c1&=GetPixel(pic1hDC,c1x-p1x,c1y-p1y)
　　　c2&=GetPixel(pic1hDC,c1x+p1y,c1y-p1x)
　　　c3&=GetPixel(pic1hDC,c1x-p1y,c1y+p1x)
　　　Ifc0&<>-1ThenSetPixelpic2hDC,c2x+p2x,c2y+p2y,c0
　　　Ifc1&<>-1ThenSetPixelpic2hDC,c2x-p2x,c2y-p2y,c1
　　　Ifc2&<>-1ThenSetPixelpic2hDC,c2x+p2y,c2y-p2x,c2
　　　Ifc3&<>-1ThenSetPixelpic2hDC,c2x-p2y,c2y+p2x,c3
　　　Next
　　　Next
EndSub

PrivateSubCommand1_Click()‘正常复制
　Picture2.Cls
　px=Picture1.ScaleWidth
　py=Picture1.ScaleHeight
　StretchBltPicture2.hdc,px,0,-px,py,Picture1.hdc,0,0,px,py,SRCCOPY
EndSub

PrivateSubCommand2_Click()‘180度倒立
　Picture2.Cls
　px=Picture1.ScaleWidth
　py=Picture1.ScaleHeight
　StretchBltPicture2.hdc,0,py,px,-py,Picture1.hdc,0,0,px,py,SRCCOPY
EndSub

PrivateSubCommand3_Click()‘45旋转
　Picture2.Cls
　Callbmp_rotate(Picture1,Picture2,3.14/4)
EndSub

PrivateSubForm_Load()
　OnErrorResumeNext
　Me.Caption=App.Title"添加应用程序标题
　Me.Left=(Screen.Width-Me.Width)/2
　Me.Top=(Screen.Height-Me.Height)/2"窗体具中
　Picture1.ScaleMode=3
　Picture2.ScaleMode=3
EndSub