亚洲香蕉成人av网站在线观看_欧美精品成人91久久久久久久_久久久久久久久久久亚洲_热久久视久久精品18亚洲精品_国产精自产拍久久久久久_亚洲色图国产精品_91精品国产网站_中文字幕欧美日韩精品_国产精品久久久久久亚洲调教_国产精品久久一区_性夜试看影院91社区_97在线观看视频国产_68精品久久久久久欧美_欧美精品在线观看_国产精品一区二区久久精品_欧美老女人bb

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

VB中實現圖像特技(2)

2019-11-18 17:38:23
字體：大 中 小
來源：轉載
供稿：網友
->設置各控件的屬性如下：
Form1：AutoRedraw：True
ScaleMode：3
Picture1：AutoRedraw：True
ScaleMode：3
Visible:False
2代碼編寫
Modull.bas中的內容（聲明BitBlt函數）：
PublicConstSRCCOPY=&HCC0020'（DWord）dest=source
DeclareFunctionBitBltLib"gdi32"Alias"BitBlt"(ByValhDestDCAsLongByValxAsLongByValyAsLongByValnWidthAsLongByValnHeightAsLongByValhSrcDCAsLongByValxSrcAsLongByValySrcAsLongByValdwRopAsLong)AsLong
這兩句只要從Win32api.txt文件中粘貼即可。
Form1中的代碼：
在Declare中定義全局變量：
Constbmpfilemax=5&總共5個bmp文件
Dimbmpfile(bmpfilemax)AsString&bmp文件的文件名數組
Dimdrawbmpmode(bmpfilemax)AsInteger&各畫顯示時的切換方式
Dimbmpnum,movestep,xmax,ymaxAsInteger
DimkxyAsSingle&x,y二個方向的比例
程序運行時先作初始化工作：
bmpfile(2)=App.Path ''/bmp3.bmp''
bmpfile(3)=App.Path ''/bmp4.bmp''
bmpfile(4)=App.Path ''/bmp5.bmp''
drawbmpmode(0)=1
drawbmpmode(1)=5
drawbmpmode(2)=3
drawbmpmode(3)=4
drawbmpmode(4)=2
movestep=0&步進參數
xmax=Form.ScaleWidth/2
ymax=Form.ScaleHeight/2
kxy=ymax/xmax
Picture1.Picture=LoadPicture(bmpfile(bmpnum))
Timer1.Interval=30&定時器起動
EndSub
響應鼠標：

PrivateSubForm-Click()
End&當有擊鼠標動作時程序結束
EndSub

切換演示工作主要在定時器中完成：
PrivateSubTimer1-Timer()
hDestDC=Form1.HDC&目標DC
hSrcDC=Picture1.hDC&源DC,畫是從不可見的Picture1中拷貝到窗體
drawflag=drawbmpmode(bmpnum)&當前畫出現的方式
SelectCasedrawflag
Case1&從中間逐步放大
endmax=xmax&用于結束判斷
X1=xmax-movestep
w=movestep*2
Y1=Cint(ymax-movestep*kxy)
h=Cint(2*movestep*kxy)
i=BitBlt(hDestDC,X1,Y1,w,h,hSrcDC,X1,Y1,SRCCOPY)
Case2&從左到右
endmax=xmax
w=movestep*2
h=Form1.ScaleHeight
i=BitBlt(hDestDC,0,0,w,h,hSrcDC,X1,Y1,SRCCOPY)

Case3'左右向中間
endmax=xmax
w=movestep
h=Form1.ScaleHeight
i=BitBlt(hDestDC,0,0,w,h,hSrcDC,0,0,SRCCOPY)&左面部分
X1=Form1.ScaleWidth-movestep
i=BitBlt(hDestDC,X1,0,w,h,hSrcDC,X1,0,SRCCOPY)&左面部分
Case4'柵條狀
endmax=CInt(2*xmax/10)&共分階10條
tempi=CInt(2*xmax/10)
w=movestep
h=Form1.ScaleHeight
Forij=0To9
i=BitBlt(hDestDC,tempi*ij,0,w,h,hSrcDC,tempi*ij,0,SRCCOPY)
Nextij
Case5'棱形狀
endmax=CInt(2*xmax/10)
tempi=CInt(2*xmax/10)
w=movestep
Forih=0Tow-1
Forik=0To9
Forij=0To9
l=tempi*ik tempi/2
t=tempi*ij tempi/2
i=BitBlt(hDestDC,1-(w-ih),t-ih,(w-ih)*2,1,hSrcDC,1-(w-ih),t-ih,SRCCOPY)
i=BitBlt(hDestDC,1-(w-ih),t ih,(w-ih)*2,1,hSrcDC,1-(w-ih),t ih,SRCCOPY)
Nextij
Nextik
Nextih
EndSelect

Form1.Refresh

