程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> Visual Basic語言 >> VB綜合教程 >> VB中任意旋轉位圖的實現

VB中任意旋轉位圖的實現

編輯: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
  IfX3>0AndX3<PicSource.Scale
  Width-1AndY3>0AndY3
  <PicSource.ScaleHeight-1Then
  PicTarget.PSet(x,y),PicSource.Point(X3,Y3)
  EndIf
  Nexty
  Nextx
  EndSub
  
  ----運行後,按下“旋轉”按鈕,可以見到源圖畫盒中的位圖旋轉45度後進入到目標圖畫盒中。如果要改變旋轉的角度,只需將JiaoDu變量設置為相應值即可。->

  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved