标题：关于对象在循环中的赋值问题

for lnv_i = 1 to 10 step 1

     myform_label.caption = cstr(lnv_i)

     statements  ' 大概要执行 五秒钟

next

 

'程序能够被执行，但是在循环终止之前，LABEL是不显示的，只有到循环结束的时候才显示10

'请问版主，我的问题在哪里，谢谢，祝中秋快乐

 

' 也就是每隔五秒要显示 一个值，在本例子中是现实 lnv_i 的值

 

1

五秒后

2

五秒后

3

.

.

10

赋值是没问题的。没有显示的原因估计是循环结束前，控件没有机会完成刷新动作。
建议找找有没有对应函数实现控件强制更新；或者将循环语句拆分，利用定时器，每次定时器回调函数仅执行一遍你的循环体内容，定时器时间触发间隔设为5秒左右。

使用  form.repaint 就可以了，但是窗口会闪烁

下个版本拟增加PeekAndPump函数