时钟控件求救

clchenle317 2005-10-31 03:20:05

请问如何在时钟控件中设置，显示系统时间的毫秒数，或如何代码实现？？？

...全文

151 13 打赏收藏转发到动态举报

写回复

用AI写文章

13 条回复

切换为时间正序

请发表友善的回复…

发表回复

hutter001 2005-11-01

打赏
举报

个人认为这是最简单

hutter001 2005-11-01

打赏
举报

设置 timer1.interval =1

Private Sub Timer1_Timer()
Dim hh As Integer, mm As Integer
t = Timer
hh = t \ 3600
mm = (t - hh * 3600) \ 60
Label1 = hh & ":" & mm & ":" & t Mod 60 & ":" & Right(t * 100, 2)
End Sub

wzzwwz 2005-11-01

打赏
举报

@_@

vbman2003 2005-11-01

打赏
举报

Option Explicit

Private Declare Sub GetLocalTime Lib "kernel32" (lpSystemTime As SYSTEMTIME)
Private Type SYSTEMTIME
wYear As Integer
wMonth As Integer
wDayOfWeek As Integer
wDay As Integer
wHour As Integer
wMinute As Integer
wSecond As Integer
wMilliseconds As Integer
End Type

Private Sub Form_Load()
Timer1.Interval = 1
End Sub

Private Sub Timer1_Timer()
Dim st As SYSTEMTIME
GetLocalTime st
Dim t
Me.Caption = Format(Now, "YYYY-MM-DD hh:mm:ss:") & _
Format(st.wMilliseconds, "000") & " " & Format(Now, "AM/PM")
End Sub

clchenle317 2005-11-01

打赏
举报

那个也不行啊，编译错误啊，only comments may appear after End Sub，End function，End
property

vbman2003 2005-10-31

打赏
举报

wzzwwz的这个可以

vbman2003 2005-10-31

打赏
举报

呵呵，我的这个不对，还是要用API，

vbman2003 2005-10-31

打赏
举报

Me.Label1.Caption = Format(Now, "YYYY-MM-DD hh:mm:ss:ms")

wzzwwz 2005-10-31

打赏
举报

'一个定时器，一个标签
Option Explicit

Private Declare Sub GetLocalTime Lib "kernel32" (lpSystemTime As SYSTEMTIME)
Private Type SYSTEMTIME
wYear As Integer
wMonth As Integer
wDayOfWeek As Integer
wDay As Integer
wHour As Integer
wMinute As Integer
wSecond As Integer
wMilliseconds As Integer
End Type

Private Sub Form_Load()
Timer1.Interval = 60 '太小了也没有用
End Sub

Private Sub Timer1_Timer()
Dim st As SYSTEMTIME
GetLocalTime st
Label1.Caption = Time & "." & st.wMilliseconds
End Sub

clchenle317 2005-10-31