排舞哎呀宝贝的介绍:vb不用api可不可以把系统时间精确到1/10秒

来源:百度文库 编辑:高校问答 时间:2024/04/29 18:39:51
就象平常用的秒表一样,需要把秒后面一位显示出来

form1里有控件
label1 '用来显示时间
timer1 '计时器 设置interval=1000,记录时间
timer2 '计时器 设置interval=100,记录1/10s

Public ltime As String '存放时间
Public i As Integer '存放1/10秒

Private Sub Form_Load()
i = -1
End Sub

Public Sub Timer1_Timer()
ltime = CStr(Time)
End Sub

Public Sub Timer2_Timer()
i = i + 1
If i > 9 Then i = 0
Label1.Caption = ltime & "." & i
End Sub

用VB自带的计时器,将计时器interval设为1000,在计时器中写入如:
me.caption=time
就可以了。

Timer()函数可以返回非常精确的时间