用VB實(shí)現(xiàn)圖像切換效果

2019-11-18 17:38:04

字體：大中小

供稿：網(wǎng)友

->PaintPicture是自VB4以后新提供的圖形圖像處理方法，它的基本功能是圖像塊傳輸，在以前的VB版本中要產(chǎn)生塊傳輸效果，需采用WindowsGDI中的塊傳輸函數(shù)BitBltAPI調(diào)用。PaintPicture正是VB中用來(lái)代替BitBltAPI調(diào)用的簡(jiǎn)單而方便的方法。它能快速地將兩幅位圖進(jìn)行合并；能將位圖的全部或某一部分快速剪切并粘貼到其它地方；并能將位圖自動(dòng)延伸或壓縮以適應(yīng)新的環(huán)境；能在屏幕上不同位置之間、屏幕與內(nèi)存之間傳遞位圖；它采用32位三元光柵操作代碼（ROP），在源位圖、選定的刷子位圖和目標(biāo)位圖之間進(jìn)行顏色組合，生成目標(biāo)位圖中的最終顏色，它將13個(gè)常用的ROPR操作以?xún)?nèi)部常量形式給出，不需任何聲明，不用理會(huì)其32位參數(shù)值。
基本格式：
Object．PaintPicturepicture，x1，y1，width1，height1，x2，y2，Width2，height2，opcode

其中Object可以為窗體或PictureBox控件Picture可以為BMP、Dib、Ico、Wmf、Emf等格式的圖片
　　X1、Y1、Width1、height1為目標(biāo)位圖的參數(shù)
　　X2、Y2、Width2、height2為源位圖的參數(shù)
　opcode表示源圖與目標(biāo)位圖（或刷子位圖）的組合關(guān)系，該參數(shù)與BitBlt中dwRop參數(shù)含義相同。
　　VB4為opcode定義了13個(gè)內(nèi)部常量：
　　vbDstInvert：目標(biāo)位圖取反
　　vbSrcCopy：源位圖直接覆蓋目標(biāo)位圖
　　vbSrcAnd：源位圖與目標(biāo)位圖進(jìn)行“與”操作
　bSrcInvert：源位圖與目標(biāo)位圖進(jìn)行“異或”操作
　　vbSrcPaint：源位圖與目標(biāo)位圖進(jìn)行“或”操作
　　vbNotSrcCopy：源位圖取反
　　vbSrcErase：目標(biāo)位圖取反，再與源位圖進(jìn)行“與”操作
　　vbNotSrcErase：源位圖與目標(biāo)位圖進(jìn)行“或非”操作
　　vbMergePaint：源位圖取反，再與目標(biāo)位圖進(jìn)行“或”操作
　　此外，與刷子位圖有關(guān)的常量是vbMergeCopy、vbPatCopy、vbPatInvert和vbPatPaint，這13個(gè)內(nèi)部常量可以在菜單View／ObjectBrowser／VB－VisualBasicobjectsandprocedures／RasterOpConstants中列出。
　　巧用PainPicture方法，結(jié)合控件屬性，可以方便地產(chǎn)生許多常見(jiàn)的圖像切換效果，如我們?cè)诙嗝襟w作品及電視中常見(jiàn)的圖像旋轉(zhuǎn)引入、翻轉(zhuǎn)、飛入、滑入、彈出、淡入淡出、隱現(xiàn)等動(dòng)畫(huà)效果。舉例：圖像滑入（Wipe）效果的實(shí)現(xiàn)
　　在滑入效果中，新圖像慢慢逐漸覆蓋舊圖像，就象在墻上展于一幅卷成筒狀的畫(huà)。
　　1．缺省窗體Form1
　　2．Form1上置PictureBox1、PictureBox2兩大小相同的圖片控件及Timer時(shí)鐘控件PictureBox1中安裝源圖，在PictureBox2中展開(kāi)PictureBox1中的圖像
　　3．編程
　　PrivateSubFormμLoad（）
　　Picture1．ScaleModeΚPixel
　　Picture2．ScaleModeΚPixe1
　　hΚ0
　　tΚ2
　　EndSUb

　　PrivateSubTimerμTimer（）
　　IfhΙΚPicture1．ScaleHeightThen
　　Picture2．PaintPicturePicture1．Picture，0，h，Picture2．ScaleWidth，t，0，h，Picture1．ScaleWidth，t，vbSrcCopy　　hΚh＋t
　　EndIf
　　EndSub->

上一篇：用VB實(shí)現(xiàn)全屏幕圖形界面及動(dòng)態(tài)功能提示

下一篇：切割一個(gè)Container中的圖片