状态栏的属性之一STYLE,即上面所讲的两种显示模式,0 - Mutliple panels 和 1 - Single panel simple text 当为Single panel simple text 模式时,很方便的处理,只要指定状态的另一个属性 SimpleText即可,就象在操作VFP主窗口的状态栏时用 set message to 那么方便了,在这里就是thisform.OleStatus.SimpleText="新的字符串"即可。
.text = "" nTotalNum = (.width - 2)/12 && 总方块个数 x = 0 && 当前所计算出的第几个方块数 y = 0 && 跟X参考比较数 nTotalSum = 100000 && 总数 for n = 1 to nTotalSum && 表示从1到100000之间的处理进度 x = int((n * nTotalNum)/nTotalSum) && 求得现在是需要显示第几个方块数 X if y <> x && 当两个数不相等时,表明有新的数产生,则加一个方块 .text = .text + '■' y = x endif *-- 处理某事务 endfor .text = "完毕" end with 2、显示时钟