在PB中方便的实现图片动态切换

来源：作者：- 出处：巧巧读书 2006-10-22 进入讨论组

　　 PowerBuilder是一个功能十分强大的数据库开发工具，其以简便、灵活、高效等优点博得了许多编程人员的青睐，因此在国外一出现就相当的流行，近几年中国也随之而起。

本人在使用PB开发“企业级数据库系统”已有近两年的经验，在开发前期由于图书资料的深度不够（好多都是就简单的介绍如何操作为止），报纸上的经验交流少得可怜，因此走了相当不少的弯路，因此想借此文章达到一个抛砖引玉的效果，使PB编程人员们在这里能够坦诚交流各自的编程经验，共同提高中国PB编程人员的水平。

　　我们都知道在PowerBuilder开发平台中不支持JPG，GIF等图片格式，仅能显示BMP，RLE，WMF三种图片格式（截止到PowerBuilder 6.5版本），所以要实现图片的动态切换，必须把“动作连续”的几个图片事先作好，然后按照顺序一个个的显示，作出的程序才会具有“电影效果”或者相当于网页上的“GIF”图片的效果（当然通过嵌入OLE对象也可实现电影的播放，在这里本人不是指使用此方法）。

　　当切换的图片比较少时，一般编程者会比较倾向于使用下面的方法，此方法结构清晰简单，比较易懂，但灵活性差：

　　以四个图片的切换为例，

　　首先建立窗口的Instance 变量（实例变量）：

    integer i

　　在一个新建窗口的open事件中写入如下脚本：

open:
//建立四个“图片对象”的名称分别为：p_0，p_1，p_2，p_3
p_0.hide()  //开始时图片隐藏起来
p_1.hide()
p_2.hide()
p_3.hide()
i=0
timer(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_count
picture pic[]
在窗口的open事件中写入如下脚本：
open:

int ic
ic = upperbound(this.control)//取出窗口中所有控件的个数
  p_count=0
  object ctr_type
for 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 = 0
timer(0.2) //设定切换时间

在窗口的timer事件中写入如下脚本：
timer：

if i $#@62;= p_count then i = i - p_count 
//参数i超过累加界限时拉回至“零”
int j,k
for 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()
      next
end if
next
i++  //参数累加

本文：http://www.qqread.com/pb/e246343.html 进入讨论组讨论。