教育技术人的网上交流空间|教育技术公共课| 微信公众号
关注微信公众号
论坛动态早知道
您好，请 登录 注册
快捷导航
返回列表 发新帖
开启左侧

vba中的DoEvents应用

[复制链接]
etthink 发表于 2019-10-29 23:12:50 | 显示全部楼层 |阅读模式 打印 上一主题 下一主题
DoEvents
在大运算量循环内，DoEvents可以防止界面停止响应

欢迎大家多发帖，参与讨论，增进彼此了解。
回复

举报

精彩评论2

正序浏览
etthink 发表于 2019-10-29 23:31:17 | 显示全部楼层
Dim a As Integer
Randomize
Do
a = Rnd * 160 + 1
TextBox1.Text = a
DoEvents
Loop
欢迎大家多发帖，参与讨论，增进彼此了解。
回复 支持 反对

举报

 楼主| etthink 发表于 2021-12-3 00:49:03 | 显示全部楼层
pt = 0.01: st = Timer
Do While Timer < st + pt
DoEvents
Loop
欢迎大家多发帖，参与讨论，增进彼此了解。
回复 支持 反对

举报

返回列表
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

etthink管理员

11关注

462粉丝

7857帖子

推荐阅读更多+
会员达人更多+
广告位

信息推荐

更多+

最新信息

更多+

关注我们：教育技术人

官方微信

官方微博

教育技术热线：

13955453231

学教育技术，上教育技术论坛！

教育技术论坛征稿范围：教育技术应用案例、教程文章、优秀作品等。

Email：sf@etthink.com

Copyright   ©2007-2026  应用思考-教育技术论坛  Powered by©Discuz!  技术支持：且行资源    ( 皖ICP备10014945号-4 )