爱问知识人 爱问共享资料 医院库

vb问题

首页

vb问题

不用timer 控件,如何准确延时1秒。谢谢!

提交回答
好评回答
  • 2018-02-02 00:24:00
        time = Now()
        Do While (True)
            If Abs(DateDiff("s", Now(), time)) = 1 Then
                Exit Do
            End If
        Loop
    感觉不精确可以用两次Do循环。

    s***

    2018-02-02 00:24:00

其他答案

    2018-02-02 00:37:00
  • 使用timer控件反倒不准确
    方法有2中:
    1。循环方式
      dim t as long 
      t=timer() 'TIMER函数是获取当前在一天中的豪秒数
      do
        doevents '如果想让程序在等待时间处于死锁状态就删除此行,你可以自己试试有没有的区别
        if timer()-t>=1000 then exit do
      loop
    2。api实现
      api实现的全都是不释放cpu的,延长时不能对程序进行其他操作
      在程序最上面加上
    Private Declare Sub Sleep Lib "kernel32" Alias "SleepA" (ByVal dwMilliseconds As Long) 
      在使用时写
      sleep(1000)'1000好秒
    

    天***

    2018-02-02 00:37:00

类似问题

换一换
  • VB 相关知识

  • 电脑网络技术
  • 电脑网络

相关推荐

正在加载...

热点检索

  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 173-192
返回
顶部
帮助 意见
反馈
关注
爱问

关注爱问微信公众号,开启知识之旅,随时随地了解最新资讯。

确定举报此问题

举报原因(必选):