标题用PB实现简单的动画

　　在以前的《电脑报》上看到了怎样用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环境下调试成功。