1个回答
展开全部
添加 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-07-20 广告
2024-07-20 广告
作为深圳市博思云创科技有限公司的工作人员,对于Word文档生成PPT的操作,我们有以下建议:1. 使用另存为功能:在Word中编辑完文档后,点击文件->另存为,选择PowerPoint演示文稿(*.pptx)格式,即可将文档内容转换为PPT...
点击进入详情页
本回答由博思aippt提供
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询