VB中位图旋转的实现

独自浅唱I146

独自浅唱I146

2016-02-19 16:32

只要你有一台电脑或者手机,都能关注图老师为大家精心推荐的VB中位图旋转的实现,手机电脑控们准备好了吗?一起看过来吧!
在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.ScaleWidth2
  Fory=0ToPicTarget.ScaleHeight
  Y1=y-PicTarget.ScaleHeight2
  X2=X1*Cos(-HuDu) Y1*Sin(-HuDu)
  Y2=Y1*Cos(-HuDu)-X1*Sin(-HuDu)
  X3=X2 PicSource.ScaleWidth2
  Y3=Y2 PicSource.ScaleHeight2
  IfX30AndX3PicSource.ScaleWidth-1AndY30AndY3
  PicSource.ScaleHeight-1Then
  PicTarget.PSet(x,y),PicSource.Point(X3,Y3)
  EndIf
  Nexty
  Nextx
  EndSub
  运行后,按下“旋转”按钮,可以见到源图画盒中的位图旋转45度后进入到目标图画盒中。如果要改变旋转的角度,只需将JiaoDu变量设置为相应值即可。->

展开更多 50%)
分享

猜你喜欢

VB中位图旋转的实现

编程语言 网络编程
VB中位图旋转的实现

VB中任意旋转位图的实现

编程语言 网络编程
VB中任意旋转位图的实现

s8lol主宰符文怎么配

英雄联盟 网络游戏
s8lol主宰符文怎么配

在VB中实现位图的透明放置

编程语言 网络编程
在VB中实现位图的透明放置

如何在vc++中旋转位图

编程语言 网络编程
如何在vc++中旋转位图

lol偷钱流符文搭配推荐

英雄联盟 网络游戏
lol偷钱流符文搭配推荐

将位图旋转90度

编程语言 网络编程
将位图旋转90度

VB中实现图像特技(2)

编程语言 网络编程
VB中实现图像特技(2)

lolAD刺客新符文搭配推荐

英雄联盟
lolAD刺客新符文搭配推荐

用运算符Like来比较字符串

用运算符Like来比较字符串

Win10怎么打开“网络连接”

Win10怎么打开“网络连接”
下拉加载更多内容 ↓