用VB实现“百叶窗”的图形特效
在VB环境中新建一个窗体,绘制两个图片框picSour和picDest,两个命令按钮cmdShow和cmdExit。首先在窗体的通用过程中声明BitBlt函数即所需要的常量名,在载入窗体同时在picSour中载入图片,在按钮cmdShow的事件中调用BitBlt函数。程序如下:
API函数声明:
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
Tags:
作者:佚名评论内容只代表网友观点,与本站立场无关!
评论摘要(共 0 条,得分 0 分,平均 0 分)
查看完整评论