VB工程--实例62--显示上下午

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

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!