程序忽略代码

Question

Private Sub Play_Click(sender As Object, e As EventArgs) Handles Play.Click    
    WordGeneration()                                                           
    userInput()  

一旦用户点击了已经在我的表单中实现的按钮，它将运行指定的每个子。但问题是，我不希望子WordGeneration（）运行多次。有没有办法让我编程到我的代码来阻止WordGeneration（）不止一次运行，所以它不会随机生成一个单词，因为我只希望它生成一个单词。

Answer 1

创建一个Boolean变量，您可以在调用代码后将其设置为 True ：

Public Class Form1

    Private _codeCalled As Boolean = False

    Private Sub Play_Click(sender As Object, e As EventArgs) Handles Play.Click
        If Not _codeCalled Then    
            WordGeneration()                                           
        End If                
        userInput()  
    End Sub

End Class

因此，在WordGeneration方法中设置变量_codeCalled = True。

这应该只调用一次方法。只要您想再次调用该方法，请查看设置_codeCalled = False。您可能还想给它一个更适合您结构的不同名称。