麻豆小视频在线观看_中文黄色一级片_久久久成人精品_成片免费观看视频大全_午夜精品久久久久久久99热浪潮_成人一区二区三区四区

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

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

2019-11-18 17:36:28
字體：大 中 小
來源：轉載
供稿：網(wǎng)友
----在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ā)表
主站蜘蛛池模板： 欧美黄 片免费观看 | 国产69久久久 | 国产精品美女久久久免费 | 久久精品av | 亚洲一级片在线观看 | 一级做a爱片毛片免费 | 九九午夜 | 福利免费在线 | 精品久久久久久久久中文字幕 | 天堂在线中文资源 | 欧美特一级 | 日韩精品中文字幕在线播放 | 精品69人人人人 | 黄色大片在线观看 | 一级做a爱片久久毛片a高清 | 女人解衣喂奶电影 | 九色在线78m | 激情亚洲一区二区 | www.99av | 成人黄色短视频在线观看 | 国产精品一区二区手机在线观看 | 天天透天天狠天天爱综合97 | 久久网日本| 老女人碰碰在线碰碰视频 | 久草在线新时代视觉 | 久久久aa| 欧美一级高潮 | 性欧美xxxx免费岛国不卡电影 | 91成人免费看片 | 亚洲国产超高清a毛毛片 | 黄色毛片a级 | 亚洲aⅴ在线观看 | 欧美一级毛片大片免费播放 | 国产成人av在线播放 | 日韩大片在线永久观看视频网站免费 | 色柚视频网站ww色 | 北原夏美av | 久久精品a一级国产免视看成人 | 操操插插 | 自拍偷拍亚洲图片 | 久久午夜免费视频 |