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这个程序还需要一个清零按钮，怎么添加啊 展开
2个回答
AiPPT
2024-09-19 广告
随着AI技术的飞速发展，如今市面上涌现了许多实用易操作的AI生成工具1、简介：AiPPT: 这款AI工具智能理解用户输入的主题，提供“AI智能生成”和“导入本地大纲”的选项，生成的PPT内容丰富多样，可自由编辑和添加元素，图表类型包括柱状图...
点击进入详情页
本回答由AiPPT提供
展开全部
在窗体中添加一个按钮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
点一下清零，再点一下继续读秒
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
