打印本文 打印本文 关闭窗口 关闭窗口
利用PB5实现中英文信息滚动显示
作者:武汉SEO闵涛  文章来源:敏韬网  点击数800  更新时间:2009/4/24 21:42:56  文章录入:mintao  责任编辑:mintao

利用PowerBuilder5.0编写数据库应用程序时,有时为了以生动活泼的形式给用户提供一些信息,采用提示信息循环显示的方法,如电视中插入一些临时信息一样滚动显示。利用PB5中的Timer事件可实现该功能。由于英文字符和中文汉字所占字节不同,在实现上稍有变化。

  实现中文信息滚动显示的方法如下:

  1、在窗口中定义单行编辑器(sle_1),宽度视需要而定,可以比欲显示的信息窄。

  2、定义实例变量(Instance Variables):

real interval_time = 0.3//控制信息滚动速度,数值越大,速度越慢
int ticker = 1
string showtext =“欢迎使用本系统!北京燕化集团化工二厂计算机站
 开发1998年6月”
 注:标点符号与数字都用全角字符。
  3、编写窗口的open事件脚本:
timer(interval_time)
  4、 编写窗口的timer事件脚本:
sle_1.text = mid(showtext,ticker + 2) + left(showtext,ticker)
ticker = ticker + 2
if ticker $#@62; len(showtext) then ticker = 1

  实现英文信息滚动的方法基本如上,只是实例变量showtext全部为单字节的英文字母,如“WELCOME TO EQUIPMENT MANAGEMENT”,在窗口的timer事件中写入如下脚本:

sle_1.text = mid(showtext,ticker + 1) + left(showtext,ticker)
ticker = ticker + 1
if ticker $#@62; len(showtext) then ticker = 1
  以上方法只能实现中文或英文信息的滚动,若想实现中英文混合信息的滚动,可采用中文信息滚动的方法,实例变量showtext中凡中文字符均位于奇数字节位即可,否则中文字符滚动至左边界时出现乱码。

  此方法用PowerBuilder5.0在本人586机器上,WIN98/95平台上实现,能够正确运行。

打印本文 打印本文 关闭窗口 关闭窗口