如何让一个按钮一个接一个地做两件事

Question

我是一名刚开始接触 Visual Basic 的新程序员，我正在尝试制作一部视觉小说，但遇到了一些问题。

我试图在按下按钮时将文本更改为下一行文本。这是我正在使用的一些示例代码。 “DisplayText”是包含语音的位置，“ButtonNext”是转到下一段文本的按钮。

Private Sub ButtonNext_Click(sender As Object, e As EventArgs) Handles ButtonNext.Click
    If DisplayText.Text = "" Then
        DisplayText.Text = "Test"
    End If
End Sub

这行得通。但是，我想要它，这样同一个按钮就可以在“测试”行之后转到另一行。我在同一个私人潜艇中使用了它：

If DisplayText.Text = "Test" Then
    DisplayText.Text = "Second Test"
End If

我没有收到任何错误，但是当我运行代码并按下按钮时，它会立即更改为最后一行。我知道为什么，我只是不知道任何代码（也找不到任何代码）关于如何使文本每次按下而不是一次全部转到下一行。

希望这是有道理的，我希望有办法做到这一点。谢谢大家的帮助！

Answer 1

这将是您应该使用Case 语句而不是If 语句的主要示例。

Select Case DisplayText.Text

    Case ""
        DisplayText.Text = "Test"

    Case "Test"
        DisplayText.Text = "Second Test"

End Select

Answer 2

Private Sub ButtonNext_Click(sender As Object, e As EventArgs) Handles ButtonNext.Click
    If DisplayText.Text = "" Then
        DisplayText.Text = "Test"
    Else If DisplayText.Text = "Test" Then
        DisplayText.Text = "Second Test"
    End If
End Sub

问题是您的 DisplayText 被更改为“测试”并立即进入下一个 If 语句，然后检查它是否为“测试”，哪个阶段为真。使用Else 语句可以防止这个问题。

Answer 3

您有两个 If 语句，如下所示：

If DisplayText.Text = "" Then

DisplayText.Text = "Test"

End If

If DisplayText.Text = "Test" Then

DisplayText.Text = "Second Test"

End If

第一个If 语句执行，将文本更改为“测试”。然后第二个If 语句执行：如果文本是“Test”，则将其更改为“Second Test”。所以如果你在文本框空白的情况下输入sub，它会变成“Test”，然后你还没看到它，它就会变成“Second Test”。

解决方法是使用Else If语句：

If DisplayText.Text = "" Then

DisplayText.Text = "Test"

Else If DisplayText.Text = "Test" Then

DisplayText.Text = "Second Test"

End If

如果第一个条件 (DisplayText.Text = "") 不成立，这只会进入第二个 If 语句。

Answer 4

尝试在系统中使用线程来在文本更改之前暂停文本。

Private Sub ButtonNext_Click(sender As Object, e As EventArgs) Handles ButtonNext.Click
    If DisplayText.Text = "" Then
    DisplayText.Text = "Test"
End If

System.Threading.Thread.Sleep(1000)

If DisplayText.Text = "Test" Then
    DisplayText.Text = "Second Test"
End If
End Sub