如何用VB制作秒表?求源码

要精确到毫秒,按回车开始计时,按空格暂停,按R清零。谢了。... 要精确到毫秒,按回车开始计时,按空格暂停,按R清零。谢了。 展开
 我来答
nefu_20061617
2013-07-21 · TA获得超过2342个赞
知道大有可为答主
回答量:1064
采纳率:72%
帮助的人:1473万
展开全部

添加 Timer 控件,Interval属性设为 1 ,再添加一个 Label 控件

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 Type
Dim T As SYSTEMTIME
Private Sub Timer1_Timer()
    GetSystemTime T
    Label1.Caption = Format(DateAdd("h", 8, DateSerial(T.wYear, T.wMonth, T.wDay) _
        & " " & TimeSerial(T.wHour, T.wMinute, T.wSecond)), "yyyy-MM-dd hh:mm:ss") _
        & "." & T.wMilliseconds
End Sub
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 13 Then Timer1.Enabled = True
    If KeyCode = 32 Then Timer1.Enabled = False
    If KeyCode = vbKeyR Then Label1.Caption = ""
End Sub
AiPPT
2024-09-19 广告
随着AI技术的飞速发展,如今市面上涌现了许多实用易操作的AI生成工具1、简介:AiPPT: 这款AI工具智能理解用户输入的主题,提供“AI智能生成”和“导入本地大纲”的选项,生成的PPT内容丰富多样,可自由编辑和添加元素,图表类型包括柱状图... 点击进入详情页
本回答由AiPPT提供
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

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

类别

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

说明

0/200

提交
取消

辅 助

模 式