怎么用VB實(shí)現(xiàn)百葉窗的圖形特效

小編給大家分享一下怎么用VB實(shí)現(xiàn)百葉窗的圖形特效，相信大部分人都還不怎么了解，因此分享這篇文章給大家參考一下，希望大家閱讀完這篇文章后大有收獲，下面讓我們一起去了解一下吧！

在雙塔等地區(qū)，都構(gòu)建了全面的區(qū)域性戰(zhàn)略布局，加強(qiáng)發(fā)展的系統(tǒng)性、市場前瞻性、產(chǎn)品創(chuàng)新能力，以專注、極致的服務(wù)理念，為客戶提供做網(wǎng)站、網(wǎng)站設(shè)計(jì) 網(wǎng)站設(shè)計(jì)制作按需搭建網(wǎng)站,公司網(wǎng)站建設(shè),企業(yè)網(wǎng)站建設(shè),成都品牌網(wǎng)站建設(shè),全網(wǎng)營銷推廣,外貿(mào)營銷網(wǎng)站建設(shè),雙塔網(wǎng)站建設(shè)費(fèi)用合理。

在Powerpoint這樣的軟件中，各種各樣的圖形特效層出不窮，其中“百葉窗”的切換效果尤為新穎奇特。在VB中實(shí)現(xiàn)這樣的圖形特效十分簡單方便。其方法是調(diào)用WINDOWS的API函數(shù)Bitblt。BitBlt函數(shù)就類似于C語言中的getimage、putimage兩個函數(shù)的組合運(yùn)用。BitBlt原意是“Bit Block Transfer”，其主要用途是位圖的復(fù)制。用BitBlt函數(shù)顯示圖形特效，其原理十分簡單，制作時先在表單中繪制兩個圖片框，將圖片存入一個圖片框，同時將另一個圖片框設(shè)為空，然后調(diào)用BitBlt函數(shù)將第一個圖片框中的圖形一部分一部分地復(fù)制到第二個圖片框中，這樣就可以實(shí)現(xiàn)千奇百怪的圖形特效。
在VB環(huán)境中新建一個窗體，繪制兩個圖片框picSour和picDest，兩個命令按鈕cmdShow和cmdExit。首先在窗體的通用過程中聲明BitBlt函數(shù)即所需要的常量名，在載入窗體同時在picSour中載入圖片，在按鈕cmdShow的事件中調(diào)用BitBlt函數(shù)。程序如下：
API函數(shù)聲明：
Declare Function BitBlt Lib″GDI″(ByVal hDestDC As Integer,ByVal X As Integer,ByVal Y As Integer,ByVal nWidth AS Integer,ByVal nHeight As Integer,ByVal hSrcDC As Integer,ByVal xSrc As Integer,ByVal ySrc As Integer,ByVal dwRop As Long)As Integer
Const COPY－PUT=＆HCC0020′BitBlt的15種算法之一，表示直接拷貝
載入圖片：
Sub Form－Load()
picsour.Picture=LoadPicture(″c:\windows\LEAVES.bmp″)
picsour.ScaleMode=3′以象素為單位
End Sub
顯示“百葉窗”的切換效果：
Sub Comshow－Click()
H％=picsour.ScaleHeight
W％=picsour.ScaleWidth
scanlines=4
For i=0 To(scanlines－1)
For j=i To H％ Step scanlines
s％=BitBlt％(picdest.hDC,0,j,W％,1,picsour.hDC,0,j,copy－Put)
delay 500′延時
Next j
Next i
End Sub
其中delay是一個通用子過程，用于延時，以便于能看清楚切換效果。代碼如下：
Sub delay(delaytime As Integer)
For i=1 To delaytime
Next i
End Sub
通過這樣簡單的程序就可以實(shí)現(xiàn)“百葉窗”的切換特效，其實(shí)，只要有合適的算法，運(yùn)用BitBlt函數(shù)能夠?qū)崿F(xiàn)的圖形特效是無窮的。

以上是“怎么用VB實(shí)現(xiàn)百葉窗的圖形特效”這篇文章的所有內(nèi)容，感謝各位的閱讀！相信大家都有了一定的了解，希望分享的內(nèi)容對大家有所幫助，如果還想學(xué)習(xí)更多知識，歡迎關(guān)注創(chuàng)新互聯(lián)行業(yè)資訊頻道！

網(wǎng)站名稱：怎么用VB實(shí)現(xiàn)百葉窗的圖形特效
文章地址：http://muchs.cn/article8/gesoip.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供網(wǎng)頁設(shè)計(jì)公司、、App設(shè)計(jì)、網(wǎng)站營銷、網(wǎng)站策劃、手機(jī)網(wǎng)站建設(shè)

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請盡快告知，我們將會在第一時間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時需注明來源： 創(chuàng)新互聯(lián)