摘要：介绍了在VB中调用Bitblt函数和Sleep函数实现图像马赛克效果的方法，并通过一个具体的实例，讲述了其设计过程及程序代码。
　　关键词：Bitblt；Sleep；马赛克
　　中图分类号：TP312文献标识码：A文章编号：1009-3044(2007)04-11120-01
　　
　　1 引言
　　马赛克效果是用方块填充某一图像框，从而实现图像变换的效果。Bitblt函数是API函数中的位图函数之一，它的主要功能是：将一幅位图从一个设备场景复制到另一个，可以用它来实现图像马赛克效果。
　　
　　2 实现技术
　　在VB中实现图像马赛克效果，需要调用Bitblt函数和Sleep函数。Bitblt函数的功能是：对指定图像框中的图像进行位块转换，以传送到另一个图像框。Sleep函数的功能是：对于指定的时间间隔挂起当前的执行线程，它可以用来设置马赛克效果的延迟时间。
　　在VB中不能直接使用这两个API函数，使用时它们，首先要进行函数声明。具体的声明API函数过程，可以查找相关书籍，此处不再赘述。
　　
　　3 实例
　　3.1 设置程序界面
　　启动VB，新建一个工程文件，在窗体中加入一个命令按钮（Command1）和两个图像框（Picture1、Picture2），并设置好这三个控件的大小和位置。
　　3.2 编写程序代码
　　'声明Bitblt函数和Sleep函数
　　'设置参数
　　Const copy_put = &HCC0020
　　'执行图像马赛克效果转换
　　'马赛克小方块的大小
　　'装载图像
　　3.3 运行程序
　　运行以上程序，单击[Command1]按钮，发现窗体右边的图像框中图像马赛克效果成功实现，效果如图1所示。此程序在WindowsXP+VB6.0中调试通过。
　　
　　4 结束语
　　在VB中，利用Bitblt函数的位图数据传送功能，还可以实现图像的其它特技效果，如百页窗效果、扩展效果等。
　　参考文献：
　　[1]郭立. 新编Windows API参考大全[M]. 北京：电子工业出版社，2000.3.
　　本文中所涉及到的图表、注解、公式等内容请以PDF格式阅读原文。