Question

VB初学者的疑问

关于Timer控件
我是网上自己学的，所以不太懂
我想用VB实现如下功能：
程序加载，timer不开始计时
单击Command1后timer开始计时，时间为30秒
30秒到后弹出msgbox
并且能实现时间清零，相当于回到程序加载时的样子，下一次点击Command1后重新开始计时，到30秒再弹出msgbox如此循环的功能
求代码+解析，谢谢！

Answer 1

Private Sub Command1_Click()

    Timer1.Enabled = True

End Sub

Private Sub Timer1_Timer()

    MsgBox "30S到！"

    Timer1.Enabled = False

End Sub

Answer 2

窗体上添加一个按钮和一个计时器,输入以下代码

Dim i%

Private Sub Command1_Click()
Timer1.Interval = 1000 '计时器每隔1秒进行一次计时事件
Timer1.Enabled = True '开始计时
End Sub

Private Sub Timer1_Timer()
i = i + 1 '变量每隔一秒+1,也就是加一秒
Print i '输出时间变化

If i = 5 Then '5即累加到5秒,这里是为了测试一下,可以改成任意秒数
MsgBox "时间到"
Timer1.Enabled = False '停止计时
i = 0 '清零
Cls '清屏
End If
End Sub

Answer 3

窗体上添加一个按钮和一个计时器,输入以下代码

Private Sub Form_Load()
Timer1.Interval = 30000'计时器每隔30秒进行一次计时事件
End Sub
Private Sub Command1_Click()
Timer1.Enabled = True '开始计时
End Sub

Private Sub Timer1_Timer()
MsgBox "时间到"
Timer1.Enabled = False '停止计时
End Sub

Answer 4

Private Sub Form_Load()
Timer1.Interval = 30000
Timer1.Enabled = false
End Sub
Private Sub Command1_Click()
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
MsgBox "时间到"
Timer1.Enabled = False
End Sub

Answer 5

vc吧

追问

Visual Basic