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

首頁 > 學院 > 開發設計 > 正文

VB中位圖旋轉的實現

2019-11-18 17:38:20
字體：大 中 小
來源：轉載
供稿：網友
在VISUALBASIC中沒有什么命令或函數能夠實現將一個位圖旋轉一個角度后顯示出來，但我們可以用畫點的方式，將一個圖畫盒中的位圖中的像素點旋轉一個角度后畫入另一個圖畫盒中，當源圖畫盒中的像素都被畫到目標圖畫盒中時，也就完成了位圖的旋轉。這里主要用到了VISUALBASIC中的兩個方法：POINT方法和PSET方法。POINT方法的作用是從源圖畫盒中提取一個像素點的顏色值；而PSET方法的作用是按照旋轉后的坐標和相應像素點的顏色值在目標圖畫盒中畫點。顯然這個方法的速度不會太快，因而適用于較小的圖片。

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

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板： 天门市| 桂东县| 汨罗市| 上林县| 棋牌| 承德县| 湘乡市| 远安县| 永春县| 平阴县| 宿迁市| 灌阳县| 南投市| 砀山县| 渝北区| 长丰县| 佛山市| 冷水江市| 滦平县| 靖州| 山阳县| 宁河县| 同德县| 罗平县| 岳西县| 庆城县| 宾阳县| 武隆县| 手机| 长春市| 大渡口区| 吕梁市| 五莲县| 吴堡县| 石屏县| 长葛市| 万全县| 神池县| 汕头市| 龙陵县| 册亨县|