用PB实现简单的动画

金美萍 · 2001年第29期

在以前的《电脑报》上看到了怎样用VB实现动画，禁不住在这里想发表一下自己在PB编程时的一些小技巧。笔者是用PB中的timer事件实现了动画。现欲在窗口中实现一个走动的小人，下面就说说实现过程中的主要步骤。对于走动小人的每一步均有一个图片，每个图片为一个文件，共有16个文件，这些文件名字依次为pick0.bmp到pick15.bmp。假设将这几个文件保存到“c:\bmp\”下。
　　 主要程序代码如下：
　　 建立全局变量：picture pt[16]

int pCount
　　 在窗口上用画笔建立一个picture对象，假设该对象名字为p＿1，在所要实现动画窗口的OPEN事件中写如下代码：
　　 int i
　　 pCount = 1
　　 for i = 1 to 16
　　 pt[i]
=create picture //创建picture 对象
　　 pt[i].picturename=＇c:\bmp\pick＇+string（i - 1）+＇.bmp＇
　　 //将要显示的图片文件名赋值给创建的picture对象
　　 next
　　 timer（0.5，this）
　　 //表示每隔0.5秒发生一次该窗口的timer事件
　　 然后在该窗口的timer事件中写如下代码：
　　 if pCount >16 then
　　 pCount=1
　　 end if
　　 p＿1.picturename=pt[pCount].picturename
　　 pCount=pCount+1
　　 最后，在退出该窗口是不要忘记将你创建的picture对象释放掉，所以在该窗口的close事件中写如下代码：
　　 int i
　　 for i = 1 to 16
　　 destroy pt[i]

next
　　 到此，动画就可以基本上实现了，该程序在Windows 98、PB4环境下调试成功。