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