玩酷之家

 找回密码
 给爷来个号
查看: 459|回复: 0

【VB.NET】简单延时执行

[复制链接]

20

主题

21

帖子

909

积分

高级会员

Rank: 4

积分
909
QQ
发表于 2020-2-6 11:09:16 | 显示全部楼层 |阅读模式
  1.     Private Declare Function timeGetTime Lib "winmm.dll" () As Long
复制代码
  1.     Public Sub 延时(ByVal 毫秒 As Integer)
  2.         Savetime = timeGetTime
  3.         While timeGetTime < Savetime + 毫秒
  4.             Application.DoEvents()
  5.         End While
  6.     End Sub
复制代码
湖边的稻草 1059 Studio
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 给爷来个号

本版积分规则

QQ|Archiver|手机版|小黑屋|玩酷之家 ( 鄂ICP备14012049号-1 )|

GMT+8, 2020-8-6 05:51 , Processed in 1.060802 second(s), 19 queries .

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表