vb秒表代码程序
PrivateDeclareSubGetSystemTimeLib"kernel32"(lpSystemTimeAsSYSTEMTIME)PrivateTypeSYSTE...
Private Declare Sub GetSystemTime 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 TypePrivate Sub Timer1_Timer()
Dim a As SYSTEMTIME
GetSystemTime a
With a
Label1 = .wHour & ":" & .wMinute & ":" & .wSecond & ":" & Format(.wMilliseconds / 1000, "0.0")
End With
End Sub这个程序还需要一个清零按钮,怎么添加啊 展开
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 TypePrivate Sub Timer1_Timer()
Dim a As SYSTEMTIME
GetSystemTime a
With a
Label1 = .wHour & ":" & .wMinute & ":" & .wSecond & ":" & Format(.wMilliseconds / 1000, "0.0")
End With
End Sub这个程序还需要一个清零按钮,怎么添加啊 展开
2013-11-22
展开全部
Timer1.Enabled = FalseLabel1="00:00:00:0.0"这样试试~
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐于2017-05-24
展开全部
在窗体中添加一个按钮Command1,然后添加如下代码Private Sub Command1_Click()
Static i As Integer
If i = 0 Then
Timer1.Enabled = False
Label1 = "00:00:00:0.0"
i = 1
Else
Timer1.Enabled = True
i = 0
End If
End Sub
点一下清零,再点一下继续读秒
Static i As Integer
If i = 0 Then
Timer1.Enabled = False
Label1 = "00:00:00:0.0"
i = 1
Else
Timer1.Enabled = True
i = 0
End If
End Sub
点一下清零,再点一下继续读秒
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询