基本上就是标题上写的。我想做一个程序,你点击一个按钮,然后另一个按钮出现,然后如果你点击下一个按钮在一定时间内,你得到一个点。这是我在另一个线程中发现的,但是这也使得计时器在第二个按钮出现之前就会倒计时,尽管这段代码是在生成next按钮的代码出现之后。
Do While DoWhileBool = True
Select Case DirectCast(Sender, Button).Name
Case "ClickHere2"
If TimeCount > 0 Then
MultCount += 1
End If
Case "ClickHere3"
If TimeCount > 0 Then
MultCount += 1
End If无论如何,这不是完整的代码,但我只想展示一下,在另一个按钮单击方法中的if语句中,有一个按钮单击事件不起作用。
编辑:由于答案的帮助,我最终找到了部分但几乎所有我想要的东西:
NumButTim.Stop()
If TimerVar <> 0 Then
MultCount += 1
MultCounter.Text = MultCount
MultCounter.Refresh()
End If
NumButTim.Start()
TimerVar = 5
'Do Until TimerVar = 0
' TimerVar = Timer1.ToString
' TimeCounter.Text = Timer1.ToString
' TimeCounter.Refresh()
'Loop结束子对象
注释部分是我试图获得一个文本框以显示倒计时时间的部分,但它不起作用。我相信如果我想的话我会想出办法的,但我已经转移到其他事情上了。多亏了回答这个问题的人,他可能让我找到了正确的答案。
Sidenote:我不再使用visual了,但是我认为这是一种混合了点击游戏--键盘输入和字母键输入--的一部分,这种输入会在一段时间内增加一个乘数。从来没有真正完成这个想法,我甚至不知道我在那个游戏中创造的东西是否还存在,因为我的外部硬盘在我把所有旧文件转移到我现在的电脑之前就坏了。
发布于 2014-04-17 09:19:02
根据我对你问题的理解,我会这样做:
向表单中添加一个计时器和2个按钮
在表单加载中,您希望在计时器上设置时间间隔,所以如下所示:
Timer1.Interval = 1000 'Set the interval to 1 second然后,当单击第一个按钮时,显示第二个按钮,因此在button1上单击:
Button2.show() 'Show the second button
Timer1.Start() 'Start the timer, so they have 1 second from now在按钮2中单击,您想要做您的事件,添加一个点等:
points += 1然后,要使第二个按钮在确定时间之后取消(超时),您可以更改timer1的间隔。如果按钮想显示1秒,将间隔设置为1000 (毫秒)。
然后在timer1中,勾选以下代码:
timer1.Stop() 'Stop the timer so that its not ran again and again
Button2.Hide() 'Hide the second button
MsgBox("You was too slow!!") 'Tell the user they missed it, or your code..https://stackoverflow.com/questions/23127452
复制相似问题