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

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

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變量設置為相應值即可。->

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板： 国产精品一区二区免费在线观看 | 欧美 videos粗暴 | 国内久久久久 | 欧美日韩在线免费观看 | 性爱视频在线免费 | 羞羞的视频免费在线观看 | 亚洲一区二区三区日本久久九 | 蜜桃网在线观看 | av在线等 | 亚洲国产高清一区 | 一级电影在线观看 | 亚洲日本高清 | 午夜视频大全 | 999插插插 | a视频在线免费观看 | videos高潮| 日韩精品二区 | 国产网站黄 | 欧美一级精品 | 国产免费中文字幕 | 亚洲福利视 | 欧美一区二区三区免费不卡 | www国产成人免费观看视频 | 久久激情国产 | 99re久久最新地址获取 | 久久国产一 | 日韩av电影在线观看 | 久久久久久免费免费 | av色哟哟 | 中国女警察一级毛片视频 | 欧美三级欧美成人高清www | 麻豆传传媒久久久爱 | 黄色网址免费在线播放 | 色视频在线播放 | 精精国产xxxx视频在线播放7 | 免费h片网站 | 夜添久久精品亚洲国产精品 | 成人精品aaaa网站 | 国内精品伊人久久久久网站 | 国产精品一区二区视频 | 久久久久久久久亚洲精品 |