社区
VB基础类
帖子详情
请教VB中精确延时的问题.十万火急!!!
Phillip
2000-05-19 01:36:00
我的程序如下
Private Sub Command1_Click()
text1.Text = "abc"
<-------在此插入延时程序.
text1.Text = "cde"
End Sub
要求在显示 "cde"之前,
能精确延时300毫秒,
并且运行指针不能跳出Command1_Click()
...全文
175
5
打赏
收藏
请教VB中精确延时的问题.十万火急!!!
我的程序如下 Private Sub Command1_Click() text1.Text = "abc" <-------在此插入延时程序. text1.Text = "cde" End Sub 要求在显示 "cde"之前, 能精确延时300毫秒, 并且运行指针不能跳出Command1_Click()
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
5 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
sanhan
2000-05-19
打赏
举报
回复
Sleep似乎不能精确控制延时,还是timeGetTime可靠一些,可能达到1ms精度。
但是你要确保不会有另一个线程在这之间抢走你的时间片。
liujin
2000-05-19
打赏
举报
回复
Declare Sub Sleep Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds As Long)
还有一个 sleepex 用用试试
mxp
2000-05-19
打赏
举报
回复
用api函数:
Public Declare Function timeGetTime Lib "winmm.dll" Alias "timeGetTime" () As Long
thriller
2000-05-19
打赏
举报
回复
iwin 的方法不错。
不过在Windows环境中没有可能精确到1毫秒。
即使是300毫秒,也是大约的。
我试过几万遍了。
如果有人说不,我给1000分。
(timer-t>=0.03)本身要耗时的,而且这不是最好的办法。
t不应该是Time,而是Single或Double.
iwin
2000-05-19
打赏
举报
回复
‘试试以下代码
Text1.Text="abc"
Dim t as Time
t=Timer
Do
Loop until(timer-t>=0.03)
Text1.Text="cde"
精简版的MSDN for
VB
6.0
MSDN
VB
6精简版 ,去除了MSDN
中
VC。 VF以及其他部分,只保留了完整的
VB
帮助,强烈推荐! ========= 安装说明 ========= 1、执行setup.exe。 2、注册码已固化在安装程序里,不必输入了。^*^ 3、按照提示...
最强悍的 VC
VB
反编译工具 Hex-Rays
最强悍的反编译工具 Hex-Rays。可以反编译
VB
VC BCB Delphi 等等一切 x86/x64 代码为 C 代码。密码参见内附说明文件。我写了个简单的介绍 http://blog.caozhongyan.com/article.asp?id=19
DirectX修复工具V4.3增强版
程序主要针对0xc000007b
问题
设计,可以完美修复该
问题
。本程序
中
包含了最新版的DirectX redist(Jun2010),并且全部DX文件都有Microsoft的数字签名,安全放心。 本程序为了应对一般电脑用户的使用,采用了易用的...
超级玛莉兄弟1.01
“超级玛莉”是又一款从任天堂机上移植的游戏。这一款可是作者一个键一个键从
VB
编辑器
中
打出来的哟!
解决Reading package lists... Error!的错误
解决Reading package lists... Error!的错误解决Reading package lists... Error! 报错 解决Reading package lists… Error!...解决这个
问题
很简单,使用如下命令即可: sudo rm -rf /var/lib/apt/lists/* 即将/var/lib
VB基础类
7,763
社区成员
197,609
社区内容
发帖
与我相关
我的任务
VB基础类
VB 基础类
复制链接
扫一扫
分享
社区描述
VB 基础类
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章