韩国人对金城武的评价:vb不用api可不可以把系统时间精确到1/10秒
来源:百度文库 编辑:神马品牌网 时间:2024/08/27 02:25:27
就象平常用的秒表一样,需要把秒后面一位显示出来
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()函数可以返回非常精确的时间