Question

基本上标题是什么。我想制作一个程序，你点击一个按钮，然后出现另一个按钮，然后如果你在一定的时间内点击下一个按钮你得到一个点。这是我在另一个线程中找到的，但这也使得计时器在第二个按钮显示之前倒计时，即使这个代码在代码之后显示下一个按钮。

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

End Sub

评论部分是我试图让文本框显示倒计时时间，但它不起作用。如果我愿意的话，我相信我能搞清楚，但我已经转向了其他事情。感谢回答的人，他可能会给我一个正确的答案。

Answer 1

根据我对你的问题的理解，我就是这样做的：

在表单中添加一个计时器和2个按钮

在表单加载时，您需要在计时器上设置间隔，如下所示：

Timer1.Interval = 1000       'Set the interval to 1 second

然后当你点击第一个按钮显示第二个按钮时，依次按下按钮1：

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.tick中添加以下代码：

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..

如果在Visual Basic中单击另一个按钮后单击一个按钮，如何执行一段代码

1 个答案: