📄 18749.html

📁 VB技巧问答10000例 VB技巧问答10000例

💻 HTML

字号:

<html>  <head>    <title>Re: 请问VB里有函数可以取得系统当时的毫秒吗?</title>  </head>  <body bgcolor="#FFFFFF" vlink="#808080">    <center>      <h1>Re: 请问VB里有函数可以取得系统当时的毫秒吗?</h1>    </center><hr size=7 width=75%><hr size=7 width=75%><p>Posted by <a href="mailto:hantinglu@hotmail.com">Hanting</a> on September 10, 1999 at 10:51:41:<p>In Reply to: <a href="18603.html">请问VB里有函数可以取得系统当时的毫秒吗?</a> posted by 大呆 on September 07, 1999 at 18:21:15:<p> 以下是摘自CWW的WEBSITE，PLEASE TAKE A LOOK AT THERE，BY THE WAY ， AS <br>I CHECKED IT, I FOUND  IT COULD GENERATE 1MS RATHER THAN 1US. BE IN<br>MIND.<p><p>更精确的计时<p>一般使用Timer物件，没有办法精确的算到微秒，(每秒目更新18.2次)，若要算到<br>微秒，则使用GetTickCount ，它传回Windows启动后到目前为止所经过的时间，<br>传回值以微秒为单位。<p>Private Declare Function GetTickCount Lib "kernel32" Alias _<br>       "GetTickCount" () As Long<p>Private CanContinue as Boolean<p>Private Sub Command1_click()<br>Dim i as Long<br>Dim j as Long<br>i = GetTickCount()<br>CanContinue = True<br>Do While CanContinue<br>   j = GetTickCount()<br>   if j - i > 50 Then<br>      Debug.Print "已过50微秒"<br>      i = j<br>   End If<br>   DoEvents<br>Loop<br>End Sub<p>Private Sub Command2_Click()<br>  CanContinue =  False<br>End Sub<br><br><hr size=7 width=75%><p><a name="followups">Follow Ups:</a><br><ul><!--insert: 18749--><!--top: 18871--><li><a href="18871.html">Re: 请问VB里有函数可以取得系统当时的毫秒吗?</a> <b>大呆</b> <i>11:48:16 9/13/99</i>(<!--responses: 18871-->0)<ul><!--insert: 18871--></ul><!--end: 18871--></ul><!--end: 18749--><br><hr size=7 width=75%><p></body></html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -