朋友，当你每次浏览Web网页时，是不是被许多生动有趣的小动画深深
吸引，十分佩服作者的想象力和制作技巧。在使用VB进行应用软件开发设计
中，为使软件的人机界面新颖友好，总想加点动画作点缀，但又常常苦于一
幅幅动画图片的绘制或寻找!因此萌发了一种奇妙的设想：能否让Web页面上
的动画在VB应用软件界面上活起来?幸运的是，当前图像处理软件甚多，终
于可以将您的这一设想变成现实。

1.VB动画设计
动画的制作原理很简单：首先绘制几幅相近但又有细微变化的图片，然
后每隔一段很短的时间就依次显示其中一幅，由于人眼视觉暂留，就能看到
连贯的动画效果。 使用VB进行动画设计非常方便，因为其工具箱中有图像、
图片、时钟控件。只要获得了一幅幅动画单幅图像文件，把它们放入图像控
制数组中去，便可用时钟控件的控制属性Interval来控制每幅图片的显示间
隔，把最终动画显示的位置确定好后，按时间间隔依次从图像控制数组中取
出一幅图显示。如此交替反复显示，即可产生动画效果，编程实现比较简单。
VB动画设计所能接收的单幅图片文件的格式有四种，即*.Bmp、*.Ico、
*.Wmf和*.Dib。其中*.Bmp文件的来源最广，不但可以使用Windows环境下
的各种绘图软件来绘制(但费时费力，且不是每个人都有绘画的天才)，也可
以使用Windows所提供的现成的位图文件，或者用彩色扫描仪扫入等等。在
此，笔者所感兴趣的则是从Internet上Web站点网页上下载自己喜爱的动画
图像文件，再经过图形软件分解、处理成一幅幅*.Bmp图片文件，它们会给
软件的人机界面带来全新的感受。

2.Web动画图像分解方法
从Web网页上下载静态图像文件比较简单，下载后需要进行分解。 动画
图像文件的分解是动画设计的逆过程，即把一个动画效果的图像文件分解形
成它的多幅图片文件。可使用GIF Construction Set软件打开(此软件可在
许多服务器上下载)要分解的图像文件，该软件即可将动画自动分解为多幅
组成动画的单幅图画。 使用上述软件分解后，首先看看是由几幅图画组成
的动画，如果有N幅图画，就把动画文件拷贝N份。 然后，逐个打开拷贝文
件对每个文件进行处理，处理过程中只需在第一个文件中保留静止的图像，
在其它文件中只保留动画图像。 最后，使用具有图形转换功能的图形处理
软件如Phtoshop，就可把得到的N个*.Gif图像文件都转换成*.Bmp文件的格
式。Web动画分解过程概括描述如下： Web动画下载→Web动画分解(GIF
Construction Set)→Web动画格式转换(Phtoshop等)。
*一个实例*
这是一个在数据库查询窗体上设计的眼睛转动查看的动画，此动画的
每个单幅图画就是从Web网页上下载分解得到的。 动画设计实现步骤如下： 
首先，用上述方法把Web网页上转眼睛动画下载保存、分解、格式转换成二
幅画Eyesl.Bmp和Eyes2.Bmp(此动画简单，只由二幅画组成)。 其次，将
Eyes1.Bmp和Eyes2.Bmp放入图像控制数组中。　窗体构造简单表示如下：
窗体属性表如下：
程序代码如下：
在窗体的General中声明：
Dim Rotateflag as Integer '交替显示标志
Dim Currenteyes as Integer '当前显示第几幅画
窗体装载初始化：
Sub Form_Load() Rotateflag=1 '进入显示(时钟计数开始)
Currenteyes=0 '第一幅画定位
End Sub
交替显示子程序(时钟控制显示间隔，本例为250ms)：
Sub Tmrtimer_Timer()
If Rotateflag=1 Then '交替显示开始　
SImgeyes.Picture=Imgeyes(Currenteyes).Picture '开始显示第一幅画
Currenteyes=Currenteyes＋1 '250ms后显示下一幅
If Currenteyes=2 Then Currenteyes=0 '如果已显示了两幅，则再从第
一幅显示
End If
End If
End Sub '结束
利用Web网页动画图像分解成的多个单幅图画，不但可以为VB动画设计
提供方便，也可用于VC等动画编程。目前，Internet的范围日益扩大，使
Web与软件编程联系起来，无疑提高了应用软件的制作效率和质量。

