Option Explicit
Private Sub Command1_Click()
Timer1.Enabled = True计时器timer1可用
Timer2.Enabled = False
计时器timer2不可用
End Sub
Private Sub Command2_Click()
Timer1.Enabled = False
Timer2.Enabled = True
End Sub
Private Sub Command3_Click()
End
End Sub
Private Sub Form_Load()
Timer1.Enabled = False 计时器timer1不可用
Timer2.Enabled = False 计时器timer2不可用
End Sub
Private Sub Timer1_Timer()
Label1.Caption = Format(Now, "hh:mm:ss AM /PM")
显示12小时制时间
End Sub
Private Sub Timer2_Timer()
Label1.Caption = Time 显示24小时制时间
End Sub


本文详细介绍了如何在Visual Basic中通过命令按钮控制计时器的启用与禁用,以及如何根据不同需求设置不同的计时器标签,实现时间和日期的实时显示,包括12小时制和24小时制时间的转换。
1940

被折叠的 条评论
为什么被折叠?



