VB中任意旋转位图的完成|雨林木风下载站

导读冰天雪地软件严冬---- 在VISUAL BASIC 中没有什么命令或函数能够实现将一个位图旋转一个角度后显示出来，但我们可以 ...

冰天雪地软件严冬

---- 在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 变量设置为相应值即可。

温馨提示：喜欢本站的话，请收藏一下本站！

当前位置:雨林木风下载站 > 网页设计教程 > 详细页面

VB中任意旋转位图的完成

本类教程下载

系统下载排行