代码如下:

Private Declare Function timeGetTime Lib "winmm.dll" () As Long '该声明得到系统开机到现在的时间(单位:毫秒)

Public Function Sleep2(T As Long)
    Dim Savetime As Long
    Savetime = timeGetTime '记下开始时的时间
    While timeGetTime < Savetime + T '循环等待
        DoEvents '转让控制权
    Wend
End Function

'在要延时的地方调用
Sleep2 (15000) '延时15秒

摘自:网络整理

更多精彩>>>

vb 开机到现在的时间相关推荐

  1. 游戏服务器维护启动需要多久,游戏服务器开机需要多长时间

    游戏服务器开机需要多长时间 内容精选 换一换 垃圾回收器是内存回收的具体实现,JDK自带的垃圾回收器已经完成集成垃圾回收和清理算法,业务程序可以通过设置参数选择垃圾回收器,虚拟机用到的7种经典的垃圾回 ...

  2. VB:设定 MsgBox 在若干时间之后若无回应则自动关闭

    在我们的印象中,VB 所提供的 MsgBox 是一个强制回应的视窗,您一定要按了其中的某一个 CommandButton 之后,它才会关闭!但是在某些软体中,我们会看到,明明是使用系统的 MsgBox ...

  3. VB 计算自己程序段所用时间

    '1.声明API函数: Private Declare Function GetTickCount Lib "kernel32" () As Long '2.代码 Private ...

  4. Win系统 - 如何查看电脑开机了多长时间?

    方法一 在开始菜单中输入'cmd'搜索,在出现的结果中"cmd.exe"中右击,然后选择"以管理员身份运行"或者直接点击它. 也可以直接按下键盘的组合键&quo ...

  5. 笔记本换固态后开机慢(长时间卡在黑屏)

    关于笔记本换固态后开机慢(长时间卡在黑屏) 机型联想z485 因为机械速度慢,所以想把电脑升下级,装好了固态,加个内存条,

  6. 电脑开机使用一段时间就自动断电

    #问题:电脑开机使用一段时间就断电,也就是熄火 分析:原因一:电源接口是否插没插牢靠 检查 :电源是否匹配,轻微震动就会直接造成电脑重启,可以初步估计是电源或者电源接口的问题 原因二:温度过高,cpu ...

  7. 出现开机慢、开机黑屏长时间的进(转至卡饭论坛,帖子最早出现在爱毒霸社区论坛)之二

    本帖最后由 772844863 于 2012-3-25 12:38 编辑 事件: 近期接到不少用户向我们反馈出现开机慢.开机黑屏长时间 的问题,并且是毫无征兆的出现了 出现的问题现象包含有: 1.以前 ...

  8. vb与matlab数据交互时间延时多长,VB中实现延时(等待)的几种方法

    在程序流程中经常要延时一段时间后再继续往下执行,在VB中常用的有以下几种方法(因为Timer控件打乱了程序的流程所以一般不用它): 1.使用Windows API函数Sleep 新建一个工程,添加一个 ...

  9. VB.NET中的日期时间转换

    刚刚学习VB.NET不久,在做几个小例子的时候发现经常要对日期时间和字符串之间进行转换,现整理如下,如有不正确的地方请大家指出. ----------------------------------- ...

最新文章

  1. 使用mpvue开发小程序教程(二)
  2. 【Linux】一步一步学Linux——consoletype命令(247)
  3. 《Java 高并发》02 多线程的特性
  4. python中的画布控制_使按钮在画布上工作(tkinter)
  5. [转载] python匿名(lambda)函数
  6. Voxengo Peakbuster for mac(音频谐波增强插件)
  7. 安卓玩机之xposed框架安装
  8. 涡旋电磁波:无线通信的革命
  9. 872. 叶子相似的树 / 剑指 Offer 33. 二叉搜索树的后序遍历序列 / 剑指 Offer 34. 二叉树中和为某一值的路径 / 剑指 Offer 35. 复杂链表的复制
  10. linux清理根目录下的垃圾,Linux 根目录满了解决方法
  11. 将ui文件转换为py文件
  12. 异步传输模式 (ATM)
  13. 网站被百度提示安全风险拦截后如何快速申请解封
  14. C#串口通讯+BigEndian+Little-Endian(大端和小端方案)
  15. B. Sheldon and Ice Pieces
  16. 华为 openlab 鸿蒙,华为OpenLab与工业互联网联盟成立联合生态实验室
  17. http://www.cnblogs.com/xia520pi/archive/2012/06/04/2534533.html(重要)
  18. 当SEA变成了BADA,让我们高呼女王万岁
  19. 精巧结构设计PDF版
  20. 光场相机频域重聚焦原理

热门文章

  1. Windows 多个系统版本惊现大漏洞,攻击者可随意操作程序!
  2. 代码只要写得多,就能成为顶尖的架构师?
  3. Google 对战微软阿里,AIoT 进入“战国时代”!
  4. PHP 危矣?Zend Engine 团队宣布脱离 Rogue Wave
  5. 百度开撕离职前高管:侵犯商业机密索赔 5000 万!
  6. 刚刚,百度和小米宣布在一起,我还以为是谁收购了谁
  7. linux系统下载了qq怎么安装,怎么在linux系统里面安装QQ
  8. oracle统计信息导出与导入目的,Oracle统计信息的导出与导入
  9. webp环境搭建和使用过程
  10. Zookeeper的Leader选举-选举过程介绍比较清晰