网页功能: 加入收藏 设为首页 网站搜索  
用VB实现“百叶窗”的图形特效
发表日期:2003-07-21作者:[] 出处:  

在Powerpoint这样的软件中,各种各样的图形特效层出不穷,其中“百叶窗”的切

换效果尤为新颖奇特。在VB中实现这样的图形特效十分简单方便。其方法是调用

WINDOWS的API函数Bitblt。BitBlt函数就类似于C语言中的getimage、putimage两

个函数的组合运用。BitBlt原意是“Bit Block Transfer”,其主要用途是位图的

复制。用BitBlt函数显示图形特效,其原理十分简单,制作时先在表单中绘制两个

图片框,将图片存入一个图片框,同时将另一个图片框设为空,然后调用BitBlt函

数将第一个图片框中的图形一部分一部分地复制到第二个图片框中,这样就可以实

现千奇百怪的图形特效。其步骤如下:

  在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:windowsLEAVES.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

  通过这样简单的程序就可以实现“百叶窗”的切换特效,其实,只要有合适的

算法,运用BitBlt函数能够实现的图形特效是无穷的。有兴趣的读者可以查阅有关

VB的参考书。

我来说两句】 【加入收藏】 【返加顶部】 【打印本页】 【关闭窗口
中搜索 用VB实现“百叶窗”的图形特效
本类热点文章
  用VB制作软键盘
  用VB制作软键盘
  制作半透明窗体
  让messagebox自动消失
  让messagebox自动消失
  给Listview做个背景
  给Listview做个背景
  VB程序实现WindowsXP效果的界面
  VB打造超酷个性化菜单
  用VB实现“百叶窗”的图形特效
  用VB实现“百叶窗”的图形特效
  用VB绘制正弦动画曲线
最新分类信息我要发布 
最新招聘信息

关于我们 / 合作推广 / 给我留言 / 版权举报 / 意见建议 / 广告投放  
Copyright ©2003-2024 Lihuasoft.net webmaster(at)lihuasoft.net
网站编程QQ群   京ICP备05001064号 页面生成时间:0.00368