利用PowerBuilder5.0编写数据库应用程序时,有时为了以生动活泼的形式给用户提供一些信息,采用提示信息循环显示的方法,如电视中插入一些临时信息一样滚动显示。利用PB5中的Timer事件可实现该功能。由于英文字符和中文汉字所占字节不同,在实现上稍有变化。
实现中文信息滚动显示的方法如下:
1、在窗口中定义单行编辑器(sle_1),宽度视需要而定,可以比欲显示的信息窄。
2、定义实例变量(Instance Variables):
real interval_time = 0.3//控制信息滚动速度,数值越大,速度越慢 int ticker = 1 string showtext =“欢迎使用本系统!北京燕化集团化工二厂计算机站 开发1998年6月” 注:标点符号与数字都用全角字符。
timer(interval_time)
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
此方法用PowerBuilder5.0在本人586机器上,WIN98/95平台上实现,能够正确运行。
Copyright @ 2007-2012 敏韬网(敏而好学,文韬武略--MinTao.Net)(学习笔记) Inc All Rights Reserved. 闵涛 E_mail:admin@mintao.net(欢迎提供学习资源)
鄂公网安备 42011102001154号
站长:MinTao ICP备案号:鄂ICP备11006601号-18