movestep=movestep 2&步進增加
Ifmovestep>endmaxThen&若步進夠大，畫面都已顯示，本張畫結束切換
bmpnum=bmpnum 1&進到下一張畫
Ifbmpnum>=bmpfilemaxThen&若5張畫已顯示完則再從第一張開始
bmpnum=0
EndIf
movestep=0
Picture1.Picture=LoadPicture(bmpfile(bmpnum))
EndIf
EndSub->
->

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
亚洲香蕉成人av网站在线观看_欧美精品成人91久久久久久久_久久久久久久久久久亚洲_热久久视久久精品18亚洲精品_国产精自产拍久久久久久_亚洲色图国产精品_91精品国产网站_中文字幕欧美日韩精品_国产精品久久久久久亚洲调教_国产精品久久一区_性夜试看影院91社区_97在线观看视频国产_68精品久久久久久欧美_欧美精品在线观看_国产精品一区二区久久精品_欧美老女人bb
亚洲a一级视频| 亚洲欧美国产精品专区久久| 久久久久久久久久久亚洲| xvideos亚洲人网站| 成人做爰www免费看视频网站| 91色精品视频在线| 国产极品精品在线观看| 日本精品一区二区三区在线播放视频| 欧美一级视频免费在线观看| 亚洲在线观看视频网站| 久久精品久久久久久国产 免费| 久久亚洲精品一区| 久久人人爽人人爽爽久久| 美女国内精品自产拍在线播放| 久久久精品国产一区二区| 国产成人精品在线观看| 97人人做人人爱| 日av在线播放中文不卡| 91精品国产九九九久久久亚洲| 国产精品美女在线| 国产欧美亚洲视频| 日韩av免费看| 欧美日韩中文字幕在线视频| 欧美成人小视频| 亚洲第一精品电影| 国产日韩在线看| 91久久综合亚洲鲁鲁五月天| 国产精品美女久久久免费| 欧美三级免费观看| 亚洲另类图片色| 国产脚交av在线一区二区| 亚洲欧美一区二区三区情侣bbw| 日韩亚洲欧美中文在线| 深夜福利日韩在线看| 91精品国产九九九久久久亚洲| 国内精品伊人久久| 夜夜躁日日躁狠狠久久88av| 亚洲综合中文字幕在线观看| 久久99热精品这里久久精品| 亚洲一区二区自拍| 2020欧美日韩在线视频| 国产精品27p| 欧美激情一区二区三区高清视频| 精品人伦一区二区三区蜜桃免费| 九九视频直播综合网| 精品国产一区二区三区久久狼黑人| 中文字幕久精品免费视频| 色综合色综合久久综合频道88| 97香蕉久久超级碰碰高清版| 韩国美女主播一区| 俺也去精品视频在线观看| 色偷偷噜噜噜亚洲男人的天堂| 久久免费少妇高潮久久精品99| 久久亚洲私人国产精品va| 亚洲精品久久久久久下一站| 久久婷婷国产麻豆91天堂| 77777亚洲午夜久久多人| 欧美午夜www高清视频| 91免费综合在线| 欧美噜噜久久久xxx| 欧美日韩中文在线观看| 国产成人激情小视频| 亚洲精品久久在线| 欧美激情国产高清| 欧美激情一区二区久久久| 亚洲欧美制服另类日韩| 国产自摸综合网| 日产精品99久久久久久| 国内精品中文字幕| 国模吧一区二区三区| 视频在线一区二区| 日韩a**站在线观看| 国产综合在线观看视频| 亚洲精品视频免费在线观看| 欧美另类99xxxxx| 亚洲黄色在线观看| 亚洲精品第一页| 中文字幕日韩欧美在线视频| 亚洲欧美第一页| 久久久国产精彩视频美女艺术照福利| 久久精品91久久久久久再现| 欧美日韩中文在线| 69久久夜色精品国产69乱青草| 在线观看不卡av| 国产成人一区二区在线| 欧美日韩在线另类| 国产精品欧美激情在线播放| 欧美性xxxx在线播放| 成人久久精品视频| 最好看的2019的中文字幕视频| 亚洲综合大片69999| 国内揄拍国内精品| 国产精品视频在线观看| 欧美精品激情视频| 欧美激情中文字幕在线| 日韩免费不卡av| 日韩中文娱乐网| 美日韩丰满少妇在线观看| 精品国产乱码久久久久久天美| 国产精品v片在线观看不卡| 久久久之久亚州精品露出| 久久6精品影院| 国产精品草莓在线免费观看| 国产日韩亚洲欧美| 日韩视频免费在线观看| 国产精品电影久久久久电影网| 精品久久久香蕉免费精品视频| 欧美性猛交99久久久久99按摩| 成人福利网站在线观看11| 精品美女久久久久久免费| 国产一区香蕉久久| 久久久中精品2020中文| 国产欧美日韩精品专区| 精品日韩中文字幕| 日韩高清av一区二区三区| 日韩在线免费av| 欧美国产亚洲视频| www.日韩.com| 欧美精品一区三区| 亚洲免费精彩视频| 啊v视频在线一区二区三区| 国产91av在线| 成人在线国产精品| 精品久久久视频| 77777少妇光屁股久久一区| 精品在线观看国产| 日韩av在线免费| 日韩国产欧美区| 91po在线观看91精品国产性色| 96sao精品视频在线观看| 欧美精品久久久久久久| 欧美综合一区第一页| 美女视频黄免费的亚洲男人天堂| 亚洲精品电影网站| 成人国产精品久久久久久亚洲| 亚洲白虎美女被爆操| 国产在线视频91| 国产xxx69麻豆国语对白| 亚洲人成网站777色婷婷| 欧美亚州一区二区三区| 欧美一级大片在线免费观看| 欧美激情第1页| 国产精品亚发布| 日韩av黄色在线观看| 日韩欧美中文在线| 亚洲欧美日韩一区二区三区在线| 欧美精品久久久久久久免费观看| 日韩精品中文字幕在线播放| 日韩性生活视频| 午夜精品三级视频福利| 亚洲欧洲第一视频| 国产精品一二区| 亚洲天堂日韩电影| 亚洲精品短视频| 欧美成人在线网站| 欧美在线视频一二三| 国产精品视频免费在线| 成人午夜在线观看| 欧美成人自拍视频| 国产亚洲精品va在线观看| 久久久久久久久久久网站| 欧美性xxxx极品hd满灌| 欧美激情性做爰免费视频| 欧美性理论片在线观看片免费|