敬业的IT人 互联网 佚名 2008-1-4 12:28:10

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

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

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

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

real interval_time = 0.3//控制信息滚动速度，数值越大，速度越慢int ticker = 1string showtext =“欢迎使用本系统！北京燕化集团化工二厂计算机站 开发１９９８年６月” 注：标点符号与数字都用全角字符。

　 3、编写窗口的open事件脚本：

timer(interval_time)

　 4、 编写窗口的timer事件脚本:

sle_1.text = mid(showtext,ticker + 2) + left(showtext,ticker)ticker = ticker + 2if 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 + 1if ticker $#@62; len(showtext) then ticker = 1

　 以上方法只能实现中文或英文信息的滚动，若想实现中英文混合信息的滚动，可采用中文信息滚动的方法，实例变量showtext中凡中文字符均位于奇数字节位即可，否则中文字符滚动至左边界时出现乱码。

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

进入讨论组讨论。

最新文章

PB中一个类Word打印对话框的实现[01-04]

PB6中报表输出的技巧二则[01-04]

PB中关于动态工资项目问题的解决办法[01-04]

在TreeView控件中实现自动查寻[01-04]

在PB中利用DataWindow[01-04]

在PB程序中实现ODBC数据源的添加[01-04]

相关文章