Question

VB中timer编写定时程序

先单击command1，command2.visible=false弹出inputbox输入时间t毫秒，要求过了t毫秒后command2.visible=true

该如何编写程序代码？谢谢

Answer 1

添加一个Timer1控件，2个按钮，代码：
Option Explicit
Private Ms As Long
Private n As Long
Private Sub Command1_Click()
Command2.Visible = False
n = Val(InputBox("请输入毫秒数！"))
Timer1.Enabled = True
End Sub
Private Sub Form_Load()
Ms = 0
Timer1.Interval = 1
Timer1.Enabled = False
End Sub
Private Sub Timer1_Timer()
Ms = Ms + 1
If Ms = n Then
Command2.Visible = True
Timer1.Enabled = False
End If
End Sub

Answer 2

Dim T As Long, A As Long
Private Sub Command1_Click()
T = Val(InputBox("输入时间t毫秒"))
Timer1.Enabled = True
End Sub

Private Sub Form_Load()
Command2.Visible = False
Timer1.Enabled = False
Timer1.Interval = 1
End Sub

Private Sub Timer1_Timer()
A = A + 1
If A >= T Then Command2.Visible = True: A = 0: Timer1.Enabled = False
End Sub

追问

标题没说清楚不好意思OJZ，

界面有按钮1、2（按钮2退出），点按钮1出现设置时间的弹窗，输入时间T（单位分钟，刚才看错了=(′д｀ )），确定后按钮2消失，然后过了T分钟后按钮2才出现。

现在弄成上图上面的然后就不会了，弄不出要求上的TAT求详细！谢谢TAT

追答

Private Sub Form_Load()
Timer1.Enabled = False
Timer1.Interval = 1000
End Sub
修改这个地方就可以了

追问

试了一下还是不对啊，我每次输入不同的时间，但是确定后还是一会儿按钮就出来了？

追答

If A >= T * 60 Then

追问

还是不行啊…TAT

追答

你把你全部代码贴出来 全部哦

追问

Private Sub Command1_Click()
Command2.Visible = False

T = Val(InputBox("请输入时间(分钟)", "设置时间"))
Timer1.Enabled = True
End Sub
Private Sub Command2_Click()

End
End Sub
Private Sub Form_Load()
Timer1.Enabled = False
Timer1.Interval = 1000
End Sub
Private Sub Timer1_Timer()
A = A + 1
If A >= T * 60 Then Command2.Visible = True: A = 0: Timer1.Enabled = False
End Sub

追答

你没有定义全局变量 a和t啊？

追问

啊我忘记了Σ( ° △ °|||)
都是定义成long吗

追答

恩

Answer 3

你想要纯代码还是控件+代码？

追问

只要代码就行…

追答

其实这个只能通过代码实现，不能用timer，等会给你发上来

追问

但是有时间上的条件啊可以不用timer吗？0-0

追答

可以的•••可是你已经有满意回答了