3.巧用VB设计图像切换效果 
PaintPicture是自VB4以后新提供的图形图像处理方法，它的基本功能
是图像块传输，在以前的VB版本中要产生块传输效果，需采用WindowsGDI中
的块传输函数BitBltAPI调用。PaintPicture正是VB中用来代替BitBltAPI
调用的简单而方便的方法。它能快速地将两幅位图进行合并；能将位图的全
部或某一部分快速剪切并粘贴到其它地方；并能将位图自动延伸或压缩以适
应新的环境；能在屏幕上不同位置之间、屏幕与内存之间传递位图；它采用
32位三元光栅操作代码（ROP），在源位图、选定的刷子位图和目标位图之
间进行颜色组合，生成目标位图中的最终颜色，它将13个常用的ROPR操作以
内部常量形式给出，不需任何声明，不用理会其32位参数值。
基本格式：
Object．PaintPicturepicture，x1，y1，width1，height1，x2，y2，
Width2，height2，opcode
　
其中Object可以为窗体或PictureBox控件Picture可以为BMP、Dib、Ico、
Wmf、Emf等格式的图片
　　X1、Y1、Width1、height1为目标位图的参数
　　X2、Y2、Width2、height2为源位图的参数
　　opcode表示源图与目标位图（或刷子位图）的组合关系，该参数与BitBlt
中dwRop参数含义相同。
　　VB4为opcode定义了13个内部常量：
　　vbDstInvert：目标位图取反
　　vbSrcCopy：源位图直接覆盖目标位图
　　vbSrcAnd：源位图与目标位图进行“与”操作
　bSrcInvert：源位图与目标位图进行“异或”操作
　　vbSrcPaint：源位图与目标位图进行“或”操作
　　vbNotSrcCopy：源位图取反
　　vbSrcErase：目标位图取反，再与源位图进行“与”操作
　　vbNotSrcErase：源位图与目标位图进行“或非”操作
　　vbMergePaint：源位图取反，再与目标位图进行“或”操作
　　此外，与刷子位图有关的常量是vbMergeCopy、vbPatCopy、vbPat-
Invert和vbPatPaint，这13个内部常量可以在菜单View／ObjectBrowser／
VB－VisualBasicobjectsandprocedures／RasterOpConstants中列出。
　　巧用PainPicture方法，结合控件属性，可以方便地产生许多常见的图像
切换效果，如我们在多媒体作品及电视中常见的图像旋转引入、翻转、飞入、
滑入、弹出、淡入淡出、隐现等动画效果。
举例：图像滑入（Wipe）效果的实现
　　在滑入效果中，新图像慢慢逐渐覆盖旧图像，就象在墙上展于一幅卷成筒
状的画。
　　1．缺省窗体Form1
　　2．Form1上置PictureBox1、PictureBox2两大小相同的图片控件及Timer
时钟控件PictureBox1中安装源图，在PictureBox2中展开PictureBox1中的
图像。
　　3．编程
　　Private Sub FormμLoad（）
　　Picture1．ScaleModeΚPixel
　　Picture2．ScaleModeΚPixe1
　　hΚ0
　　tΚ2
　　EndSUb
　　PrivateSubTimerμTimer（）
　　IfhΙΚPicture1．ScaleHeightThen
　　Picture2．PaintPicturePicture1．Picture，0，h，Picture2．Scal-
eWidth，t，0，h，Picture1．ScaleWid
th，t，vbSrcCopy
　　hΚh＋t
　　EndIf
　　EndSub