国产探花免费观看_亚洲丰满少妇自慰呻吟_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ā)表
主站蜘蛛池模板： 鱼台县| 抚宁县| 马关县| 揭阳市| 卓尼县| 汝州市| 宿迁市| 凤山县| 东乡| 班玛县| 麦盖提县| 科技| 深泽县| 鄂伦春自治旗| 外汇| 乐亭县| 永清县| 汽车| 夏邑县| 兴国县| 乌鲁木齐市| 沅江市| 怀安县| 巴林左旗| 保山市| 兴安盟| 和林格尔县| 广丰县| 新昌县| 随州市| 黔江区| 陇西县| 湘阴县| 通江县| 贞丰县| 南通市| 日照市| 克拉玛依市| 兴文县| 南宫市| 德令哈市|