社区
VB基础类
帖子详情
请问如何在VB使程序暂停一秒
LuKoo
2000-09-06 10:15:00
...全文
442
4
打赏
收藏
请问如何在VB使程序暂停一秒
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
4 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
shines77
2000-11-14
打赏
举报
回复
Private Declare Function GetTickCount Lib "kernel32" Alias "GetTickCount" () As Long
Private Sub Pause(Byval sSec As Long)
Dim StartSec As Long
StartSec = GetTickCount()
While (GetTickCount() - StartSec) < sSec
DoEvents
Wend
End Sub
调用 Pause(1000) 即可暂停一秒,且暂停过程中程序仍能响应各种事件。
shines77
2000-09-06
打赏
举报
回复
Private Declare Function GetTickCount Lib "kernel32" Alias "GetTickCount" () As Long
Private Sub Pause(Byval sSec As Long)
Dim StartSec As Long
StartSec = GetTickCount()
While (GetTickCount() - StartSec) / 1000 < sSec
DoEvents
Wend
End Sub
调用 Pause(1) 即可暂停一秒。
Putao
2000-09-06
打赏
举报
回复
用Sleep(WinAPI);
Sleep(1000)即可
Pardo
2000-09-06
打赏
举报
回复
因为我VB没用过,只能给你一个参考,希望对你有帮助。用Widows API函数 DWORD GetTickCount(VOID)可以实现。
我用Delphi给你一个简单的示例:
var B:DWORD;
begin
B:=GetTickCount();
while (GetTickCount() - B)/1000 <1 do;
end;
VB
灰色按钮激活的
程序
模块.rar
这是用
VB
写的激活窗口灰色按钮的一个
程序
模块,采用
VB
6.0编写,热键定义: 默认热键F12,窗体总在最前,可以将当前窗口的按钮及菜单都设为可用.特别适用于一些软件有功能限制以及在网吧中的限制!
程序
只能以窗体、...
Windows窗口按钮、菜单激活魔法师
VB
代码
内容索引:
VB
源码,系统相关,魔法师 此软件可以将Windows当前窗口中的按钮及菜单都设为可用,特别是有些软件的功能有限制的时候,不让点击某一个按钮的时候,这个
程序
就派上用场了。 源码爱好者注:本
程序
只对窗体...
VB
程序
设计入门基础
VB
入门基础。 清楚易懂,适合初学者 本课程主要从开发环境、窗体、命令按钮、文本框、标签、消息框和输入框、代码基础、选择结构、循环结构、数组、过程、控件等方面进行讲解
VB
A让
程序
暂停
1秒再继续往下运行
waitTime = TimeSerial(Hour(Now()), Minute(Now()), Second(Now()) + 1) Application.Wait waitTime
VB
-计时器
程序
设计2
1,打开
VB
。 2,插入计时器,然后双击插入的计时器,在弹出的对话框中输入“屏幕1.Caption=Time()”,将时间改为1000毫秒。 3,插入标签,在右侧属性栏中将第一行改为“屏幕1”。 4,插入两个按钮,分别将其属性...
VB基础类
7,763
社区成员
197,609
社区内容
发帖
与我相关
我的任务
VB基础类
VB 基础类
复制链接
扫一扫
分享
社区描述
VB 基础类
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章