
设计一个vb程序,要求如下:(代码越简单越好)
例如:执行开始计时功能后,经过2分钟,用户执行停止计时功能,屏幕显示120秒 展开
代码太简单了,截图你看,呵呵
================================
Private Sub Command1_Click()
'开始计时代码
Timer1.Enabled = True
Timer1.Interval = 1000
Command1.Enabled = False
End Sub
Private Sub Command2_Click()
'停止计时代码
Timer1.Enabled = False
Label1.Caption = 120
Command1.Enabled = True
End Sub
Private Sub Timer1_Timer()
'时钟周期代码
Label1.Caption = Label1.Caption - 1
If Label1.Caption <= 0 Then
Command2.Enabled = False
Command1.Enabled = True
Timer1.Enabled = False
Label1.Caption = 120
End If
End Sub
================================
添加如下代码:
Private Sub form_load()
Me.Label1.Caption = 0
Me.Timer1.Interval = 1000
Me.Timer1.Enabled = False
End Sub
Private Sub Timer1_timer()
Me.Label1 = Me.Label1 + 1
End Sub
Private Sub command1_click()
Me.Timer1.Enabled = True
End Sub
Private Sub command2_click()
Me.Timer1.Enabled = False
End Sub