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这个程序还需要一个清零按钮,怎么添加啊
展开
 我来答
匿名用户
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
点一下清零,再点一下继续读秒
本回答被网友采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 1条折叠回答
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式