社区
VB基础类
帖子详情
请问如何在VB使程序暂停一秒
LuKoo
2000-09-06 10:15:00
...全文
445
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当前窗口中的按钮及菜单都设为可用,特别是有些软件的功能有限制的时候,不让点击某一个按钮的时候,这个
程序
就派上用场了。 源码爱好者注:本
程序
只对窗体中的文本框、按钮、复选框、单选按钮、下拉列表框等标准的Form控件有效。点击“开始工作”,
一秒
钟后,目标窗体上所有的标准控件都变成可用的了!不信你可以到任意一个
程序
的“打颖窗口下试一试,试的时候先
暂停
工作,看看哪几个按钮是不可用的,然后点击开始工作!
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,插入两个按钮,分别将其属性中Caption改为“停止”和“重新开始”。 5,双击“停止”按钮,在弹出的对话框中输入“Me.Timer1.Enabled=False”。 6,双击“重新开始”按
VB
A,
程序
运行
暂停
一定时间后继续运行
代码: waitTime = TimeSerial(Hour(Now()), Minute(Now()), Second(Now()) + 3) Application.Wait waitTime 来自excelhome网友Zamyi
VB基础类
7,763
社区成员
197,609
社区内容
发帖
与我相关
我的任务
VB基础类
VB 基础类
复制链接
扫一扫
分享
社区描述
VB 基础类
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章