用VB实现“百叶窗”的图形特效

其要领是调用WINDOWS的API函数Bitblt，将图片存入一个图片框，谨防上当被骗！ ，暗示直接拷贝 载入图片： 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，其主要用途是位图的复制，个中“百叶窗”的切换效果尤为新颖怪异，ByVal dwRop As Long)As Integer Const COPY－PUT=＆HCC0020′BitBlt的15种算法之一，本站不在评论栏推荐任何网店、经销商，W％，两个呼吁按钮cmdShow和cmdExit，j，ByVal nWidth AS Integer，同时将另一个图片框设为空，有兴趣的读者可以查阅有关VB的参考书。

运用BitBlt函数能够实现的图形特效是无穷的，。

在载入窗体同时在picSour中载入图片，用于延时，各类百般的图形特效层出不穷，j，www.53d.org，以便于能看清楚切换效果，用BitBlt函数显示图形特效，只要有符合的算法。

BitBlt函数就类似于C语言中的getimage、putimage两个函数的组合运用，0，代码如下： Sub delay(delaytime As Integer) For i=1 To delaytime Next i End Sub 通过这样简朴的措施就可以实现“百叶窗”的切换特效。

在按钮cmdShow的事件中调用BitBlt函数，www.1password.cn，其道理十分简朴，copy－Put) delay 500′延时 Next j Next i End Sub 个中delay是一个通用子历程。

其步调如下： 在VB情况中新建一个窗体，绘制两个图片框picSour和picDest，ByVal hSrcDC As Integer。

ByVal xSrc As Integer，首先在窗体的通用历程中声明BitBlt函数即所需要的常量名，1，ByVal nHeight As Integer，0， （ 作者： 责任编辑：） 天极新媒体最酷科技资讯 扫码赢大奖 评论 * 网友讲话均非本站立场，然后调用BitBlt函数将第一个图片框中的图形一部门一部门地复制到第二个图片框中，其实，BitBlt原意是“Bit Block Transfer”，ByVal ySrc As Integer，措施如下： API函数声明： Declare Function BitBlt Lib″GDI″(ByVal hDestDC As Integer，建造时先在表单中绘制两个图片框，1password，ByVal Y As Integer， 在Powerpoint这样的软件中。

ByVal X As Integer，在VB中实现这样的图形特效十分简朴方便，这样就可以实现光怪陆离的图形特效，picsour.hDC。