国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 學院 > 開發(fā)設計 > 正文

VB中任意旋轉位圖的實現(xiàn)

2019-11-18 17:36:28
字體：大 中 小
來源：轉載
供稿：網友
----在VISUALBASIC中沒有什么命令或函數(shù)能夠實現(xiàn)將一個位圖旋轉一個角度后顯示出來，但我們可以用畫點的方式，將一個圖畫盒中的位圖中的像素點旋轉一個角度后畫入另一個圖畫盒中，當源圖畫盒中的像素都被畫到目標圖畫盒中時，也就完成了位圖的旋轉。

----這里主要用到了VISUALBASIC中的兩個方法：POINT方法和PSET方法。POINT方法的作用是從源圖畫盒中提取一個像素點的顏色值；而PSET方法的作用是按照旋轉后的坐標和相應像素點的顏色值在目標圖畫盒中畫點。顯然這個方法的速度不會太快，因而適用于較小的圖片。下面介紹一下實現(xiàn)方法：

----進入VISUALBASIC中，建立一個新的窗體。在窗體中加入兩個圖畫盒控件（Picture1和Picture2），設置它們的Name屬性為PicSource和PicTarget，并為PicSource圖畫盒的Picture屬性設置一幅位圖。再在窗體中加入一個按鈕（CommandRotorate），設置它的Caption屬性為“旋轉”。然后加入以下代碼：

OptionExplicit
ConstPi=3.14
PicSource.ScaleMode=vbPixels
PicTarget.ScaleMode=vbPixels
Forx=0ToPicTarget.ScaleWidth
X1=x-PicTarget.ScaleWidth/2
Fory=0ToPicTarget.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
IfX3>0AndX3<PicSource.Scale
Width-1AndY3>0AndY3
<PicSource.ScaleHeight-1Then
PicTarget.PSet(x,y),PicSource.Point(X3,Y3)
EndIf
Nexty
Nextx
EndSub

----運行后，按下“旋轉”按鈕，可以見到源圖畫盒中的位圖旋轉45度后進入到目標圖畫盒中。如果要改變旋轉的角度，只需將JiaoDu變量設置為相應值即可。->

發(fā)表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發(fā)表
主站蜘蛛池模板： 霸州市| 康平县| 广饶县| 龙井市| 镇原县| 鱼台县| 资溪县| 容城县| 远安县| 邵阳市| 哈密市| 天峨县| 富源县| 肇源县| 阿图什市| 浠水县| 太康县| 应城市| 巨野县| 洪泽县| 东兰县| 锡林郭勒盟| 开封县| 长寿区| 佛学| 湘乡市| 维西| 南平市| 梁平县| 佛教| 双城市| 尤溪县| 万载县| 宜黄县| 胶南市| 景谷| 蕉岭县| 平潭县| 格尔木市| 秭归县| 仁寿县|