我想在text文本框中快速显示1至100

webptg 2000-02-18 09:39:00
我想在text文本框中快速显示从1至100
如下:
sub command1_click()
dim i as integer
for i=1 to 100
text1.text=str(i)
delay(1000) '用于延时
next i
end sub
执行过程中text文本框直接显示100,我增加延时也不行。
不知错在哪里,请各位大侠指教!
...全文
170 4 打赏 收藏 转发到动态 举报
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
ltp3 2000-02-18
  • 打赏
  • 举报
回复
sub command1_click()
dim i as integer
for i=1 to 100
text1.text=str(i)
Doevents
delay(1000) '用于延时
next i
end sub
最好在delay()中加Doevents
webptg 2000-02-18
  • 打赏
  • 举报
回复
谢谢Lin、active!
active 2000-02-18
  • 打赏
  • 举报
回复
循环中增加一句doevents或me.refresh
Lin 2000-02-18
  • 打赏
  • 举报
回复
因为Text1控件来不及刷新显示,修改如下:
sub command1_click()
dim i as integer
for i=1 to 100
text1.text=str(i)
Text1.Refresh
delay(50) '用于延时
next i
end sub

7,759

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