展开全部
添加 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 广告
2024-09-19 广告
随着AI技术的飞速发展,如今市面上涌现了许多实用易操作的AI生成工具1、简介:AiPPT: 这款AI工具智能理解用户输入的主题,提供“AI智能生成”和“导入本地大纲”的选项,生成的PPT内容丰富多样,可自由编辑和添加元素,图表类型包括柱状图...
点击进入详情页
本回答由AiPPT提供
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询