【聚杰网数据库编程】在PB中方便的实现图片动态切换
我们都知道在PowerBuilder开发平台中不支持JPG，GIF等图片格式，仅能显示BMP，RLE，WMF三种图片格式（截止到PowerBuilder 6.5版本），所以要实现图片的动态切换，必须把“动作连续”的几个图片事先作好，然后按照顺序一个个的显示，作出的程序才会具有“电影效果”或者相当于网页上的“GIF”图片的效果（当然通过嵌入OLE对象也可实现电影的播放，在这里本人不是指使用此方法）。
当切换的图片比较少时，一般编程者会比较倾向于使用下面的方法，此方法结构清晰简单，比较易懂，但灵活性差：
以四个图片的切换为例，
首先建立窗口的Instance 变量（实例变量）：
integer i
在一个新建窗口的open事件中写入如下脚本：
open://建立四个“图片对象”的名称分别为：p_0，p_1，p_2，p_3p_0.hide() //开始时图片隐藏起来p_1.hide()p_2.hide()p_3.hide()i=0timer(0.2)
在窗口的timer事件中写入如下脚本：
timer：if i $#@62;= 4 then i = i ？ 4 //当参数i累加超过界限时拉回choose case mod(i,4) case 0 p_0.show() p_1.hide() p_2.hide() p_3.hide() case 1 p_0.hide() p_1.show() p_2.hide() p_3.hide() case 2 p_0.hide() p_1.hide() p_2.show() p_3.hide() case 3 p_0.hide() p_1.hide() p_2.hide() p_3.show()end choose i++
对于PowerBuilder熟练编程的人来说，可以看出以上程序脚本通用? 会很强，即当我们需要再添加几个切换的图片时，需要改动的地方太多：Case 语句的“情况个数”要随图片的增加而增加，而且每个Case 语句中又需增添诸如p_5.show(),p_5.hide() 的程序，参数i的“累加上限”需要更改，造成程序的维护量大大增加。
本人在PowerBuilder的使用过程中针对此情况研究了一些小的技巧，对上面的程序脚本进行的适当的完善、改进，编程人员只需遵循简单的规则而无须改动程序脚本，即可满足上面“连续图片个数增/减”的要求：遵循规则：需要显示图片对象的命名顺序与切换显示顺序要一致，必须为：p_0,p_1,p_2,p_3.....不需要切换（即静止图片）的命名中不要夹杂“数字”。
在窗口的Instance中定义如下变量：
integer i,p_countpicture pic[]在窗口的open事件中写入如下脚本：open:int icic = upperbound(this.control)//取出窗口中所有控件的个数 p_count=0 object ctr_typefor i = 1 to ic ctr_type = this.control[i].typeof() choose case ctr_type case picture! //过滤图片控件 //以下过滤图片控件中需要切换的图片并保存在一数组中 if Match(mid(this.control[i].classname(),3),"[0-9]") then p_count++ //累计需要切换图片的个数 this.control[i].hide() pic[p_count] = this.control[i] end if end choose next i = 0timer(0.2) //设定切换时间在窗口的timer事件中写入如下脚本：timer：if i $#@62;= p_count then i = i - p_count //参数i超过累加界限时拉回至“零”int j,kfor j = 1 to p_count if pic[j].classname() = "p_" + string(mod(i,p_count)) then//筛选出需要显示的图片 pic[j].show() for k = 1 to p_count //不显示未轮到的图片 if k = j then continue //越过轮到显示的图片 pic[k].hide() nextend ifnexti++ //参数累加
