用PB实现简单的动画

Author: 金美萍 Date: 2001年 29期
?牐犜谝郧暗摹兜缒员ā飞峡吹搅嗽跹肰B实现动画，禁不住在这里想发表一下自己在PB编程时的一些小技巧。笔者是用PB中的timer事件实现了动画。现欲在窗口中实现一个走动的小人，下面就说说实现过程中的主要步骤。对于走动小人的每一步均有一个图片，每个图片为一个文件，共有16个文件，这些文件名字依次为pick0.bmp到pick15.bmp。假设将这几个文件保存到“c:\bmp\”下。
　　?牐犞饕绦虼肴缦拢?
　　?牐牻?立全局变量：picture  pt[16]??
　　?牐爄nt  pCount
　　?牐犜诖翱谏嫌没式?立一个picture对象，假设该对象名字为p＿1，在所要实现动画窗口的OPEN事件中写如下代码：
　　?牐爄nt i
　　?牐爌Count = 1
　　?牐爁or i = 1 to 16
　　?牐爌t[i]??=create picture  //创建picture 对象
　　?牐爌t[i].picturename=＇c:\bmp\pick＇+string（i - 1）+＇.bmp＇
　　?牐?//将要显示的图片文件名赋值给创建的picture对象
　　?牐爊ext
　　?牐爐imer（0.5，this）??
　　?牐?//表示每隔0.5秒发生一次该窗口的timer事件
　　?牐犎缓笤诟么翱诘膖imer事件中写如下代码：
　　?牐爄f pCount >16 then
　　?牐爌Count=1
　　?牐爀nd if
　　?牐爌＿1.picturename=pt[pCount].picturename
　　?牐爌Count=pCount+1
　　?牐犠詈螅谕顺龈么翱谑遣灰墙愦唇ǖ膒icture对象释放掉，所以在该窗口的close事件中写如下代码：
　　?牐爄nt i
　　?牐爁or i = 1 to 16
　　?牐燿estroy pt[i]??
　　?牐爊ext
　　?牐牭酱耍涂梢曰旧鲜迪至耍贸绦蛟赪indows 98、PB4环境下调试成功。